Guten Abend zusammen,
mit diesem Suchbefehl lasse ich in meiner Datei im Sheet("Hilfe") ein Datum und einen Buchstaben suchen.
Sub Suchen()
Dim AE, AF as Range
With Wochenplan2
Set AE = Sheets("Hilfe").UsedRange.Find(what:=Wochenplan2.RSG.Value, LookIn:=xlFormulas, lookat:=xlWhole, SearchOrder:=xlByRows)
Set AF = Sheets("Hilfe").UsedRange.Find(what:=Wochenplan2.Textbox1.Value, LookIn:=xlFormulas, lookat:=xlWhole, SearchOrder:=xlByRows)
If Sheets("Monat").cells(AE.row, AF.column).value "" then
.Label700.Caption = Sheets("Hilfe").Cells(AE.Row, AF.Column).Value
End if
End with
Heute nachmittags bekam ich einige Male einen Blockvariablen-Fehler, der plötzlich weg war. Jetzt abends kommt der gleiche Fehler wieder.
Jedes Mal bleibt es bei AF stehen uns zeigt "Nothing" an. Obwohl ich manuell das Datum und den Buchstaben finde. Woran könnte das liegen?
Danke im Voraus und Gruß
A.