ich bin wieder einmal Stunden damit beschäftigt eine sverweis-Funktion über ein anderes Tabellenblatt auszuführen.
Ich bekomme leider einen Laufzeitfehler der mir sagt, dass die Eigenschaft value nicht gesetzt werden konnte.
Was mache ich falsch?!
Private Sub UserForm_Initialize()
'On Error Resume Next
the_value = Sheets("Richtpreise Anlagenkosten").range("tab_heizsystem").Value
With Me
.txtdatum.Value = Application.WorksheetFunction.VLookup(the_value, Sheets("Richtpreise _
Anlagenkosten").range("Tab_Heizsystem"), 64, False)
'...hier kommen noch mehr Zeilen
end with
End Sub