auf einem separaten Tabellenblatt einen Index aufzulisten:
Sub Blaetter_auflisten()
Dim i As Integer
Range("A1").Activate
For i = 1 To Sheets.Count
ActiveCell = Sheets(i).Name
ActiveCell.Offset(1, 0).Activate
Next i
End Sub
Wie kann ich den Code so ändern dass er mir pro Buchstabe je einen Index erstellt auf separatem Tabellenblatt ?
Ich meine...
alle Tabellenblätter beginnend mit "A" stehen auf einem Tabellenblatt "INDEX A"
alle Tabellenblätter beginnend mit "B" stehen auf einem Tabellenblatt "INDEX B"
usw.
Danke für die Hilfe !