Datensatzsuche per Makro
08.06.2007 09:32:17
tursiops
Ich habe gestern folgenen Code bekommen:
Private Sub CommandButton3_Click()
Dim suchid1 As String, suchid2 As String
Dim b As Integer
Dim neuer_wert As String, SuchAddresse As String
Dim SuchDaten As Byte
Dim Bereich As Range, DatenBereich As Range
suchid1 = Sheets("StD").Range("C2") '1. Suchwert
suchid2 = Sheets("1").Range("A2") '2. Suchwert
For Each Bereich In Sheets("DB K1").Range("A1:AH100")
If Bereich = suchid1 Or Bereich = suchid2 Then
SuchAddresse = Range(Cells(Bereich.Row, 1).Address & ":" & Cells(Bereich.Row, 100). _
Address).Address
For Each DatenBereich In Sheets("1").Range(SuchAddresse)
Sheets("DB K1").Range(DatenBereich.Address) = _
Sheets("1").Cells(2, DatenBereich.Column) 'Bereich mit 1!A2:AH2 Überschreiben
Next DatenBereich
End If
Next Bereich
End Sub
Er soll in der Datenbank (DB_K1) einen bestimmten Datensatz anhand einer ID-Nummer finden und mit dem festen Bereich "1!2:2" überschreiben. Die zu suchende ID-Nummer steht in "1!A2" und ersatzweise nochmal in "StD!C2".
Er funktioniert auch wirklich super - Danke nochmal. Nun die Frage: Ist es möglich dazuzuprogrammieren, dass ein neuer Datensatz angelegt wird, wenn die ID- Nummer nicht gefunden wird? Das würde Bedienfehler beim Speichern ausschließen und eine Schaltfläche in der Datenmaske sparen.
Gruß Frank