Find-Methode mit xlWhole
09.10.2015 13:07:14
Christian
folgendes Problem tut sich für mich bei der Benutzung der Find-Methode auf.
Es sollen zunächst die zu findenden Begriffe in ein Array eingelesen werden.
Danach erfolgt nacheinander eine Abfrage der Spaltennummer der einzelnen Begriffe aus dem Array.
In der Zeile 3 befinden sich die abzufragenden Begriffe. Gesucht werden soll in der Zeile 2.
Sub FindeSpalte()
Dim Spalte As Integer
Dim Formel() As Variant
Dim x As Long
Dim y As Long
ReDim Formel(8)
For x = 1 To 8
Formel(x) = Worksheets("Tabelle4").Cells(4, x)
Next x
For y = 1 To 8
Spalte = Worksheets("Tabelle4").Range("A2:V2").Find(what:=Formel(y)).Column
MsgBox ("Der Meilenstein " & Formel(y) & " ist in der Spalte " & Spalte & " zu finden.")
Next y
End Sub
Wenn ich hinter den Find-Befehl noch "lookin:=xlwhole" setze, erscheint eine Fehlermeldung(Laufzeitfehler 9. Index außerhalb des gültigen Bereichs)
Vielen Dank für die Hilfe
Christian