Hallo miteinander,
Mit folgendem Makro erstelle ich in einem exel file Tabellen
Dies Funktioniert herforragend. jedoch nur so lange bis ein Zelleninhalt über 30 Buchstaben enthält.
Wie Kann ich dieses Makro ändern damit es automatisch nur die ersten 30 buchstaben der zelle in den tabellenname einfügt?
gruss
Edit by LaMa5:
- VB-Tag eingefügt (und Code formatiert), das nächste Mal bitte selbst dran denken
Mit folgendem Makro erstelle ich in einem exel file Tabellen
Visual Basic-Quellcode
- Dim Zelle, Bereich As Range
- Dim i As Integer
- Dim nWS As Worksheet
- Dim Bool As Boolean
- Set Bereich = Range("J2:J" & Range("A65536").End(xlUp).Row)
- For Each Zelle In Bereich
- For i = 2 To Worksheets.Count
- If Worksheets(i).Name = Zelle.Value Then
- Bool = True
- Exit For
- Else
- Bool = False
- End If
- Next i
- If Bool = False Then
- Set nWS = Worksheets.Add(After:=Worksheets(Worksheets.Count))
- nWS.Name = Zelle.Value
- End If
- Next Zelle
Dies Funktioniert herforragend. jedoch nur so lange bis ein Zelleninhalt über 30 Buchstaben enthält.
Wie Kann ich dieses Makro ändern damit es automatisch nur die ersten 30 buchstaben der zelle in den tabellenname einfügt?
gruss
Edit by LaMa5:
- VB-Tag eingefügt (und Code formatiert), das nächste Mal bitte selbst dran denken
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „LaMa5“ ()