Sub test()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Debug.Print ws.Range("A1")
Next 'ws
End Sub
Sub test()
Dim na As Name
For Each na In ThisWorkbook.Names
Debug.Print na.RefersTo
Next 'na
End Sub
Um alle Worksheets in einer Excel-Arbeitsmappe mit VBA zu durchsuchen, kannst Du das folgende Makro verwenden. Damit wird jede Zelle A1 in jedem Worksheet ausgedruckt.
ALT + F11, um den VBA-Editor zu öffnen.Sub test()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Debug.Print ws.Range("A1")
Next ws
End SubALT + F8, wähle test und klicke auf "Ausführen".Dieses Skript verwendet For Each ws In ThisWorkbook.Worksheets, um durch alle Worksheets zu iterieren.
Fehler: "Objekt erforderlich"
Lösung: Stelle sicher, dass Du die richtige Syntax und Objektreferenzen verwendest. Überprüfe, ob das Arbeitsblatt existiert.
Fehler: "Debug.Print gibt nichts aus"
Lösung: Überprüfe, ob die Zelle A1 in jedem Worksheet tatsächlich einen Wert hat. Wenn nicht, wird nichts im Direktfenster angezeigt.
Wenn Du benannte Bereiche in Deiner Arbeitsmappe hast, kannst Du diese ebenfalls durchlaufen:
Sub test()
Dim na As Name
For Each na In ThisWorkbook.Names
Debug.Print na.RefersTo
Next na
End SubWorksheets vs. Sheets:Beachte, dass Worksheets nur Arbeitsblätter umfasst, während Sheets auch Diagramme und andere Arten von Blättern einschließt. Verwende ThisWorkbook.Sheets, wenn Du alle Blätter durchlaufen möchtest.
Sub AusgabeWerte()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Debug.Print ws.Range("A1").Value
Next ws
End SubSub SucheWert()
Dim ws As Worksheet
Dim Zelle As Range
Dim Suchwert As String
Suchwert = "DeinWert"
For Each ws In ThisWorkbook.Worksheets
Set Zelle = ws.Cells.Find(What:=Suchwert)
If Not Zelle Is Nothing Then
Debug.Print "Wert gefunden in: " & ws.Name & " Zelle: " & Zelle.Address
End If
Next ws
End SubOption Explicit am Anfang Deines Moduls, um sicherzustellen, dass alle Variablen deklariert sind.With-Anweisung, um den Code lesbarer zu machen:Sub MitWith()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
Debug.Print .Range("A1").Value
End With
Next ws
End SubWorkbook.Worksheets oder Worksheets verwenden möchtest, je nachdem, ob Du auf die aktuelle oder eine spezifische Arbeitsmappe zugreifen möchtest.1. Wie kann ich mehrere Zellen anstelle von nur A1 durchsuchen?
Du kannst die Schleife anpassen, um mehrere Zellen zu durchlaufen, indem Du die Range anpasst, z.B. ws.Range("A1:B10").
2. Was ist der Unterschied zwischen Sheets und Worksheets?
Sheets umfasst alle Blätter, einschließlich Diagramme, während Worksheets nur die Arbeitsblätter umfasst. Verwende Worksheets, wenn Du nur mit Arbeitsblättern arbeiten möchtest.