Makro Suche in den Zelle springen
29.10.2022 19:39:26
Hans
ich habe ein Makro aufgenommen. Leider funktioniert das nur bedingt. Das Skript macht alles richtig bis zu dem Punkt dem Suchen.
Im Endeffekt soll das Skript das Wort "FRÜH" suchen, in die Zelle springen, 2 Zellen nach rechts und bis zum Spaltenende markieren.
Leider kann ich das nicht ganz beschreiben, die Tastenkombination wäre Umschalttaste + Strg + Pfeiltaste unten und dann Pfeiltaste rechts.
Das Skript hingegen sucht und springt dann zur Celle C86. Liegt wahrscheinlich an meiner Aufnahme, leider weiß ich auch nicht ganz wie ich das realisieren soll.
Hat jemand von euch eine Idee?
Der Code:
Sub Formatierung_Version1()
Sheets("Data").Select
Rows("3:3").Select
Selection.NumberFormat = "m/d/yyyy"
Columns("A:A").EntireColumn.AutoFit
Range("A3").Select
Cells.Find(What:="FRÜH", After:=ActiveCell, LookIn:=xlFormulas2, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range("C86").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.NumberFormat = "0.00"
Sheets("Monatlich").Select
End Sub