ich bin relativ frisch hier und beschäftige mich seit ein paar Wochen mit Excel VBA.
Dabei bin ich jetzt auf das folgende Problem gestoßen, bei dem ihr mir hoffentlich helfen könnt.
Ich möchte gerne eine Tabelle mit vier Spalten A:D per Userform bearbeiten.
Bisher habe ich es geschafft neue Einträge über die Userform zu ergänzen.
Zusätzlich würde ich diese Einträge gerne mit Hilfe einer ListBox auslesen und bearbeiten können.
D.h. in meiner ListBox1 werden die Einträge der Spalte B aufgelistet. Wenn man einen Eintrag anklickt, sollen meine TextBoxen die Einträge aus der Tabelle auslesen. Anschließend möchte ich diese Eingaben anpassen und mit dem CommandButton1 speichern und in die Excel Liste übertragen.
Bisher sieht mein Code so aus:
Private Sub CommandButton3_Click() 'Neuer Eintrag
Worksheets("Tabelle1").Activate
Range("A2").Select
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(last, 1).Value = UserForm1.TextBox1.Value
ActiveSheet.Cells(last, 2).Value = UserForm1.TextBox2.Value
ActiveSheet.Cells(last, 3).Value = CDate(UserForm1.TextBox3.Value)
ActiveSheet.Cells(last, 4).Value = UserForm1.TextBox4.Value
UserForm1.TextBox1.Value = ""
UserForm1.TextBox2.Value = ""
UserForm1.TextBox3.Value = ""
UserForm1.TextBox4.Value = ""
End Sub
Private Sub CommandButton2_Click() 'Abbrechen
UserForm1.TextBox1.Value = ""
UserForm1.TextBox2.Value = ""
UserForm1.TextBox3.Value = ""
UserForm1.TextBox4.Value = ""
Unload UserForm1
End Sub
Private Sub UserForm_Initialize()
ListBox1.RowSource = "B2:B" & Sheets(1).Cells(Cells.Rows.Count, 1).End(xlUp).Row
End Sub
Über dieses Link könnt ihr meine Beispieldatei öffnen.
https://www.herber.de/bbs/user/136757.xlsm
Vielen Dank.
Gruß,
Marvin