Suche nächste Freie Zelle
11.11.2004 13:26:22
Raki
mein Problem stellt sich wie folgt dar:
Bei jedem CommandButton-Click sollen die in der Userform eingegebenen Daten in eine Tabelle übertragen werden. Das funktioniert soweit auch. Nun sollen aber über die Userform mehrere Eingaben erfolgen, die dann untereinander in der Tabelle erscheinen sollen. Bis jetzt hab ich aber nur dieses Ergebnis (bitte nicht lachen!!!)...was mir max. 2 Eingaben ermöglicht:
Private Sub CommandButton3_Click()
If Cells(8, 1) = Empty Then
Cells(8 + n, 1) = Me.TextBox1.Value
Cells(n + 8, 2) = Me.TextBox2.Value
Cells(n + 8, 3) = Me.ComboBox1.Value
Cells(n + 8, 4) = Me.ComboBox2.Value
Cells(n + 8, 5).FormulaR1C1 = "=RC[-3]-RC[-4]"
Else
Cells(9 + n, 1) = Me.TextBox1.Value
Cells(n + 9, 2) = Me.TextBox2.Value
Cells(n + 9, 3) = Me.ComboBox1.Value
Cells(n + 9, 4) = Me.ComboBox2.Value
Cells(n + 9, 5).FormulaR1C1 = "=RC[-3]-RC[-4]"
End If
End Sub
Wer kann mir sagen, was ich machen muss, damit bei jedem Click-Ereignis, die nächste freie Zelle gesucht wird, und erst dort die neue Eingabe erscheint?
Viele Grüße
Raki