Schleife
04.04.2015 18:45:13
Doliwa
ich möchte ein Programm schreiben, mit dem ich aus Excel einen Newsletter erstellen kann. Hieraus sollen aus meiner Kundentabelle die Email-adressen geladen werden, um diese dann zu versenden. Ich scheitere aber schon bei der Kundennummernaufzählung. Meine Kundennummern beginnen bei 1 und enden irgendwann in unbekannt. In der Zelle H1 habe ich also die Kundennummern, die mit 1 beginnen wird, dann2, dann3 usw. Die Scheife soll dann enden, wenn der Zellinhalt A1 leer ist. Mein selbst erstelltes Makro ist wie folgt:
Sub Hochzaehlen()
Dim I As Integer
Do While Range("A1").Value ""
Range("H1").Value = Range("H1").Value + 1
I = I + 1
If Range("A1").Value = "" Then Exit Do
Range("H1").Value = I
Loop
End Sub