1
Tabellendatensätze über UserForm bearbeiten, wie?
Moin zusammen,
ich möchte Datensätze über eine User Form bearbeiten. Wie ich die Datensätze einlesen kann in die Userform weiß ich bereits:
Private Sub UserForm_Initialize()
' Tabelle und Startzelle auswählen
Sheets("Vereinsmitglieder").Select
[a2].Select
' Produktliste einlesen
Do While ActiveCell.Value <> ""
' Inhalt der aktiven Zelle einfügen
Me.LB_Bearbeiten.AddItem ActiveCell.Value
' Nächste Zeile ansteuern
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Nun soll beim betätigen des Button die Änderungen übernommen werden, eventuell noch eine MSGBOX abfrage ob man das wirklich tun möchte.
ich möchte Datensätze über eine User Form bearbeiten. Wie ich die Datensätze einlesen kann in die Userform weiß ich bereits:
Private Sub UserForm_Initialize()
' Tabelle und Startzelle auswählen
Sheets("Vereinsmitglieder").Select
[a2].Select
' Produktliste einlesen
Do While ActiveCell.Value <> ""
' Inhalt der aktiven Zelle einfügen
Me.LB_Bearbeiten.AddItem ActiveCell.Value
' Nächste Zeile ansteuern
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Nun soll beim betätigen des Button die Änderungen übernommen werden, eventuell noch eine MSGBOX abfrage ob man das wirklich tun möchte.
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 75032
Url: https://administrator.de/forum/tabellendatensaetze-ueber-userform-bearbeiten-wie-75032.html
Ausgedruckt am: 12.04.2025 um 04:04 Uhr
1 Kommentar
Hat keiner eine Idee?
Die Userform hat folgenden Quellcode:
Private Sub CmdB_Schließen_Click()
Mitglied_Bearbeiten.Hide
End Sub
Private Sub LB_MitgliedBearbeiten_Click()
Dim auswahl As Integer
auswahl = Me.LB_MitgliedBearbeiten.ListIndex
With Me
.TB_Name = [a2].Offset(auswahl, 1)
.TB_Straße = [a2].Offset(auswahl, 2)
.TB_PLZ = [a2].Offset(auswahl, 3)
.TB_Ort = [a2].Offset(auswahl, 4)
.TB_AnmeldeDatum = [a2].Offset(auswahl, 5)
.TB_Kaution = [a2].Offset(auswahl, 6)
.TB_Beitrag = [a2].Offset(auswahl, 7)
End With
End Sub
Private Sub UserForm_Initialize()
' Tabelle und Startzelle auswählen
Sheets("Vereinsmitglieder").Select
[a2].Select
' Produktliste einlesen
Do While ActiveCell.Value <> ""
' Inhalt der aktiven Zelle einfügen
Me.LB_MitgliedBearbeiten.AddItem ActiveCell.Value
' Nächste Zeile ansteuern
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Die Userform hat folgenden Quellcode:
Private Sub CmdB_Schließen_Click()
Mitglied_Bearbeiten.Hide
End Sub
Private Sub LB_MitgliedBearbeiten_Click()
Dim auswahl As Integer
auswahl = Me.LB_MitgliedBearbeiten.ListIndex
With Me
.TB_Name = [a2].Offset(auswahl, 1)
.TB_Straße = [a2].Offset(auswahl, 2)
.TB_PLZ = [a2].Offset(auswahl, 3)
.TB_Ort = [a2].Offset(auswahl, 4)
.TB_AnmeldeDatum = [a2].Offset(auswahl, 5)
.TB_Kaution = [a2].Offset(auswahl, 6)
.TB_Beitrag = [a2].Offset(auswahl, 7)
End With
End Sub
Private Sub UserForm_Initialize()
' Tabelle und Startzelle auswählen
Sheets("Vereinsmitglieder").Select
[a2].Select
' Produktliste einlesen
Do While ActiveCell.Value <> ""
' Inhalt der aktiven Zelle einfügen
Me.LB_MitgliedBearbeiten.AddItem ActiveCell.Value
' Nächste Zeile ansteuern
ActiveCell.Offset(1, 0).Select
Loop
End Sub
