Zellen (Zeilen / Spalten) entfernen mit der Delete Methode [Excel VBA in 100 Sekunden]

❤️ Meine Arbeit unterstützen: / @scienzless
Excel VBA in 100 Sekunden - Die Delete Methode
Alle Videos & Codes, KOSTENLOS & OHNE ANMELDUNG: 💥 www.excel-vba-... 💥
---
Die Delete Methode entfernt einen Bereich in unserem Tabellenblatt. Dabei gilt es zu berücksichtigen, dass sich benachbarte Zellbereiche verschieben, um die entstandene "Lücke" zu schließen.

[@scienzless]

💥 Übersicht ALLER EXCEL VBA BEFEHLE 💥 www.excel-vba-lernen.de/befehle Viel Spaß & beste Grüße André

[@c.j.23]

Super Format die 100 Sekunden-Videos! Viel Input zeitsparend verpackt. Perfekt! Gerne mehr davon!

[@scienzless]

💥 Sonntag & Donnerstag ist "Excel VBA in 100 Sekunden"- Tag 💥 Der Code zu dieser Folge als kostenloser Download :) www.excel-vba-lernen.de/delete-methode Viel Spaß mit dem Video!

[@c.j.23]

Danke, dass du so viel Input kostenlos bereit stellst!

[@michasprogrammierstunde243]

Zum löschen von Spalten würde ich über die entsprechende Auflistung gehen, also zum löschen der Zeile 2 wäre der Aufruf von Rows(2).Delete intuitiver.

[@ArbenRahimi-gj5bt]

Kann man farbige zellen löschen ?

[@uwecichowicz5444]

Hallo André, tolles Format und verständlich erklärt. Ich habe einen bestehenden Code, der mir aus zwei nebeneinander liegenden Spalten die Inhalte in eine neue Spalte untereinander schreibt (s.u.). Nun möchte ich, dass anschließend die leeren Zellen gelöscht und die Spalte absteigend sortiert wird. Welchen Code müsste ich ergänzen? Public Sub GesamtListe() Dim nZeile As Integer Dim vSpalte As Integer Dim vZeile As Integer Dim nSpalte As Integer Dim vSheet As String Dim nSheet As String vSheet = "Listenauswahl" ' quellTabellenBlatt nSheet = "Listenauswahl" 'ZielTabellenBlatt nZeile = 2 'nach Zeile nSpalte = 4 'nach Spalte 'Spalte A vSpalte = 1 For vZeile = 2 To Sheets(vSheet).Cells(65536, vSpalte).End(xlUp).Row Sheets(nSheet).Cells(nZeile, nSpalte) = Sheets(vSheet).Cells(vZeile, vSpalte) nZeile = nZeile + 1 Next 'Spalte B vSpalte = 2 For vZeile = 2 To Sheets(vSheet).Cells(65536, vSpalte).End(xlUp).Row Sheets(nSheet).Cells(nZeile, nSpalte) = Sheets(vSheet).Cells(vZeile, vSpalte) nZeile = nZeile + 1 Next End Sub

[@Forgedelver]

Gibt es eine Regel, wann sich etwas nach links verschiebt und wann nach oben? Beim Löschen der Zelle B2 wäre es doch bspw. auch denkbar gewesen, dass C2 und D2 einrücken würden, so wie es beim Löschen von Bereich A1:A3 war.

[@michasprogrammierstunde243]

Das entscheidet VBA. Damit das nicht ganz zufällig ist, hat die Delete-Methode noch den optionalen Shift-Parameter, bei welchem entweder xlShiftToLeft oder xlShiftUp angegeben werden kann.

[@Forgedelver]

@@michasprogrammierstunde243 Ah alles klar, vielen Dank für die ausführliche Antwort.