Änderungen speichern über Userform

Leolo · 2025-12-23T09:30:10+01:00

Hallo zusammen! Ich bin dabei eine kleine Datenbank zur Aktenverwaltung mit Excel zu erstellen. Ich habe erst angefangen mich mit VBA zu beschäftigen, und mir meine bisherigen Codes eher zusammengesucht. Meine Kenntnisse sind daher sehr gering. Ich habe eine Userform mit verschiedenen Textboxen zur Datenerfassung. Zum Bearbeiten von Datensätzen habe ich eine weitere Userform mit Suchfunktion (nach einmalig vergebenem Aktenzeichen aus Spalte Q bzw. 17), die mir dann eine Trefferliste anzeigt, welche ich dann entsprechend bearbeiten kann. Mein Code zum Änderungen speichern stimmt leider nicht, da der geänderte Datensatz immer in einer Zelle nach dem letzten Datensatz aufgeführt wird, und nicht den bereits bereits bestehenden Datensatz in dieser Zeile überschreibt/ändert. Vielleicht kann mir jemand von euch helfen, vielen Dank bereits im Voraus und liebe Grüße! --- Das Problem scheint an der Zeile i = i + 1 zu liegen. Wenn ich diese aber rausnehme, speichert es gar nichts ab und das Programm hängt sich auf. Hier mein Modul für die Trefferzeile: Public Function TrefferZeileNeu(blatt As Worksheet, StartZeile As Integer, StartSpalte As Integer, treffer As MSForms.ComboBox) As Integer 'zugehöriges Tabellenblatt aktivieren blatt.Activate 'Variablen definieren Dim i As Integer 'Variablen Werte zuweigen i = StartZeile Do While Cells(i, StartSpalte).Value > "" If Cells(i, StartSpalte).Value = treffer Then 'Treffer Exit Do Else 'Kein Treffer End If i = i + 1 Loop TrefferZeileNeu = i End Function ---- Meine Userform sieht dann so aus: Private Sub CB_ÄnderungenSpeichern_Click() Dim i As Integer Dim OrtderEinlagerung As String Dim Eingelagertdurch As String i = TrefferZeileNeu(Sheets("Datenbank"), 11, 2, Me.ComboBoxTreffer) OrtderEinlagerung = Me.TextBoxOrtderEinlagerung.Text Eingelagertdurch = Me.TextBoxEingelagertdurch.Text 'Werte in das Tabellenblatt eintragen Cells(i, 4).Value = OrtderEinlagerung Cells(i, 5).Value = Eingelagertdurch MsgBox "Die Änderungen wurden gespeichert!",

Hallo Uwe,

wie gesagt, meine Kenntnisse beschränken sich leider auf ein Minimum, dass ich mit dem gearbeitet habe was ich online finden konnte :) Eine intelligente Tabelle habe ich angelegt.

Vom Arbeitsrechner aus kann ich leider gar nichts ins Internet hochladen - anbei habe ich mal meine Codes aufgeführt (Falls das zu umständlich ist lade ich die Beispieldatei heute Abend von zu Hause aus hoch) - vielen Dank dir schonmal!

Liebe Grüße Leo
----------------------
DatensatzBearbeitenModul:

Sub Schaltfläche10_Klicken()

UserFormBearbeiten.Show

End Sub

Public Sub EintragSuchen(form As UserForm)

ThisWorkbook.Worksheets("Datenbank").Activate
form.ComboBoxTreffer.ClearDaten

'Variablen definieren
Dim i As Integer 'Startzeile
Dim Zelleneintrag As String
Dim Eingabe As String

'Variablen Werte zuweisen
i = 11 'Die erste relevante Zelle ist 11
Zelleneintrag = StrConv(Cells(i, 5).Value, vbUpperCase)
Eingabe = StrConv(form.TextBoxSuchen, vbUpperCase)

'Zeichenketten vergleichen
Do While Cells(i, 5).Value > ""
If InStr(Zelleneintrag, Eingabe) > 0 Then
'Treffer
form.ComboBoxTreffer.AddItem Cells(i, 5).Value
Else
'Kein Treffer
'nichts passiert
End If

i = i + 1
Zelleneintrag = StrConv(Cells(i, 5).Value, vbUpperCase)
Loop

'Erster Eintrag aller Suchergebnisse in der ComboboxTreffer anzeigen
If form.ComboBoxTreffer.ListCount > 0 Then
form.ComboBoxTreffer.ListIndex = 0
End If
End Sub

Public Function TrefferZeile(form As UserForm) As Integer

'zugehöriges Tabellenblatt aktivieren
ThisWorkbook.Worksheets("Datenbank").Activate

'Variablen definieren
Dim i As Integer 'Die Variable i geht alle Zeilen durch

'Variablen Werte zuweigen
i = 11 'Die erste relevante Zelle ist 11

Do While Cells(i, 5).Value > ""
If Cells(i, 5).Value = form.ComboBoxTreffer Then
'Treffer
Exit Do
Else
'Kein Treffer
End If

i = i + 1
Loop

TrefferZeile = i

End Function

Public Function TrefferZeileNeu(blatt As Worksheet, StartZeile As Integer, StartSpalte As Integer, treffer As MSForms.ComboBox) As Integer

'zugehöriges Tabellenblatt aktivieren
blatt.Activate

'Variablen definieren
Dim i As Integer 'Die Variable i geht alle Zeilen durch

'Variablen Werte zuweigen
i = StartZeile

Do While Cells(i, StartSpalte).Value > ""
If Cells(i, StartSpalte).Value = treffer Then
'Treffer
Exit Do
Else
'Kein Treffer
End If

i = i + 1
Loop

TrefferZeileNeu = i

End Function

-----------
UserFormBearbeiten

Private Sub CB_ÄnderungenSpeichern_Click()

Dim i As Integer
Dim Ort_der_Einlagerung As String
Dim Az As String
Dim Besitzer As String

'Den Variablen Werte zuweisen
i = TrefferZeileNeu(Sheets("Datenbank"), 11, 2, Me.ComboBoxTreffer)
Ort_der_Einlagerung = Me.TextBoxOrtderEinlagerung.Text
Az = Me.TextBoxAz.Text
Besitzer = Me.TextBoxBesitzer.Text

'Werte in das Tabellenblatt eintragen
Cells(i, 4).Value = Ort_der_Einlagerung
Cells(i, 5).Value = Az
Cells(i, 6).Value = Besitzer

MsgBox "Die Änderungen wurden gespeichert!", vbInformation, "Erfolg"
Unload Me

End Sub

Private Sub CB_Zurück_Click()
'Fenster schließen ohne Speichern, zurück zur Übersicht

Unload Me
End Sub

Private Sub ComboBoxTreffer_Change()

'Informationen zum Treffer in den Steuerelementen anzeigen

'Trefferzeile ausgeben
Dim i As Integer
i = TrefferZeile(Me)

'Informationen des Treffers angeben
Me.TextBoxLfdNr.Text = Cells(i, 2).Value
Me.TextBoxOrtderEinlagerung.Text = Cells(i, 4).Value
Me.TextBoxAz.Text = Cells(i, 5).Value
Me.TextBoxBesitzer.Text = Cells(i, 6).Value

End Sub

Private Sub TextBoxSuchen_Change()

'Programm EintragSuchen aufrufen und anwenden
EintragSuchen Me

End Sub

Private Sub UserForm_Initialize()

ThisWorkbook.Worksheets("Datenbank").Activate

End Sub

Hallo Leo,

du denkst noch in „Papier“ und damit viel zu kompliziert. Außerdem scheint es, dass du deine Aufgabe quasi in „Einzelaktionen“ zerlegt hast, die du dann nacheinander in Prozeduren gießt. Da kommt zuweilen viel zu viel Code bei heraus. Dieser wird dann schnell unübersichtlich und schwer zu pflegen.

Mache dir besser vorher einen Plan, welche einzelnen „Aktionen“ das Programm erledigen soll, aber progge nicht einfach drauflos.

z.B.: wenn meine Daten in Zeile 1 Überschriften haben und somit in Zeile 2 beginnen und ich die Daten ohne Überschrift in eine Combobox/Listbox eingelesen habe, habe ich bereits eine genaue Kenntnis, dass der zu bearbeitende Datensatz mit dem Index 8 aus der Datentabelle Zeile 10 kommt und auch dort wieder gespeichert werden sollte.
Wohe weiss ich das? Comboboxen/Listboxen sind 0-basiert indexiert => der erste Datensatz aus Zeile 2 hat also in der Combobox/Listbox den Index 0 usw.

Damit kann deine Suche entfallen und du schreibst deinen geänderten Datensatz in die Zeile …index +2

Z.B.: es gibt nur einen winzigen Unterschied, wie man einen neuen Datensatz bzw. einen geänderten Datensatz aus der Userform in die Tabelle schreibt. Lediglich die Zeile ist entscheidend. Neuer Datensatz wird unten angehängt, geänderter Datensatz kommt zurück in die Herkunftszeile. Das macht man dann, indem man einem „writeData-Unterprogramm“ parametrisiert die Zeile, in die zu schreiben ist, mitteilt.

Wenn du dann noch z.B. deine Controls mit deinen Datenfeldern syncronisiert hast, kannst du dir die Arbeit des einlesen/auslesen mit Schleifenoperationen erleichtern. Falls ich überhaupt mit Userforms arbeite, belasse ich die Namen der Steuerelemente und kann mit



for i = 1 to 10

         Me.Controls(„TextBox“ & i).value = Cells(i,1).value

 Next

einfach iterieren.

Mach dich mit dem Umgang mit Arrays vertraut, das erspart dir ebenfalls sehr viel proggen.

Das nur als Anregung, um dir etwas für die weihnachtliche Langeweile mitzugeben

emkaes

Änderungen speichern über Userform

Forumthread: Änderungen speichern über Userform

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Änderungen speichern über Userform

Forumthread: Änderungen speichern über Userform

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread