for each Tabellenblatt klappt nicht
20.07.2005 12:17:14
Uschi
ich habe folgenden Code um in einer Arbeitsmappe mit ca 30 Blättern immer die gleiche Änderung an jedem Blatt vorzunehmen:
Sub blaetter()
Dim blatt As Worksheet
For Each blatt In ThisWorkbook.Worksheets
Range("H2").Value = "DATUM"
Next blatt
End Sub
Das klappt aber immer nur in dem Blatt, das gerade aktiv ist. Was mache ich falsch?
Danke schon mal.
Gruß Uschi
Anzeige