Re: Schleife = Problem
20.02.2003 18:45:02
Mark
Hallo Hajo,also mein Problem ist folgendes:
Ich möchte über das Ereignis Button_Click den Inhalt einer Textbox "Name" in das Tabellenblatt "Kunden" eintragen.
Dieser Inhalt wird z.B in die Zelle D3 geschrieben.
Wenn ich jetzt noch einmal auf Button_Click gehe, möchte ich das er den neuen Inhalt der Textbox "Name" ebenfalls in die Tabelle "Kunden" schreibt.
Jedoch sollte der Wert in D3 erhalten bleiben, sprich der neue Wert soll in D4 eingetragen werden.
Ich habs bisher so:
Private Sub Kundenaufnahme_Click()
Dim x As Integer
For x = 3 To 10
Cells(x, 4).Value = NameK.Value
x = x + 1
Next
MsgBox ("Die Datenbank ist voll")
End Sub
Das Problem ist, er trägt den Wert nicht ein sondern läuft von 3 bis 10 durch und gibt dann die MSG box aus !!
Ich will aber das er nach einer Freien zelle sucht und es dann da einträgt.Wie realisier ich das bzw. wo liegt mein Fehler?