do loop anweisung unterbrechen
simon
habe ein Problem mit der Do Loop Schleife,
Habe Mehrere Textboxen, in die Adressen Eingegeben werden,
über eine Schaltfläche Füge ich es in die Exceltabelle ein. Immer fortlaufend.
Die SChleife läuft aber durch sämtliche Prozeduren (andere Sub anweisung) in meiner UF, wie kann das sein?
Kann ich die Schleife am ende Mit irgendeiner Exit anweisung Abbrechen?
Private Sub erfassung_hinzu_Click()
Dim Zeilen As Integer
Zeilen = 1
Do While [NR].Offset(Zeilen) <> ""
Zeilen = Zeilen + 1
Loop
[NR].Offset(Zeilen, 0) = CSng(txtNR)
[NR].Offset(Zeilen, 1) = CSng(txtHerkunft)
[NR].Offset(Zeilen, 2) = CSng(txtGeboren)
[NR].Offset(Zeilen, 3) = CSng(txtAlter)
End Sub
Bedanke mich schon mal
gruß Simon
Anzeige