Hallo liebe Excel Experten,
ich versuche gerade ein Excel Makro zu erstellen.
Ich habe eine Liste mit beliebig vielen Einträgen in der A-Spalte.
Nun möchte ich das ein Textfeld der Wert in der Ai-Zelle ausliest und der User die Ei-Zelle befüllen kann.
Mit dem klick auf NächstesFeld soll dann das selbe mit der i+1 zeile passieren. Jeder versuch eine Schleife zu schreiben endet damit das alle Zeilen mit dem ersten Eintrag ausgefüllt werden.
Die Idee ist das man z.B. eine Liste mit Produkten in Spalte A hat und die Farben in E Einträgt.
Danke für die Hilfe
Hier der Code:
ich versuche gerade ein Excel Makro zu erstellen.
Ich habe eine Liste mit beliebig vielen Einträgen in der A-Spalte.
Nun möchte ich das ein Textfeld der Wert in der Ai-Zelle ausliest und der User die Ei-Zelle befüllen kann.
Mit dem klick auf NächstesFeld soll dann das selbe mit der i+1 zeile passieren. Jeder versuch eine Schleife zu schreiben endet damit das alle Zeilen mit dem ersten Eintrag ausgefüllt werden.
Die Idee ist das man z.B. eine Liste mit Produkten in Spalte A hat und die Farben in E Einträgt.
Danke für die Hilfe
Hier der Code:
Quellcode
- Private Sub NaechsterEintrag_Click()
- Dim m As Long
- Dim n As Long
- letzte_Zeile = Range("A" & Rows.Count).End(xlUp).Row
- n = 2 'Prüfe welche Zelle leer ist und damit noch nicht beschrieben
- If Cells(n, "E").Value <> "" Then
- n = n + 1
- End If
- For m = n To letzte_Zeile
- 'Zeige den Wert der Zelle an und mach es Schreibgeschützt
- Me.TextBox1.Text = Tabelle1.Cells(m, 1).Value
- TextBox1.Enabled = False
- 'User tägt Daten in Spalte E ein
- Tabelle1.Cells(m, 5).Value = TextBox5.Value
- Next m
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Makro-Beginner“ ()