Supportnet / Forum / Tabellenkalkulation
Bezeichnung Tabellenblätter kürzer anzeigen lassen
Frage
Kann man die Namen der einzelnen Tabellenblätter auch kürzer anzeigen lassen ohne Sie bewusst umzubenennen?
Mark
Antwort 1 von nighty
hi mark :)
das ist einfach,so zum beispiel :)
hier wird die laenge des sheetnamen geprueft,die zwei dreien sind fuer die kuerzung ausschlaggebend(drei zeichen)gegebenenfalls zu aendern wenn man wollte.
gruss nighty
Sub Makro1()
Dim i%
For i% = 1 To Sheets.Count
a1% = Len(Sheets(i%).Name)
If a1% <= 3 Then
Range("A" & i%) = Sheets(i%).Name
Else
Range("A" & i%) = Mid$(Sheets(i%).Name, 1, 3)
End If
Next i%
das ist einfach,so zum beispiel :)
hier wird die laenge des sheetnamen geprueft,die zwei dreien sind fuer die kuerzung ausschlaggebend(drei zeichen)gegebenenfalls zu aendern wenn man wollte.
gruss nighty
Sub Makro1()
Dim i%
For i% = 1 To Sheets.Count
a1% = Len(Sheets(i%).Name)
If a1% <= 3 Then
Range("A" & i%) = Sheets(i%).Name
Else
Range("A" & i%) = Mid$(Sheets(i%).Name, 1, 3)
End If
Next i%
Antwort 2 von Mark Lenzen
To Nighty:
Sorry dass ich mich erst jetzt melde.
(war am Wochenende und gestern noch unterwegs=
Wo muss ich den Befehl denn eingeben?
Mark
Sorry dass ich mich erst jetzt melde.
(war am Wochenende und gestern noch unterwegs=
Wo muss ich den Befehl denn eingeben?
Mark
Antwort 3 von nighty
hi mark :)
wohl ueberhastet geantwortet grrrr :)
eine visuelle anpassung ist soweit ich weiss nicht moeglich.
gruss nighty
wohl ueberhastet geantwortet grrrr :)
eine visuelle anpassung ist soweit ich weiss nicht moeglich.
gruss nighty
Antwort 4 von Mark Lenzen
Danke aber trotzdem!
Mark
Mark