Ich suche mit folgendem Code nach einer Zeile und Spalte:
With Worksheets("Test")
For Start = 1 To 8
Zug = .Cells(2 + Start, 1)
For x = 1 To AnzTage
Datum = .Cells(1, 5 + x)
With Worksheets("Muster")
.Select
Zeile_Source = .Application.Match(Zug, .Columns(5), 0)
If Not IsNumeric(Zeile_Source) Then GoTo weiter
Spalte_Source = .Application.Match(Datum, Rows(1), 0)
End With
x = x + 1
Next x
weiter:
Next Start
End With
1)Bei der Suche nach Datum (Spalte_Source) erhalte ich immer den Fehler 2042, obwohl im Blatt Test wie auch im Blatt Muster die Zellen dasselbe Datum-Format aufweisen und das gesuchte Datum in Zeile 1 vorhanden ist. Woran liegt das?
2)Bei der Suche nach Zug kann es einen Fehler geben, weil nicht vorhanden. Ich versuchte den Fehler mit On Error GoTo weiter abzufangen, läuft aber bei Fehler dennoch zum nächsten Code. Deshalb neu mit If not IsNumeric.
3) Muss ich bei .Application.Match vorher das Blatt selektieren (erhielt sonst Fehler)
Danke für die Hilfe und Gruss
Gregor