Uebergabe/VBA
25.04.2005 11:22:09
Bigi
ich hätte da wieder einmal 1-2 Problemchen,
könnte mir bitte jemand behilflich sein
Private Sub CommandButton1_Click()
Sheets("Rechnung").[E15] = TextBox1.Value
Sheets("Rechnung").[B11] = ComboBox1.Value
Sheets("Rechnung").Select
Unload UserForm6
End Sub
Mit dem oben genannten Code übergebe ich Daten aus einer Userform in die Tabelle "Rechnung",
nun sollten diese Daten auch in die Tabelle "RNFR1" übertragen werden
und zwar immer in die nächste freie Zelle.
Die Combobox ab A30 usw.
Die Textbox ab C30 usw.
z.B.
Kunde Rechnungsnummer
Schuler 5493
Krueger 5596
Kann man eigentlich die letzte Rechnungsnummer so gestalten
das beim laden meiner Userform6 die letzte Rechnungsnummer
immer in der Textbox1 steht.
Viele Grüsse
Bigi