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.
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 75032
Url: https://administrator.de/contentid/75032
Printed on: April 24, 2024 at 17:04 o'clock
1 Comment
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
