Ich habe ein Userform in dem Daten aus einer Liste ausgewählt werden können, oder wenn Sie noch nicht in der Liste vorhanden sind manuell eingetragen werden können. Beim schließen der Userform wird eine Methode aufgerufen, die mittels find prüft ob neue Daten eingegeben worden und wenn ja diese in das Tabellenblatt "Antragssteller" übernimmt.
Hier erfolgt der Aufruf von "Neuer Antragssteller" vorm schließen der Userform:
Private Sub CommandButton1_Click()
Dim Name As String, Str As String, PLZ As String, Ort As String, _
Ansprechpartner As String, Telefon As String, BLZ As String, _
Kto As String, KUST As String
Name = TextBox2.Value
Str = TextBox3.Value
PLZ = TextBox4.Value
Ort = TextBox5.Value
Ansprechpartner = TextBox6.Value
Telefon = TextBox7.Value
BLZ = TextBox8.Value
Kto = TextBox9.Value
KUST = TextBox10.Value
Call EingabenUebernehmen
Call NeuerAntragssteller(Name, Str, PLZ, Ort, Ansprechpartner, Telefon, BLZ, Kto, KUST)
Unload Me
End Sub
Hier die Methode die aufgerufen wird:
Sub NeuerAntragssteller(Name As String, Str As String, _
PLZ As String, Ort As String, Ansprechpartner As String, Telefon As String, _
BLZ As String, Kto As String, KUST As String)
Dim C As Range
aRow = Sheets("Antragssteller").Range("A65536").End(xlUp).Row
If aRow > 1 Then Set C = Sheets("Antragssteller").Range("A:A").Find(What:=Name, lookat:=xlWhole)
If Not C Is Nothing Then Exit Sub
Sheets("Antragssteller").Range("A" & aRow + 1) = Name
End Sub
Ich erhalte beim Ausdruck "Set C = Sheets("Antragssteller").Range("A:A").Find(What:=Name, lookat:=xlWhole)" die Fehlermeldung:
"Die Find-Eigenschaft des Range-Objektes kann nicht zugeordnet werden"
Komischerweise funktioniert die Methode "NeuerAntragssteller" wenn ich sie von einer anderen Stelle aufrufe als aus der Userform wunschgemäß und läuft ohne Fehlermeldung durch. Nur der Aufruf aus der Userform bringt die geschilderte Fehlermeldung.
Woran kann das liegen?
Viele Dank für eure Hilfe!
Gruß
Rudi