Sub Test()
Sheets("Tab*").Cells(1, 1).Value = "Hallo"
End Sub
Sub t()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
If WS.Name Like "Tab*" Then WS.Range("A1") = "Hallo"
Next WS
End Sub
For Regulierer = 1 To ActiveWorkbook.Sheets.Count
If Sheets(Regulierer).Name Like txtMonatPE & "." & txtJahrPE & " Cockpit*" Then _
SheetCounter = SheetCounter + 1
Next
If SheetCounter = 0 Then
Worksheets.Add after:=Sheets(Regulierer - 1)
ActiveSheet.Name = txtMonatPE & "." & txtJahrPE & " Cockpit"
Else
On Error GoTo TBerror
Select Case MsgBox("Es besteht bereits ein Datenblätter mit dem Namen." & vbLf & _
"Trotzdem neu anlegen als " & txtMonatPE & "." & txtJahrPE & " Cockpit " & SheetCounter _
+ 1 _
& vbLf & vbLf & "Um ins MainCockpit zu gelangen, klicken Sie auf Nein!", vbQuestion + _
vbYesNo)
Case vbYes
Worksheets.Add after:=Sheets(Regulierer - 1)
ActiveSheet.Name = txtMonatPE & "." & txtJahrPE & " Cockpit " & SheetCounter + _
1
Case Else
Exit Sub
On Error GoTo 0
End Select
End If
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Neues Modul erstellen: Klicke mit der rechten Maustaste auf VBAProject (deine_datei.xlsx), wähle Einfügen und dann Modul.
Code einfügen: Füge den folgenden Beispielcode ein, um den Platzhalter in VBA zu verwenden:
Sub BeispielMitPlatzhalter()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
If WS.Name Like "Tab*" Then
WS.Range("A1").Value = "Hallo"
End If
Next WS
End SubCode ausführen: Drücke F5 oder klicke auf Ausführen, um den Code zu testen.
Fehler: Platzhalter funktioniert nicht
Stelle sicher, dass du die Syntax Like "Tab*" verwendest. In VBA kannst du Platzhalter wie * und ? verwenden, aber sie gelten nicht für Tabellennamen in der Sheets-Auflistung.
Fehler: Subscript out of range
Dieser Fehler tritt auf, wenn du versuchst, auf ein Blatt zuzugreifen, das nicht existiert. Überprüfe die genauen Namen deiner Blätter.
Eine alternative Methode, um Platzhalter in einem String zu verwenden, ist die Verwendung von Variablen. Hier ist ein Beispiel:
Sub BeispielMitVariablen()
Dim BlattName As String
BlattName = "Tab1"
If BlattName Like "Tab*" Then
MsgBox "Das Blatt entspricht dem Muster."
End If
End SubDiese Methode kann nützlich sein, wenn du mit dynamischen Blattnamen arbeitest.
Hier sind einige praktische Beispiele für den Einsatz von Platzhaltern in VBA:
Alle Blätter mit einem bestimmten Namen ansprechen:
Sub AlleBlätterAnsprechen()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
If WS.Name Like "Bericht*" Then
WS.Range("A1").Value = "Daten vorhanden"
End If
Next WS
End SubErstellen eines neuen Blattes mit einem einzigartigen Namen:
Sub NeuesBlattErstellen()
Dim BlattZähler As Integer
BlattZähler = 1
Dim NeuesBlattName As String
Do While WorksheetExists("Neues Blatt " & BlattZähler)
BlattZähler = BlattZähler + 1
Loop
NeuesBlattName = "Neues Blatt " & BlattZähler
Worksheets.Add.Name = NeuesBlattName
End Sub
Function WorksheetExists(sheetName As String) As Boolean
On Error Resume Next
WorksheetExists = Not Worksheets(sheetName) Is Nothing
On Error GoTo 0
End FunctionOn Error-Anweisungen, um unerwartete Probleme elegant zu lösen.1. Frage
Wie kann ich Platzhalter in einem String innerhalb einer VBA-Funktion verwenden?
Antwort: Du kannst die Like-Anweisung verwenden, um Platzhalter in Strings zu verwenden, wie in den obigen Beispielen gezeigt.
2. Frage
Kann ich Platzhalter auch für andere Objekte in VBA verwenden?
Antwort: Ja, du kannst Platzhalter in VBA für viele Objekte verwenden, wie z.B. für Dateinamen und Bedingte Formatierungen in Excel.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen