Hallo zusammen:
Ich habe ein Makro, daß in einer Datenbank einen bestimmten Datensatz
(durch suchen der Kundennummer, die auch im Formular steht) finden soll und dort in bestimmte Felder Werte aus Formular reinkopieren soll. Der Code ist folgender:
Sub Kundendatenbank_Update()
Dim z&, Kd_Nr&
Dim c As Range
Dim ws As Worksheet
Dim ws1 As Workbook
Set ws1 = Workbooks("Kundendatenbank.xls")
Set ws = Worksheets("Formular")
Kd_Nr = ws.Range("A2")
Set Guthaben = ws.Range("E2:J2")
With Workbooks("Kundendatenbank.xls").Sheets(1)
Set c = .[C:C].Find(Kd_Nr, LookIn:=xlValues)
If Not c Is Nothing Then
ws1.Cells(z, 8) = GhA_2004
ws1.Cells(z, 9) = GhA_2005
ws1.Cells(z, 10) = GhA_2006
ws1.Cells(z, 11) = GhB_2004
ws1.Cells(z, 12) = GhA_2005
ws1.Cells(z, 13) = GhA_2006
Else
MsgBox "Kundennummer wurde nicht gefunden!"
End If
End With
End Sub
Warum bringt er immer die Msgbox: "Kundennummer wurde nicht gefunden!"? Die Kundennummer ist doch nachweislich vorhanden.
Woran kann es liegen? Gibt es jemanden, der das weiß?
Für schnelle Hilfe wäre ich Euch dankbar. |