Probleme mit 'ner Schleife
09.01.2015 08:24:10
Frank
Auf einer UF befinden sich bspw. die TextBoxen 16 - 21, deren Werte ich mittels Klick auf einen Button in die Tabelle "Karteikarte" eintragen lassen möchte.
Mein Code - Versuch:
Sheets("Karteikarte").Activate
Dim lng As Long
Dim i As Integer
For lng = 5 To 10
For i = 16 To 21
Cells(lng, 8) = Me("TextBox" & i).Text
i = i + 1
Next i
Next lng
Er trägt mir in Spalte 8 Zeile 5 - 10 immer den Wert aus TextBox16 ein, obwohl es in den TextBoxen unterschiedliche Werte gibt. Wo ist mein Fehler? Ich bitte um eure Hilfe!!! Danke im Vorraus!
Gruß Frank H.