Formular, Datenübernahme
06.03.2013 14:10:09
Manfred
von u.g. Codeschnippsel werden Werte vom Formular in die aktive Tabelle geschrieben.
Sub Beginn()
Dim Z As Long
With Worksheets(ActiveSheet.Name) 'Worksheets("5er")
Z = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(Rows.Count, 2).End(xlUp).Row, .Rows.Count) _
+ 1
If Z > 65000 Then Z = 5
.Cells(Z, 1) = .Cells(Z - 1, 1) + 1
.Cells(Z, 2) = CLng(TextBox7) ' + 1 'SpalteB, Ident-Nr.
'mit diesem Code wird die Schrift in der TextBox7 -Ident-Nr.- ausgerichtet
'TextBox7.TextAlign = fmTextAlignLeft
TextBox7.TextAlign = fmTextAlignCenter
'TextBox7.TextAlign = fmTextAlignRight
.Cells(Z, 3) = TextBox17 'SpalteC, Datum
.Cells(Z, 4) = TextBox16 'SpalteD, M-Typ
End With
End Sub
Nun möchte ich die Werte noch zusatzlich in den Worksheets("5er") ab Zeile 6 fortlaufend reinschreiben.
.Cells(Z, 4) = TextBox7 'Worksheets("5er"), Spalte D, VP-Nr.
.Cells(Z, 7) = TextBox17 'Worksheets("5er"), Spalte G, Datum
.Cells(Z, 9) = TextBox16 'Worksheets("5er"), Spalte I, M-Typ
Ich bekomme das einfach nicht hin.
Kann mir jemand helfen ?
Mit freundlichen Grüßen
Manfred