Hochzählen
26.08.2002 14:01:20
Christian K.
ich will, das einige Zahlen in
die Felder A4,B4 und C4 eingetragen werden.(Das geht ja auch)
Nun will ich aber, wenn das Programm nochmal gestartet wird, das dann die nächsten Zahlen in die Felder A5,B5 und C5 eingetragen werden. Wie realisiere ich das?
Private Sub CommandButton1_Click()
If TextBox0 = "" Then
MsgBox "Bitte geben Sie eine Auftragsnummer ein!"
TextBox0.SetFocus
Else
If TextBox1 = "" Then
MsgBox "Bitte geben Sie mindestens eine Nummer ein!"
TextBox1.SetFocus
Else
Worksheets("Tabelle1").Range("a4").Value = TextBox1.Value
Worksheets("Tabelle1").Range("B4").Value = TextBox2.Value
Worksheets("Tabelle1").Range("c4").Value = TextBox3.Value
Eingabe.Hide
End If
End If
End Sub