Office: (Office 2016) Daten aus Textbox geändert, ändert Daten in Tabelle direkt mit

Hallo zusammen,

ich habe eine Userform mit einer combobox, mehreren textboxen und buttons.
Über diese Userform sollen bereits eingetragene Daten in der jeweiligen Zeile geändert werden. Über das drop down menü, welches ich über die row source mit der tabelle verbunden habe, wähle ich aus, welcher datensatz geöffnet werden soll. Über den ersten Button öffnen sich dann auch die zugehörigen Daten.

Das Problem ist aber, dass wenn ich in den Textfeldern etwas ändere, die Daten in der Tabelle direkt geändert werden. Ich hätte aber gerne, dass man erst einen weiteren Button betätigen muss um die Daten in die Tabelle sogesehen zu überschreiben, damit man noch die Möglichkeit hat.
Da ich nicht weiter weiß hatte ich auch schon darüber nachgedacht, ob es Sinn machen würde einen Zwischenspeicher anzulegen, dort die Daten zu ändern und erst mit dem Klicken der Bestätigung die Daten zu überschreiben, dafür reichen meine Kenntnisse allerdings nicht aus und ich bin mir nicht sicher wie sinnvoll dieses Vorgehen wäre.Über eure Hilfe würde ich mich sehr freuen.


Mein Code lautet:

Private Sub CommandButton1_Click()

Set finden = Worksheets("_Meldungen").Columns(1).Find(what:=ComboBox1)

If finden Is Nothing Then
MsgBox "Es wurde kein passendes Objekt gefunden"
Else

ComboBox1 = finden.Offset(0, 0)
Station = finden.Offset(0, 1)
Beschreibung = finden.Offset(0, 3)
Details = finden.Offset(0, 4)
Verantwortlich = finden.Offset(0, 5)
Termin = finden.Offset(0, 6)
Erstelldatum = finden.Offset(0, 10)
Änderungsdatum = finden.Offset(0, 11)

If ComboBox1.Value = "" Or _
Station.Value = "" Then

MsgBox "Kein Eintrag mit dieser ID vorhanden!", vbInformation, "Digitaler Wertstrom"
End If
End If
End Sub

Private Sub CommandButton2_Click()


Dim letztezeile As Integer


letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).row + 1
ActiveSheet.Cells(letztezeile, 1).Value = ComboBox1
Set finden = Worksheets("_Meldungen").Columns(1).Find(what:=ComboBox1)
If finden Is Nothing Then
Else
ComboBox1 = finden.Offset(0, 0)
Station = finden.Offset(0, 1)
Beschreibung = finden.Offset(0, 3)
Details = finden.Offset(0, 4)
Verantwortlich = finden.Offset(0, 5)
Termin = finden.Offset(0, 6)
Erstelldatum = finden.Offset(0, 10)
Änderungsdatum = finden.Offset(0, 11)

MsgBox ("Änderungen wurden gespeichert"), vbInformation, "Digitaler Wertstrom"
End If

Unload Me
End Sub
Private Sub CommandButton3_Click() 'Abbruch Button, drückt man ihn schließt sich die Userform


Unload Me
End Sub


Private Sub Station_Change() 'gibt aus was in Tabelle _Meldungen, Spalte A+1 Spalte weiter rechts drin steht(Spalte B)

Set finden = Worksheets("_Meldungen").Columns(1).Find(what:=ComboBox1)
If finden Is Nothing Then
Else
finden.Offset(0, 1) = Station
End If
End Sub


Private Sub Beschreibung_Change() 'gibt aus was in Tabelle _Meldungen, Spalte A+3 Spalten weiter rechts drin steht(Spalte D)

Set finden = Worksheets("_Meldungen").Columns(1).Find(what:=ComboBox1)
If finden Is Nothing Then
Else
finden.Offset(0, 3) = Beschreibung
End If
End Sub

Private Sub Details_Change() 'gibt aus was in Tabelle _Meldungen, Spalte A+4 Spalten weiter rechts drin steht(Spalte E)
Set finden = Worksheets("_Meldungen").Columns(1).Find(what:=ComboBox1)
If finden Is Nothing Then
Else
finden.Offset(0, 4) = Details
End If
End Sub


Private Sub Termineröffnet_Change() 'gibt aus was in Tabelle _Meldungen, Spalte A+6 Spalten weiter rechts drin steht(Spalte G)
Set finden = Worksheets("_Meldungen").Columns(1).Find(what:=ComboBox1)
If finden Is Nothing Then
Else
finden.Offset(0, 6) = Termineröffnet
End If
End Sub
End Sub

Private Sub Erstelldatum_Change() 'gibt aus was in Tabelle _Meldungen, Spalte A+10 Spalten weiter rechts drin steht(Spalte K)
Set finden = Worksheets("_Meldungen").Columns(1).Find(what:=ComboBox1)
If finden Is Nothing Then
Else
finden.Offset(0, 10) = Erstelldatum
End If
End Sub


Private Sub Verantwortlich_Change()
Set finden = Worksheets("_Meldungen").Columns(1).Find(what:=ComboBox1)
If finden Is Nothing Then
Else
finden.Offset(0, 5) = Verantwortlich
End If
End Sub

 

Hallo,

lade bitte eine anonymisierte Beispieldatei hoch, so ist das nur schwer nachvollziehbar.

 

Hi,

lösche alle Change-Ereignisse der TextBoxen und schreibe deinen Code für den CommandButton nach diesem Prinzip:

Code:

Private Sub CommandButton1_Click()
    Set finden = Worksheets("_Meldungen").Columns(1).Find(what:=ComboBox1)
    If Not finden Is Nothing Then
        finden.Offset(0, 1) = Station
        finden.Offset(0, 3) = Beschreibung
        finden.Offset(0, 4) = Details
        finden.Offset(0, 6) = Termineröffnet
        finden.Offset(0, 10) = Erstelldatum
        finden.Offset(0, 5) = Verantwortlich
    End If
End Sub

Beachte, dass in jeder TextBox Text!! steht, also auch in der TextBox "Erstelldatum" - du müsstest also den Inhalt dieser TextBox noch in ein Datum umwandeln ehe du ihn in die Zelle einträgst.

---

 

Das hier ist meine Datei an sich. Es geht um den Button Meldung bearbeiten in dem Tabellenblatt _Übersicht.

 

Hallo,

von welchem der fünf UserForms schreibst du da?

 

Meinen Beitrag hast du gelesen...?

---

 

Ja, ich hab es auch ausprobiert, dann hat meine Datei die Meldung aber nicht ausgegeben

 

Es geht um die Userform Meldung bearbeiten

 

Vielleicht solltest du einfach die Zeile mit der Meldung im Code ergänzen...?

---

 

Das habe ich getan, es hat wie gesagt aber nicht funktioniert.

 

Dann zeige doch mal deinen jetzigen Code.

---

 

Hallo Tino,

1. ist es nicht nötig, jede vorangegangene Antwort zu zitieren.
2. wenn du das schon machst, dann lasse wenigstens die Signatur raus.