Frage zu Do While-Schleife
16.01.2005 11:21:56
Michael
ich bin neu beim VBA-Programmieren.
Ich möchte über ein Makro den Druckbereich definieren. Dabei soll es wenn in Spalte F (6) in Zeile z.B. 42 wenn das fünfte Mal "Ges.:" (je 1 x für Montag bis Freitag) in der Zelle steht, diese Zeile als Ende nehmen.
Hier der Code
Sub Schaltfläche6_BeiKlick()
Dim Count As Integer
Dim i As Integer
i = 0
For Count = 0 To 50
Do While i <= 4
If ActiveSheet.Cells(Count, 6).Value <> "Ges.:" Then
i = i + 1
Loop
ActiveSheet.PageSetup.PrintArea = "$A$1:$Z$" & Count
End Sub
Also Fehler kommt: Loop ohne Do
Wie lautet der Befehl um nach dem Druckbereich festlegen ins Druckermenü (Drucker Auswahl) zu kommen? Danke im Voraus.
Gruß
Michael
Anzeige