Markierung ab aktiver Zelle nach oben
20.01.2021 13:28:47
Timo
ich bastel´ jetzt schon seit heute Morgen und ich glaube, ich komme einfach ohne eure Hilfe nicht weiter.
Mit dem beigefügten Code versuche ich ab der aktiven Zelle nach oben zu markieren bis zur erste leeren Zelle.
Aber egal wo ich das "Searchdirection:=xlPrevious" einfüge, er markiert immer nur von der aktiven Zelle nach unten, nicht wie gewünscht nach oben.
Wisst ihr, an welcher Stelle ich die Suchrichtung vorgeben muss oder ändern muss?
Ganz lieben Dank vorab für Eure Tipps und viele Grüße Timo
Sub Markiertest()
Dim Ziel As String
Dim rngK As Range
Ziel = ActiveCell.EntireColumn.Find(What:="", Searchdirection:=xlPrevious)
Set rngK = ActiveSheet.Range("A" & ActiveCell.Row & ":A" & Cells(Rows.Count, "A").End(xlUp).Row) _
.Find(Ziel)
If Not rngK Is Nothing Then
With ActiveCell
Range("A" & .Row, "A" & rngK.Row).Select
End With
End If
End Sub