Hallo zusammen,
ich hab' mal wieder ein Problem mit meinem Projekt Schülerdatenbank, basierend auf einer Kundendatenbank von Kai Weissmann.
Ich lade die gesamte Datei hoch - damit es im Bedarfsfall eingesehen werden kann.
Mein Problem:
Ich möchte einen Datensatz über ein Eingabeformular ändern. Dazu ist eine Prozedur hinter einem Symbol hinterlegt.
Die VBA Anweisung lautet (fängt mit "else" an, weil vorher noch die Prozedur 'Kunden anlegen' steht):
'Kunde bearbeiten
Else
Zeile = Range("Tabelle1[Kunden-ID]").Find(What:=tb_Eingabeformular.Range("H12").Value _
, LookIn:=xlValues, LookAt:=xlWhole).Row - tbl.HeaderRowRange.Row
End If
Der Fehler scheint im Bezug Range("Tabelle1[Kunden-ID]") zu liegen. Die Syntax hab' ich mehrmals überprüft - ist identisch.
Das einzige, was ich geändert habe, ist der Name der Datei - intern habe ich alle ursprünglichen Bezeichnungen übernommen.
Ich hoffe, die Frage ist nicht zu aufwändig.
Schuelerverwaltung.xlsm (Größe: 111,3 KB / Downloads: 8)
ich hab' mal wieder ein Problem mit meinem Projekt Schülerdatenbank, basierend auf einer Kundendatenbank von Kai Weissmann.
Ich lade die gesamte Datei hoch - damit es im Bedarfsfall eingesehen werden kann.
Mein Problem:
Ich möchte einen Datensatz über ein Eingabeformular ändern. Dazu ist eine Prozedur hinter einem Symbol hinterlegt.
Die VBA Anweisung lautet (fängt mit "else" an, weil vorher noch die Prozedur 'Kunden anlegen' steht):
'Kunde bearbeiten
Else
Zeile = Range("Tabelle1[Kunden-ID]").Find(What:=tb_Eingabeformular.Range("H12").Value _
, LookIn:=xlValues, LookAt:=xlWhole).Row - tbl.HeaderRowRange.Row
End If
Der Fehler scheint im Bezug Range("Tabelle1[Kunden-ID]") zu liegen. Die Syntax hab' ich mehrmals überprüft - ist identisch.
Das einzige, was ich geändert habe, ist der Name der Datei - intern habe ich alle ursprünglichen Bezeichnungen übernommen.
Ich hoffe, die Frage ist nicht zu aufwändig.
![.xlsm](https://www.clever-excel-forum.de/images/attachtypes/xlsm.png)