For/If Schleife läuft nicht
25.06.2007 09:14:55
Joern
Ich bin blutiger VBA-Anfänger und habe folgendes Makro geschrieben welches auf alle Blätter einer Arbeitsmappe angewand werden soll. Leider springt es nicht auf das nächste Arbeitsblatt. Was habe ich falsch gemacht?
Sub tt()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Sheets
If Blatt.Name Like "HUW*" Then ActiveSheet.Name = "OOO " & Range("G3").Value
Next Blatt
End Sub
Gruß
Jörn Schulte