Zellen als Start und Ende für Markierung setzen

Computer: Software & Programmierung Visual Basic
#1

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!

#2

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

#3

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 :frowning:
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

#4

Fantastisch!

Besten Dank!

#5

Bereits gelöst, trotzdem danke!