Hallo zusammen:
Ich brauche dringend nochmal Eure Hilfe!
Das Makro, daß ich brauche, soll die Werte, die ich in einem Formular in bestimmte Zellen schreibe, in die zugehörigen Zellen in meiner Kundendatenbank schreiben, jeweils dort in die Zeile, deren Kunden- nummer mit der im Formular übereinstimmen.
Dazu habe ich folgenden Code:
Sub Kundendatenbank_Update( )
Dim z, s As Long
Dim ws As Worksheet
Dim ws1 As Worksheet
Set ws1 = Worksheets("Kundendatenbank.xls")
Set ws = Worksheets("Formular")
Kd_Nr = ws.Range("A2")
Guthaben = ws.Range("E2:J2")
anz = ws1.Range("C65536").End(xlUp).Row
With ws1.Range("c2:c" & anz)
Set c = .Find(Kd_Nr, LookIn:=xlValues)
If Not c Is Nothing Then
z = c.Row
ws1.Cells(z, Cool = 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
Einige Angaben dazu:
Das Formular ist eines der Tabellenblätter der Datei 'Abrechnungsformu-
lar.xls'.
Die Kundendatenbank ist unter 'Kundendatenbank.xls' (nur gleichnamiges
Tabellenblatt darin enthalten) gespeichert.
Die Kundennummer steht im Formular immer in Zelle A2 und in der Kundendatenbank in den Zellen der Spalte A (ab Zelle A2) und ist eindeutig zugeordnet. Die Felder, um die es geht, sind im Formular die Zellen E2 bis J2. Darüber stehen in Zelle E1 bis J1 die Bezeichnungen GhA 2004, GhA 2005, GhA 2006, GhB 2004, GhB 2005 und GhB 2006. Die gleichen Bezeichnungen stehen auch in der Kundendatenbank in den Zellen H1 bis M1. Mit den Einträgen 'Kundendatenbank.xls' und 'Abrechnungsformular. xls' oder 'Kundendatenbank' und Abrechnungsformular' oder 'Kundendatenbank' und 'Formular' (Bezeichnung des betreffenden Tabellenblattes in 'Abrechnungsformular.xls') in den Set-Anweisungen wurde mir immer der 'Laufzeitfehler 9' angezeigt mit der Brgründung, daß sich der Index-Wert außerhalb des Gültigkeitsbereiches befindet. Ich hab dann mal die Kundendatenbank in ein Tabellenblatt in 'Abrechnungsfor-
mular.xls' kopiert (mit 'Kundendatenbank' und 'Formular' als Set-Anwei-
sungs-Einträge). Da wurde mir dann die Meldung 'Kundennummer nicht gefunden angezeigt, obwohl sie nachweislich existiert. Aber letzteres ist ja nicht mein Ziel. Die Kundendatenbank soll schon in der Datei 'Kunden-
datenbank.xls' bleiben.
Wie muß ich nun den oben aufgeführten Code ändern, damit das Makro in 'Kundendatenbank.xls' die richtige Zeile (mit gleicher Kundennummer wie Datensatz im Formular) findet und dort die Zellen in den Spalten H bis M mit den Werten der Zellen E2 bis J2 aus 'Abrechnungsformular.xls' (Tabellenblatt 'Formular') füllt. Ich hab da wirklich keinen Plan, warum das Makro nicht wie gewünscht funktioniert.
Wäre schön, wenn Ihr mir so schnell wie möglich helfen könntet, denn ich brauche die Lösung für das Problem möglichst sofort.
Danke schon mal!
Gruß! |