Loop Problem
10.06.2013 09:14:40
lesshuhn
ich habe einmal ein kleines problem.
in möchte den nachstehenden code nutzen um eine zweite seite zu drucken.
leider kommt dann die fehlermeldung "LOOP ohne DO".
Tja und nun die Frage, warum ist das so.
Schon jetzt danke für eure Hilfe
Sub Switchgear_BeiKlick()
Dim n As Integer
n = 3
Dim n_str As String
Dim pos_cable As String
Dim schreib_datum As Boolean
Application.ScreenUpdating = False
Do Until (n = 300)
n_str = n
schreib_datum = False
If Range("e" & n_str) "" And Range("g" & n_str) "" And Range("b" & n_str) = "" _
And Range("m" & n_str)