Werte aus Eingabemaske per Commandbuton in Arbeits
18.12.2008 10:28:00
Roger
heute schon mein zweites Problem: Ich habe eine UserForm (Eingabemaske) und div. Commandbutton. Kundendaten werden dann in Arbeitsblätter geschrieben. Untenstehender Code füllt zum Bsp. in Tamelle3 Adressen ein: Namen in C4, Vornamen in D4, Strasse in C5 und Plz Ort in C6 ein. Nun will ich mit einem weiteren Commandbutton einrichten, welcher im Arbeitsblatt "Aufträge2009" die Namen in J, die Vornamen in K, Strasse in L und PLZ Ort in M schreibt. Jeweils in die unterste freie Zeile. Kann mir da jemand helfen?
Vielen Dank im Voraus,
Roger
Private Sub CommandButton4_Click()
Dim A As Long
Dim lngCol As Long, lngRow As Long
lngRow = 4
With Tabelle3
For A = 1 To 7
lngCol = IIf(A = 2, 4, 3)
.Cells(lngRow, lngCol) = Me("Textbox" & A)
If A 1 Then lngRow = lngRow + 1
Next A
.Select
End With
Unload Me
End Sub
Anzeige