mit dem nachfolgenden Makro wird ermittelt, ob in der Arbeitsmappe Tabellen enthalten sind, deren Name lediglich aus einer Zahl besteht. Beim Aktivieren einer bestimmten Tabelle werden diese Tabellennamen (aufsteigend sortiert) in die Zeile 5 beginnend in der Zelle A5 eingetragen.
Mein Problem: Das Ganze funktioniert offensichtlich nur, solange die Tabellenbezeichnungen aus einstelligen Zahlen bestehen. Ich möchte aber, dass auch zweistellige Zahlen (10 bis 99)berücksichtigt werden.
Wie muss das Makro geändert werden?
Vielen Dank für eure Hilfe.
Private Sub Worksheet_Activate()
Dim sh As Integer
Dim lc As Integer
Rows(5).ClearContents
lc = 1
For sh = 1 To Sheets.Count
If Len(Sheets(sh).Name) = 1 Then
Cells(5, lc) = Sheets(sh).Name
lc = lc + 1
End If
Next sh
End Sub