Excel-VBA

Question

Hallo zusammen,

Ich konnte ohne Probleme Fenster wie auch Eingabefelder erstellen.
Das switchen von Formulare stellt mitr auch keine mühe.

Mein Problem:

Ich habe 10 Eingabefelder, und ein Eintragsbutton.

Die Idee ist, wenn ich meine Daten in diese 10 Felder eingetragen habe kann ich auf mein Eintragsbutton klicken.

Dies sollten dann auf einem 2ten Sheet zbs. bei mir "Datenaufnahme"
eingetragen werden Bsp.:

Von A1-J1 sollten dann die eingetragen werden, jedes mal wenn ich meine 10 Werte neu Eintrage zbs. jetzt zum 2ten mal:
von A2-J2 eingetragen wird.

Irgendwie habe ich mühe mit dem.

Answer 1

Hallo,

hier mal ein Code für den Eintragsbutton:

Private Sub CommandButton1_Click()
Dim lngLetzte As Long
Dim z As Long

With ThisWorkbook.Worksheets("Datenaufnahme")
'letzte beschriebene Zeile ermitteln
lngLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
'Prüfen, ob in erster Zeile in Spalten A bis J etwas steht
If lngLetzte = 1 Then
With .Range(.Cells(lngLetzte, 1), .Cells(lngLetzte, 10))
If Application.WorksheetFunction.CountBlank(.Cells) < .Cells.Count Then lngLetzte = lngLetzte + 1 'falls ja, Zeilenvariable erhöhen
End With
End If
'Daten aus Textboxen in entsprechende Spalten schreiben
For z = 1 To 10
.Cells(lngLetzte, z).Value = UserForm1.Controls("TextBox" & CStr(z)).Value
Next z
End With

'Userform schließen
Unload Me

End Sub

Ich gehe mal davon aus, dass die Eingaben in Textboxen erfolgen.

Gruß

M.O.