Tabellennamen auslesen und in Tabelle schreiben

Hallo Zusammen,
ich möchte alle Tabellennamen, die mit einem "I" beginnen per vba auslesen und in einen bestimmten Zellbereich des aktiven Worksheets schreiben lassen. Dazu habe ich folgenden Code gebastelt, der aber bei set StartRow = 78 nach einem Objekt fragt.

Sub TabellenNamen()
If MsgBox("Makro starten?", vbYesNo + vbQuestion, _
"Frage") = vbYes Then GoTo Fortfahren Else GoTo EndeMakro
Fortfahren:
Dim ws As Worksheet
Dim i As Integer
Dim StartRow As Integer
Set StartRow = 78
For i = 1 To Worksheets.Count
If Left(ws.Name, 1) = "I" Then i = i + 1
If StartRow > 87 Then
Exit For
Else
ActiveSheet.Cells(StartRow, 19).Value = ws.Name
End If
End If
Next i
EndeMakro:
End Sub

Kann mir jemand weiterhelfen?
Danke & Gruß, Gunnar

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub TabellenNamen() If MsgBox("Makro starten?", vbYesNo + vbQuestion, _ "Frage") = vbYes Then GoTo Fortfahren Else GoTo EndeMakro Fortfahren: Dim ws As Worksheet Dim i As Integer Dim StartRow As Integer StartRow = 78 For i = 1 To Worksheets.Count If Left(ws.Name, 1) = "I" Then i = i + 1 If StartRow > 87 Then Exit For Else ActiveSheet.Cells(StartRow, 19).Value = ws.Name End If End If Next i EndeMakro: End Sub

Public Sub aaa() Dim startRow As Long startRow = 78 If MsgBox("Makro starten?", vbYesNo + vbQuestion, _ "Frage") = vbYes Then For Each Worksheet In ThisWorkbook.Worksheets If startRow > 85 Then Exit For If Left(Worksheet.Name, 1) = "I" Then Cells(startRow, 19).Value = Worksheet.Name startRow = startRow + 1 End If Next Worksheet End If End Sub

Hallo Werner,
danke für die Antwort. Dein Hinweis bzgl. "startRow > 87" ist korrekt und kann natürlich nicht erreicht werden. Ich habe in der Datei maximal 10 Blätter, die mit "I" beginnen - das wollte ich damit eingrenzen (brauche ich wahrscheinlich ja aber nicht, weil er nach dem 10. ohnehin keins mehr findet - oder?
Das Makro an sich soll bewirken, dass die Namen aller Immobilienblätter, die mit "I" beginnen in dem aktiven Tabellenblatt im Zellbereich "S78:S87 bzw. cells.(startRow, 19)" der Reihe nach aufgelistet werden.
Deinen Code habe ich auch ausprobiert - der hängt sich in der Zeile "For Each Worksheet In ThisWorkbook.Worksheets" mit der Fehlermeldung "Fehler beim Kompilieren: Variable nicht definiert" auf. Verstehe ich nicht, weil Worksheet doch nicht nochmal extra zu deklarieren ist?
Wäre super, wenn du das nochmal anschauen könntest.
Danke & Gruß, Gunnar

Option Explicit Public Sub aaa() Dim startRow As Long, ws As Worksheet startRow = 78 If MsgBox("Makro starten?", vbYesNo + vbQuestion, _ "Frage") = vbYes Then For Each ws In ThisWorkbook.Worksheets If startRow > 85 Then Exit For If Left(ws.Name, 1) = "I" Then Cells(startRow, 19).Value = ws.Name startRow = startRow + 1 End If Next ws End If End Sub

Beliebteste Forumthreads (12 Monate)

Tabellennamen auslesen und in Tabelle schreiben

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

156 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellennamen auslesen und in Tabelle schreiben

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

156 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread