Hallo vielleicht kann mir jemand helfen.....will einen Bereich markieren der sich nach unter verlängern oder verkürzen kann. Leider bekomme ich nicht den Bereich markiert, nur immer einzelne Zellen.
Dem markierten Bereich soll im Anschluss jegliche Formatierung entzogen werden.
Hier meine bislang nicht funktionsfähige Variante:
Oben = Cells(Rows.Count, 4).End(xlUp).Row + 1
Unten = Cells(Rows.Count, 4).End(xlUp).Row + 19
UntHint = Cells(Unter, 12).Select
UntOben = Cells(Oben, 1).Select
Range("UntHint:UntOben").Select
Vielen Dank im vorraus ;-)