VBA - UserForm - "Ersetzen"

[TheAgent477]

Hallo zusammen,
eine kurze Frage, könnte mir jemand eventuell den Code aufschreiben wie ich die Abfrage "Ersetzen" in VBA eingeben kann?
Mal ein kurzes Beispiel.

Habe derzeit eine Datenbank in der ich über das UserForm "neue Auftrag Speichern" eine Direkte Datenpflege tätige!
Jetzt soll eine Abfrage erstellt werden sozusagen wenn die gleiche Kundennummer und Materialien eingetragen werden das die jeweiligen anderen Daten mit "Ersetzen" bestätigt werden sollten!

Sozusagen hätte ich dann , Kundennummer, Material , den Kundennamen, die Konstruktion.
dann soll wenn Kundennummer, Material, Kundenname, gleich ist die anderen Werte wie Konstruktion Traglast "ersetzt" werden.

ich lade mal den Code Komplett hoch!
Freue mich auf eure Hilfe!

Grüße, der Anfänger!

Code:

Private Sub TextBox7_Change()

End Sub

Private Sub Button_Abbrechen_Click()
'Eingabefenster schließen
Unload FormularAuftrag

End Sub



Private Sub Button_Speichern_Click()

'Eingaben der Schaltflächen in die Datenbank einpflegen

Dim last As Integer


last = Sheets("Datenbank").Cells(Rows.Count, 1).End(xlUp).Row + 1

       Sheets("Datenbank").Cells(last, 1).Value = FormularAuftrag.Text_Auftragsnummer.Value
       Sheets("Datenbank").Cells(last, 2).Value = FormularAuftrag.Text_Material.Value
       Sheets("Datenbank").Cells(last, 3).Value = FormularAuftrag.Text_Kunde.Value
       Sheets("Datenbank").Cells(last, 4).Value = FormularAuftrag.Text_Konstruktion.Value
       Sheets("Datenbank").Cells(last, 5).Value = FormularAuftrag.Text_Nutzlast.Value


End Sub




Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Text_Auftragsnummer_Change()

End Sub

Private Sub UserForm_Initialize()

'Einträge für die Schaltfläche
FormularAuftrag.Text_Auftragsnummer.Value = "Gib die Auftragsnummer ein."
FormularAuftrag.Text_Material.Value = "Gib das zu fertigende Material ein."
FormularAuftrag.Text_Kunde.Value = "Gib den Kundennamen ein."
FormularAuftrag.Text_Konstruktion.Value = "Gib die Konstruktion ein."
FormularAuftrag.Text_Nutzlast.Value = "Gib den Wert für die Nutzlast ein."


End Sub

[d'r Bastler]

Moin,
als Tipp für den Einstieg:
Schmeiss mal den Makrorecorder an und starte mit Strg+e den Ersetzen-Dialog.
Damit hast Du wenigstens ein Grundgerüst, das Du anapassen kannst.
Grüße

[TheAgent477]

Ich informiere mich gerade darüber wie genau ich den "ersetzen" Dialog einfüge, bis jetzt scheitert es :D
aber danke dir ich bin dabei!

[Klaus-Dieter]

Hallo  TheAgent477,


wenn du dich ernsthaft mit VBA beschäftigen möchtest, solltest du den Makro-Rekorder ganz schnell vergessen. Der liefert dir keinen Quelltext, sondern eher eine Art Log-Datei, in der die verwendeten Tastendrücke dokumentiert werden. 
Für eine konkrete Hilfe solltest du deine Datei, oder wenigstens eine Beispieldatei hochladen, die deiner echten Datei möglichst genau entspricht, wobei wenige Datensätze reichen.