Variable Bereiche löschen
Rudolf
Ich benötige (mal wieder) Hilfe. Trotzdem Danke wenn es euch zuviel Arbeit machen sollte und ihr es ablehnt.
Nach dem Makro unten würde ich gerne ständig wechselne Bereiche oberhalb der "Fundzelle) links und rechtes unterbrochen durch eine gesperrten Spalte markieren und löschen.
z.B.
Wenn der letzte gefundene Wert in Sp G auf Zeile 9 (Aktive Zelle = G10) gefunden wird, soll
A6:G9 markiert; H6:H9 nicht (gesperrte Formel); I6:I9 markiert, nach Sicherheitsabfrage (OK/Abbrechen)gelöscht werden.
Die Suche erfolgt auf G6:G400.
Gelöscht werden soll Zeile/n oberhalb/ l.u.r. (Sp A-G ja;H nicht; I ja) der Markierung bis einschl. Zeile 6.
(hier beginnt das Fixierte Fenster Z 5-1) ausgenommen Sp H.
Zur Sicherheit lade ich noch eine Ansichttabelle hoch, die jedoch ohne Makros ist. Halt nur als Modell.
https://www.herber.de/bbs/user/65350.xls
Phuuuu.....; das war jetzt ein Akt.
Kann/möchte jemand helfen?
Gruß
Rudolf
Sub Sortieren_Gesund()
' Sortieren_Gesund Makro
Call Frei
On Error GoTo Ende
Range("A6:I400").Select
Selection.Sort Key1:=Range("G6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
Ende:
Call Sperren
End Sub