Office: UserForm zum Ändern und Erweitern einer Datenbank

Ich habe eine UserForm, in der eine Kundennummer eingegeben werden kann. Ist die Kundennummer bereits in Tabelle 3 enthalten, werden die Daten aus Tabelle 3 eingespielt (z.B. Kundenname). Ist die Kundennummer noch nicht angelegt, bleibt die Tabelle leer. Als nächstes können Daten eingegeben bzw. geändert werden und dann auf Speichern geklickt werden.

Ich möchte nun die Einträge in Tabelle 3 überschreiben, falls die Kundennummer bereits vorhanden ist und z.B. ein anderer Kundenname eingegeben wird ODER, falls die Kundennummer noch nicht vorhanden ist, eine neue Zeile mit den Einträgen aus der UserForm füllen. Ich bekomme beides einzeln für sich hin, aber nicht in Kombination und bräuchte Hilfe. Bei unten stehendem Code scheint das Problem zu sein, dass er immer in die Else-Schleife geht, da ich beim Speichern die Messagebox „Gespeichert“ erhalte, auch wenn die Kundennummer aus TextBox13 bereits in Tabelle 3 enthalten ist. Kommentiere ich die Else-Schleife aus, werden allerdings die Daten bei einer Änderung in der richtigen Zeile überschrieben.

Code:

Private Sub CommandButton3_Click() ‘Beim Click auf Speichern

Dim lzeile As Long
lzeile = 2 ‘in Zeile 1 sind Überschriften

Do While Trim(CStr(Tabelle3.Cells(lzeile, 1).Value)) ""

If TextBox13.Text = Trim(CStr(Tabelle3.Cells(lzeile, 1).Value)) Then
‘Suche Kundennummer in Tabelle 3 (TextBox13 enthält Kundennummer, TextBox 2 enthält Kundenname)

Tabelle3.Cells(lzeile, 2).Value = TextBox2
MsgBox "Bestehender Eintrag wurde aktualisiert", vbOKOnly, "Meldung"
TextBox2 = ""

Else ‘Sonst wenn Kundennummer noch nicht in Tabelle 3

Worksheets(3).Select
lzeile = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(lzeile, 1).Select 'Spalte 1 Kundennummer
ActiveCell.Value = TextBox13.Text
ActiveCell.Offset(0, 1).Select 'Spalte 2 Kundenname
ActiveCell.Value = TextBox2.Text
MsgBox "Gespeichert", vbOKOnly, "Meldung"
TextBox2 = ""

End If

lzeile = lzeile + 1

Loop

End Sub

:)

 

Hi Annett (das ist die Anrede im Beitrag),


(hier folgt der Beitragstext)

der einfachste Weg dir helfen zu können wäre eine hochgeladene Beispielmappe, eventuell mit anonymisierten Daten.


(und am Ende eines Beitrags steht eine Unterschrift mit Namen - ein derartiger Beitragsaufbau sollte einfach eine Frage der Höflichkeit im Umgang miteinader und damit eine Selbstverständlichkeit sein)

 

Hallo Karin,

vielen Dank für deine Antwort. Anbei die anonymisierte Datei.

Liebe Grüße Annett

 

Hi Annett,

deine beiden UserForms haben einige "Baustellen", die man unbedingt verbessern sollte um dabei die Performance steigern zu können. Da dabei aber einiges voneinander abhängt und eins in andere greift, ist das Ganze leider nicht in 5 min erledigt - ich hoffe also, du wirst nicht ungeduldig. Sobald ich einen gewissen und funktionierenden Stand erreicht habe, poste ich diesen sofort.

 

Hi Annett,

ich habe mich mal auf das UserForm2 konzentriert. Folgende Änderungen:

1. es gibt 2 OptionButton um unterscheiden zu können, ob es sich um die Bearbeitung von bereits vorhandener Daten oder die Neuerfassung handelt

2. ich habe eine ComboBox ergänzt für die Auflistung bereits vorhandener Daten. Die ComboBox hat die Eigenschaft MatchRequired True, damit nur die vorhandenen Einträge ausgewählt werden können

3. Beim Start des UserForms ist der OptionButton für Bearbeitung aktiv, die TextBox13 unsichtbar aber die ComboBx sichtbar. Beide liegen auf dem UserForm etwas versetzt vor, damit du sehen kannst, was geändert wurde. Später kannst du die ComboBox auf die TextBox legen, damit beide an derselben Position angezeigt werden

4. wird der OptionButton für Neuerfassung aktiviert, "verschwindet" die ComboBox und TextBox13 wird sichtbar, sodass neue Kundennummern eingegeben werden können


Schau es dir mal an ob es deinen Vorstellungen entspricht.

Für UserForm1 kannst du dann dasselbe Prinzip übernehmen (2. Prozeduren habe ich dahingehend schon überarbeitet).