14.05.2014, 07:50
Hallo
Wo habe ich meinen Denkfehler?
Das Programm steigt bei SuchkriterienLetzteSpalte aus mit dem Fehler:
Wo habe ich meinen Denkfehler?
Code:
Sub Irgendwas()
Dim SuchkriterienErsteSpalte As Integer
Dim SuchkriterienLetzteSpalte As Integer
With ThisWorkbook.Worksheets("Grunddaten")
SuchkriterienErsteSpalte = Application.WorksheetFunction.Match("Feld01", .Range("1:1"), 0)
SuchkriterienLetzteSpalte = Application.WorksheetFunction.Lookup(42, 1 / (.Range("1:1") <> ""), _
Application.WorksheetFunction.Column(.Range("1:1")))
End With
Das Programm steigt bei SuchkriterienLetzteSpalte aus mit dem Fehler:
Code:
Laufzeitfehler 13: Typen unverträglich