In der ersten Maske geben wir die daten von Sparte A -D an und in der 2 Maske geben wir dann 10 oder 20 dazugehörige daten an. Die sollen aber abwärts in Spalte E-M. Wenn ich aber wieder in die erste maske gehe möchte ich dann unterhalb von der letzten eingabe Spalte E anfange (Spalte A-D).
Viele Dank für die Bemühungen.
anbei den bisherigen VBA Code.
Option Explicit
Private Sub CommandButton1_Click()
Dim liZeile As Integer
Dim lcTXTbox As Control, liSpalte As Integer
liZeile = 5
Do Until Sheets("Verpackungsdaten").Range("E" & liZeile) = ""
liZeile = liZeile + 1
Loop
liSpalte = 65
For Each lcTXTbox In Controls
If TypeName(lcTXTbox) = "TextBox" Then
If IsNumeric(lcTXTbox) = True And Not IsDate(lcTXTbox) = True Then
Sheets("Verpackungsdaten").Range(Chr(liSpalte) & liZeile).Value = _
Val(lcTXTbox)
Else
Sheets("Verpackungsdaten").Range(Chr(liSpalte) & liZeile).Value = _
lcTXTbox
End If
lcTXTbox = ""
liSpalte = liSpalte + 1
End If
Next
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub UserForm_Click()
End Sub
Grüße Andreas