Problem mit For Each Schleife
23.05.2008 16:37:00
Andreas
eine ganz simple Angelegenheit, aber es will partour nicht klappen.
Über folgendes Makro sollen im definierten Bereich die Werte entsprechend der If Schleife eingestellt werden. Für das Aktive Blatt funktioniert das auch. Aber es sollen alle Blätter durchlaufen werden. Ich habe hier im Forum nach Vergleichbarem gesucht und dort auch diesen Aufbau her, aber es läuft nicht.
Wo liegt der Fehler?
Vielen Dank für Eure Hilfe, Grüße, Andreas
Sub test()
Dim WsTabelle As Worksheet
Dim c As Variant
Application.ScreenUpdating = False
For Each WsTabelle In Sheets
With WsTabelle
For Each c In Range(Cells(1, 1), Cells(1, 25))
If Not IsEmpty(c) Then
If c.Value "Filtereingabe" Then
c.Value = "Filtereingabe"
End If
End If
Next c
End With
Next WsTabelle
'Worksheets(2).Activate
Application.ScreenUpdating = True
End Sub