Office: Zellen in Tabelle überschreiben!

Hallo liebe Foren Mitglieder,

wünsche allen erst einmal alles gute noch im neuen Jahr *Smilie .

Ich sitzte aktuell vor folgendem Problem und finde kein Lösung. Auch die Suche im Forum hat mich noch nciht direkt weiter gebarcht. Ein Beitrag eines Mitgliedes "VBA - Zellen Überschreiben bei bestätigung in MsgBox" hilft mir hierbei nicht wirklich weiter, wobei ich denke das es evtl in diese Richtung gehen müsste.

Aber nun zu meinem Problem: Ich schreibe über eine UserForm Daten in eine Tabelle (Code ist unten beigefügt). Dies funktioniert bestens. Teile der eingetragen Daten sind in einem Listfeld sichtbar und können über den EditierModus wieder in die Felder der UserForm geladen werden zur Weiterbearbeitung. Wenn jetzt Änderungen an Felder (Check Box, Text Feld, etc.) vornehme und die Daten wieder in die Tabelle schreibe werden diese nicht aktualisiert. Es bleiben weiterhin die erst abgelegten Daten in der Tabelle.

Was muss ich ändern um das gewünschte Ergebnis zu erhalten????

Über Eure Hilfe würde ich mich freuen.

Grüße
Michael

Private Sub cmdDatenschreiben_Click()

' Schreibt die Daten aus der Beschwerde Erfassung in die Datentabelle

Dim lngNeueReihe As Long
Dim zaehlerneu As Double
Dim I As Integer
Dim lLetzte As Long
Dim Clear As String
Dim atage As Long


If SpeichernJN = False Then
MsgBox "Unvollständige Daten", vbCritical, "ACHTUNG"
Exit Sub
End If



'Aktivieren & Neue Reihe berechnen
Worksheets("Datentabelle").Activate
lngNeueReihe = Range("E65536").End(xlUp).Row + 1
If lngNeueReihe = 2 Then
zaehlerneu = 1
Else
zaehlerneu = ActiveSheet.Cells(lngNeueReihe - 1, 1) + 1
End If


If Me.EditZeile 0 Then lngNeueReihe = Me.EditZeile


'Werte eintragen

If Me.EditZeile = 0 Then
ActiveSheet.Cells(lngNeueReihe, 1).Value = zaehlerneu
ActiveSheet.Cells(lngNeueReihe, 2).Value = Environ("userName")
ActiveSheet.Cells(lngNeueReihe, 3).Value = Date
ActiveSheet.Cells(lngNeueReihe, 4).Value = Time
End If
ActiveSheet.Cells(lngNeueReihe, 5).Value = Me.txtName.Value
ActiveSheet.Cells(lngNeueReihe, 6).Value = Me.txtVorname.Value
ActiveSheet.Cells(lngNeueReihe, 7).Value = Me.txtKdnr.Value
ActiveSheet.Cells(lngNeueReihe, 8).Value = Me.cboBeschwf.Value
ActiveSheet.Cells(lngNeueReihe, 9).Value = Me.cboProdukt.Value
ActiveSheet.Cells(lngNeueReihe, 10).Value = Me.cboKat.Value
ActiveSheet.Cells(lngNeueReihe, 11).Value = Me.cboAnl.Value
ActiveSheet.Cells(lngNeueReihe, 12).Value = Me.txtBeschr.Value
ActiveSheet.Cells(lngNeueReihe, 14).Value = Me.txtRegsofort.Value
ActiveSheet.Cells(lngNeueReihe, 16).Value = Me.txtReg8AT.Value
'ActiveSheet.Cells(lngNeueReihe, 18).Value = Me.txtErstat.Value
'ActiveSheet.Cells(lngNeueReihe, 20).Value = Me.txtKulanz.Value
'ActiveSheet.Cells(lngNeueReihe, 22).Value = Me.txtGesch.Value
ActiveSheet.Cells(lngNeueReihe, 30).Value = Environ("userName")
ActiveSheet.Cells(lngNeueReihe, 31).Value = Date
ActiveSheet.Cells(lngNeueReihe, 32).Value = Time

'Berechnet die Durchlaufzeit

atage = Werksarbeitstage(ActiveSheet.Cells(lngNeueReihe, 3).Value, Date, Worksheets("Feiertage").Range("E1:E12"))

ActiveSheet.Cells(lngNeueReihe, 29).Value = atage

'Gibt die Werte in die jeweiligen Felder zurück

If Me.chkErst.Value = True Then
ActiveSheet.Cells(lngNeueReihe, 17).Value = True
ActiveSheet.Cells(lngNeueReihe, 18).Value = Me.txtErstat.Value
Else
Me.chkErst.Value = False
ActiveSheet.Cells(lngNeueReihe, 17).Value = False
ActiveSheet.Cells(lngNeueReihe, 18).Value = ""
End If

If Me.chkKul.Value = True Then
ActiveSheet.Cells(lngNeueReihe, 19).Value = True
ActiveSheet.Cells(lngNeueReihe, 20).Value = Me.txtKulanz.Value
Else
Me.chkKul.Value = False
ActiveSheet.Cells(lngNeueReihe, 19).Value = False
ActiveSheet.Cells(lngNeueReihe, 20).Value = ""
End If

If Me.chkGesch.Value = True Then
ActiveSheet.Cells(lngNeueReihe, 21).Value = True
ActiveSheet.Cells(lngNeueReihe, 22).Value = Me.txtGesch.Value
Else
Me.chkGesch.Value = False
ActiveSheet.Cells(lngNeueReihe, 21).Value = False
ActiveSheet.Cells(lngNeueReihe, 22).Value = ""
End If

If Me.chkEndschSchrb.Value = True Then
ActiveSheet.Cells(lngNeueReihe, 23).Value = True
ActiveSheet.Cells(lngNeueReihe, 24).Value = Me.txtEntscheidat.Value
Else
Me.chkEndschSchrb.Value = False
ActiveSheet.Cells(lngNeueReihe, 23).Value = False
ActiveSheet.Cells(lngNeueReihe, 24).Value = ""
End If

'Gibt den Wert JA oder NEIN in Feld "Beschwerde berechtigt/unberechtigt?" der Datentabelle zurück!
If Me.optBeschwerdeberechtigtJa Then
ActiveSheet.Cells(lngNeueReihe, 25).Value = "Ja"
ElseIf Me.optBeschwerdeberechtigtNein Then
ActiveSheet.Cells(lngNeueReihe, 25).Value = "Nein"
Else
ActiveSheet.Cells(lngNeueReihe, 25).Value = ""
End If

'Gibt den Wert JA oder NEIN in Feld "Beschwerde abschließend geklärt?" der Datentabelle zurück!
If Me.optBeschwGeklJa Then
ActiveSheet.Cells(lngNeueReihe, 26).Value = "Ja"
ActiveSheet.Cells(lngNeueReihe, 28).Value = "abgeschlossen"
Else
ActiveSheet.Cells(lngNeueReihe, 26).Value = "Nein"
ActiveSheet.Cells(lngNeueReihe, 28).Value = "offen"
End If

'Gibt den Wert DCKB oder DL-Finance in Feld "Wenn nein, weitere Bearbeitung durch DCKB oder DL" der Datentabelle zurück!
If Me.optDCKB.Value = True Then
Me.frmWeitereBearb.Visible = True
ActiveSheet.Cells(lngNeueReihe, 27).Value = "DCKB"
ElseIf Me.optDLFinance.Value = True Then
Me.frmWeitereBearb.Visible = True
ActiveSheet.Cells(lngNeueReihe, 27).Value = "DL-Finance"
Else
Me.frmWeitereBearb.Visible = False
ActiveSheet.Cells(lngNeueReihe, 27).Value = " "
End If

' If Me.chkEndschSchrb.Value = True Then
' ActiveSheet.Cells(lngNeueReihe, 23).Value = True
' Else
' Me.chkEndschSchrb.Value = False
' ActiveSheet.Cells(lngNeueReihe, 23).Value = False
' End If

If Me.optRegsofort.Value = True Then
ActiveSheet.Cells(lngNeueReihe, 13).Value = True
Else
Me.optRegsofort.Value = False
ActiveSheet.Cells(lngNeueReihe, 13).Value = False
End If

If Me.optReg8AT.Value = True Then
ActiveSheet.Cells(lngNeueReihe, 15).Value = True
Else
Me.optReg8AT.Value = False
ActiveSheet.Cells(lngNeueReihe, 15).Value = False
End If

' If Me.chkErst.Value = True Then
' ActiveSheet.Cells(lngNeueReihe, 17).Value = True
' Else
' Me.chkErst.Value = False
' ActiveSheet.Cells(lngNeueReihe, 17).Value = False
' End If

' If Me.chkKul.Value = True Then
' ActiveSheet.Cells(lngNeueReihe, 19).Value = True
' Else
' Me.chkKul.Value = False
' ActiveSheet.Cells(lngNeueReihe, 19).Value = False
' End If

' If Me.chkGesch.Value = True Then
' ActiveSheet.Cells(lngNeueReihe, 21).Value = True
' Else
' Me.chkGesch.Value = False
' ActiveSheet.Cells(lngNeueReihe, 21).Value = False
' End If

'Gibt nach demabspeichern des Datensatzes die neue Nr. in der ListBox "lstlfdnr" an

lstlfdnr.Value = Clear

lLetzte = Worksheets("Datentabelle").Cells(Rows.Count, 1).End(xlUp).Row
With lstlfdnr
.ColumnCount = 6
.ColumnWidths = "1cm;0cm;0cm;0cm;2cm;2cm"
.ColumnHeads = True
lstlfdnr.RowSource = "Datentabelle!A2:F" & lLetzte
End With
lstlfdnr.ListIndex = -1

If Me.EditZeile 0 Then
MsgBox "Änderungen wurde " & (lngNeueReihe - 1) & " gespeichert!", , ""
Else
Me.EditZeile = 0
MsgBox "Beschwerde wurde unter der Nummer " & zaehlerneu & " gespeichert!", , ""
End If

ActiveWorkbook.Save

AllesLeeren


End Sub

:)

 

Hi herkules33,

wenn Du ändern willst, hat Me.EditZeile einen Wert 0, die Daten werden aber nur bei Me.EditZeile =0 geschrieben.

Eventuell das If Me.EditZeile = 0 Then weglassen?


Code:

 

Hallo Gerhard,

Danke für den Tipp, der ist schon mal nicht schlecht. Allerdings stellt sich mir eine Frage.
Wenn ich If Me.EditZeile = 0 Then weglasse schreibt er doch bestimmt jedesmal einen neuen Datensatz oder. Das darf jedoch nicht sein. Bei Datensätzen die schon vorhanden sind, jedoch nur Änderungen vorgenommen werden.

Gruß
Michael

 

Hi Michael,

hast recht, kannst Du das Excel hier reinstellen?

 

Hallo Gerhard,

im Anhang findest Du die Datei. Mir geht es erst einmal um die Daten für die Checkbox "Erfassung".

Grüße
Michael

 

Hi herkules33,

so wie es aussieht, wurde "lngNeueReihe" nicht auf die Zeile der Änderung gesetzt.

in Private Sub cmdDatenschreiben_Click():
Code:

 

Hallo Gerhard,

ich hab Deinen Vorschlag mal eingebaut. Ist leider nicht des Rätzels Lösung. Mit

If Me.EditZeile 0 Then
lngNeueReihe = Me.EditZeile
...

Passieren tut nun folgendes:
Es wird der alte Zähler überschrieben! Die Daten ab Spalte "H" in der Datentabelle die sich möglicherweise änder können bleibe jedoch weiterhin stehen. Diese Aktualierung greift nicht.

Ich hab gerade keine Idee an welcher Stellschraube ich hier drehen muss das es geht?????*frown.gif*
Gruß
Michael

 

Hi Michael,

ok, dann gehen wir mal weiter

Code:

Prüfs mal bitte.

 

Hallo Gerhard,

danke für die Info hab es erst heute gesehen! Komme allerdings mit dem letzten Teil Deines Code nicht ganz klar.
Das ist mein Teil jetzt:

Private Sub lstlfdnr_Change()

ThisWorkbook.Worksheets("Datentabelle").Activate

Me.EditZeile = lstlfdnr.ListIndex + 2
Me.Modus = "EDIT-Modus"


txtName = Cells(lstlfdnr.ListIndex + 2, 5)
txtVorname = Cells(lstlfdnr.ListIndex + 2, 6)
txtKdnr = Cells(lstlfdnr.ListIndex + 2, 7)
cboBeschwf = Cells(lstlfdnr.ListIndex + 2, 8)
cboProdukt = Cells(lstlfdnr.ListIndex + 2, 9)
cboKat = Cells(lstlfdnr.ListIndex + 2, 10)
cboAnl = Cells(lstlfdnr.ListIndex + 2, 11)
txtBeschr = Cells(lstlfdnr.ListIndex + 2, 12)
txtRegsofort = Cells(lstlfdnr.ListIndex + 2, 14)
txtReg8AT = Cells(lstlfdnr.ListIndex + 2, 16)
txtErstat = Cells(lstlfdnr.ListIndex + 2, 18)
txtKulanz = Cells(lstlfdnr.ListIndex + 2, 20)
txtGesch = Cells(lstlfdnr.ListIndex + 2, 22)
txtEntscheidat = Cells(lstlfdnr.ListIndex + 2, 24)
'oben OK

If IsEmpty(Cells(lstlfdnr.ListIndex + 2, 13)) Then
optRegsofort = False
optReg8AT = False
Else
optRegsofort = Cells(lstlfdnr.ListIndex + 2, 13)
optReg8AT = Cells(lstlfdnr.ListIndex + 2, 15)
End If
optRegsofort_Click

If IsEmpty(Cells(lstlfdnr.ListIndex + 2, 17)) Then
chkErst = False
chkKul = False
chkGesch = False
Else
chkErst = Cells(lstlfdnr.ListIndex + 2, 17)
chkKul = Cells(lstlfdnr.ListIndex + 2, 19)
chkGesch = Cells(lstlfdnr.ListIndex + 2, 21)
End If

If Me.chkErst = False And Me.chkKul = False Then
Me.frmBetrag.Visible = False
Else
Me.frmBetrag.Visible = True
End If

If Me.chkGesch = False Then
Me.frmGeschenk.Visible = False
Else
Me.frmGeschenk.Visible = True
End If


If IsEmpty(Cells(lstlfdnr.ListIndex + 2, 23)) Then
chkEndschSchrb = False
Else
chkEndschSchrb = Cells(lstlfdnr.ListIndex + 2, 23)
End If

Me.txtEntscheidat = Cells(lstlfdnr.ListIndex + 2, 24)

If IsEmpty(Cells(lstlfdnr.ListIndex + 2, 25)) Then
optBeschwerdeberechtigtJa = False
optBeschwerdeberechtigtNein = False
ElseIf Cells(lstlfdnr.ListIndex + 2, 25) = "Ja" Then
optBeschwerdeberechtigtJa = True
optBeschwerdeberechtigtNein = False
ElseIf Cells(lstlfdnr.ListIndex + 2, 25) = "Nein" Then
optBeschwerdeberechtigtJa = False
optBeschwerdeberechtigtNein = True
End If

If IsEmpty(Cells(lstlfdnr.ListIndex + 2, 26)) Then
optBeschwGeklJa = False
optBeschwGeklNein = False
frmWeitereBearb.Visible = False
ElseIf Cells(lstlfdnr.ListIndex + 2, 26) = "Ja" Then
optBeschwGeklJa = True
optBeschwGeklNein = False
optDCKB = False
optDLFinance = False
frmWeitereBearb.Visible = False
ElseIf Cells(lstlfdnr.ListIndex + 2, 26) = "Nein" Then
optBeschwGeklJa = False
optBeschwGeklNein = True
frmWeitereBearb.Visible = True
End If

If Me.optBeschwGeklJa = False And Me.optBeschwGeklNein = False Then
Me.frmWeitereBearb.Visible = False
End If

If IsEmpty(Cells(lstlfdnr.ListIndex + 2, 27)) Then
optDCKB = False
optDLFinance = False
frmWeitereBearb.Visible = False
ElseIf Cells(lstlfdnr.ListIndex + 2, 27) = "DCKB" Then
optDCKB = True
optDLFinance = False
frmWeitereBearb.Visible = True
ElseIf Cells(lstlfdnr.ListIndex + 2, 27) = "DL-Finance" Then
optDCKB = False
optDLFinance = True
frmWeitereBearb.Visible = True
End If
End Sub

Heißt das das fett markierte kann ich aus klammern?? Warum dann aber doppelt End If???

Wäre nett wenn Du mir das noch erläutern könntest.

Danke & Gruß Michael

 

Hi Michael,

Du klickst zum Editieren von einem Datensatz im Fenster "Vorgänge" einen datensatz an. Dieses Fenster heisst "lstlfdnr", mit dem Auswählen eines Datensatzes startet automatisch "lstlfdnr_Change" und füllt Dir die Textboxen mit den Daten. Mit "Me.Modus = "EDIT-Modus" " steht jetzt auch EDIT-Modus in der Userform.
Jetzt änderst Du zB den Vornamen und klickst "Daten in Tabelle schreiben". "cmdDatenschreiben_Click" schreibt jetzt die geänderten daten in die Tabelle. Und genau deshalb wird wieder "lstlfdnr_Change" aufgerufen und füllt Deine Textboxen erneut mit den alten Werten aus der Tabelle, und überschreibt die Änderung in den Textboxen, bevor die Änderung in die Tabelle geschrieben wird.

Deshalb muss "lstlfdnr_Change" gestoppt werden, wenn Du bereits im Edit-Modus bist und die Änderungen schreiben willst. Der Stopp ist die neue IF gleich am Anfang der Sub:
"If Me.Modus "EDIT-Modus" Then 'GK"
und deshalb natürlich am Ende der Sub noch ein "Endif". Denn Du willst jetzt ja in die tabelleschreiben, und nicht noch einmal die Textboxen mit den alten Werten befüllen.

Bei "AllesLeeren" wird noch in der Userform der "EDIT-Modus" auf Null gesetzt, weil jetzt der Editiervorgang ja beendet ist.

 

Hallo Gerhard,

danke für die kurze Erläuterung *Smilie . Heute Morgen hab auch ich es dann kapiert. Funktioniert genau so wie ich es haben wollte.

Nochmal vielen Dank für Deine Unterstützung.

Beste Grüße
Michael