Hallo,
ich habe eine Excel Tabelle mit diversen Daten.
Per VBA Befehl lasse ich mir die letzte Zelle mit Daten markieren.
Gibt es eine Möglichkeit den gesamten Bereich (spaltenübergreifend) unter dieser Zelle zu löschen (darin sind anderweitige Daten die nicht mehr benötigt werden)?
Zweites Problem:
Ich lasse per VBA über eine Userform (Combobox Eintrag) eine Zelle suchen und danach diese und die 100 darunterliegenden Zellen markieren. Ist es möglich statt der 100 Zellen eine „Markierungszelle“ mit bestimmten Inhalt, sagen wir „x“, unter die Spalte zu setzen und die Markierung nur bis dort laufen zu lassen?
Ich hoffe das war einigermaßen verständlich!
Hallo,
Hallo kasamui,
Gibt es eine Möglichkeit den gesamten Bereich
(spaltenübergreifend) unter dieser Zelle zu löschen (darin
sind anderweitige Daten die nicht mehr benötigt werden)?
Der folgende Makro löscht alles unter der aktiven Zelle:
Sub allesUnterActiveCellWeg()
Range(Cells(ActiveCell.Row + 1, 1), Cells(Cells.Rows.Count, Cells.Columns.Count)).Clear
End Sub
Zweites Problem:
Ich lasse per VBA über eine Userform (Combobox Eintrag) eine
Zelle suchen und danach diese und die 100 darunterliegenden
Zellen markieren. Ist es möglich statt der 100 Zellen eine
„Markierungszelle“ mit bestimmten Inhalt, sagen wir „x“, unter
die Spalte zu setzen und die Markierung nur bis dort laufen zu
lassen?
Der folgende Makro selektiert alles von der aktiven Zelle bis zu ersten Zelle darunter, in der ein x steht:
Sub allesBisXMarkieren()
Dim zeile As Long
zeile = Range(ActiveCell, Cells(Cells.Rows.Count, ActiveCell.Column)).Find("x").Row
Range(ActiveCell, Cells(zeile, ActiveCell.Column)).Select
End Sub
Ich hoffe das war einigermaßen verständlich!
Ich denke schon.
Gruß, Andreas
Hallo Kasamui,
Per VBA Befehl lasse ich mir die letzte Zelle mit Daten
markieren.
Gibt es eine Möglichkeit den gesamten Bereich
(spaltenübergreifend) unter dieser Zelle zu löschen
was ist für dich die letzte Zelle? Für ein Blatt ist das für mich
die Zelle in der untersten benutzten Zeile in der rechtesten Spalte.
Zeig mal bitte deinen Code.
Möglicherweise suchst du in A von oben kommend die erste Zelle
wo drunter eine Leerzelle ist und dadrunter soll quer über alle
Spalten alle Zeilen gelöscht werden.
Ich lasse per VBA über eine Userform (Combobox Eintrag) eine
Zelle suchen
Du suchst nach Zellinhalt oder direkt nach dem Zellnamen?
und danach diese und die 100 darunterliegenden
Zellen markieren.
Das verstehe ich.
Ist es möglich statt der 100 Zellen eine
„Markierungszelle“ mit bestimmten Inhalt, sagen wir „x“, unter
die Spalte zu setzen und die Markierung nur bis dort laufen zu
lassen?
Das verstehe ich nicht 
Fest 100 willste nicht. Vllt. willste 67 Zeilen/Zellen, woher weiß
Vba was du willst? Welche Zelle soll denn die Markierungszelle
werden, warum die und warum nicht die eins drunter o.ä.?
Ich hoffe das war einigermaßen verständlich!
Naja, lag sicher an mir daß es nicht so ist *gg*
Gruß
Reinhard
Bereits gelöst, trotzdem danke!