Hallo,
ich habe eine Userform in aus der Daten gespeichert werden, sobald in den entsprechenden Feldern ein Wert eingetragen ist.
Da Die Prozedur über mehrere "Zeilen" laufen soll (also gleiche Funktion nur ein Wert ist anders) würde ich das gerne über eine Variable machen, damit ich die Porzedur nur einmal habe und mehrere Schlaufen macht.
Die Variable will ich jedoch nicht im Excel in Feldern schreiben, daher hätte ich gerne die Variablen im Editor definiert.
Ich weiß jedoch nciht wie ich das mache damit ich es als Schleife mit Variablen aus dem Editor mache.
Vielen Dank vorab
Dim i As Integer
If UserForm1.Eingabefeld_VARIABLE_Schritt1.Value <> "" _
Or UserForm1.Eingabefeld_ VARIABLE _ Schritt2.Value <> "" _
Or UserForm1.Eingabefeld_ VARIABLE _ Schritt3.Value <> "" _
Or UserForm1.Eingabefeld_ VARIABLE _ Schritt4 <> "" _
Or UserForm1.Eingabefeld_ VARIABLE _ Schritt5 <> "" Then
Worksheets("Datenerfassung").Activate
Sheets("Datenerfassung").Activate
Range("A1").Select
i = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(i, 1).Value = UserForm1.Datum.Value
Cells(i, 4).Value = UserForm1.Eingabefeld_ VARIABLE _ Schritt1.Value
Cells(i, 5).Value = UserForm1.Eingabefeld_ VARIABLE _ Schritt2.Value
Cells(i, 6).Value = UserForm1.Eingabefeld_ VARIABLE _ Schritt3.Value
Cells(i, 7).Value = UserForm1.Eingabefeld_ VARIABLE _ Schritt4.Value
Cells(i, 8).Value = UserForm1.Eingabefeld_ VARIABLE _ Schritt5.Value
End If
|