Makro-Schleife funzt nicht
31.01.2005 10:33:38
KlausF
Mein Versuch, ein anderes Makro mit Schleife abzuwandeln, will nicht klappen.
Bei Einzelschritt-Ausführung wird der Schleifeninhalt (hier Blablabla) übersprungen.
Gebt mir bitte einen Tipp, wie das zu Laufen zu kriegen ist.
Danke!
Klaus
Der Code:
Sub Makro13()
Dim Zähler As Long
Application.ScreenUpdating = False
Workbooks.Open Filename:="G:\Berichtswesen_2004\Brief_00.xls"
Workbooks.Open Filename:="G:\Berichtswesen_2004\Adressen.xls"
For Zähler = 1 To ThisWorkbook.ActiveSheet.Range("B3").Value
'Sollte B3 in der Datei "Adressen.xls" sein
<Blablabla> (Erspare ich Euch ;-)))
Next Zähler
ActiveWindow.Close (False)
Windows("Brief_00.xls").Activate
ActiveWindow.Close (False)
Application.ScreenUpdating = True
End Sub
Anzeige