VBA-Lösung bestimmte Bereich löschen (clear)

[WillWissen]

Hi Freunde,

bitte nochmals um VBA-Hilfe. In meiner Liste sind die Spalten A-F belegt. In A + F allerdings nicht alle Zellen. Und genau diese Zeilen, in denen in F nichts steht, können gelöscht werden (nur Inhalte). Mit einer Sortierroutine schiebe ich diese Zeilen nach unten.

Mit diesem Code suche ich die erste frei Zelle in F und gehe in die Spalte B (hier sind keine Leerzellen dazwischen) rüber.

Code:

Sub ErsteLeereZelleSpalteF()

Cells(Cells(Rows.Count, 6).End(xlUp).row + 1, 6).Select
ActiveCell.Offset(0, -3).Select

End Sub

Wie ich nun die letzte belege Zelle in Spalte B finde, weiß ich. Jedoch brauche ich Hilfe, wie ich den Bereich von hier bis zur ersten freien Zelle in F markieren kann, um diesen dann mit Clear inhaltlich zu löschen.

Lieben Dank im voraus.

[atilla]

Hallo Günter,

der Befehl Clear ist gleichbedeutend mit dem Befehl "alles Löschen" in der Tabelle.
Inhalte werden mit dem Befehl ClearContents gelöscht.

Und hier ein Lösungsvorschlag für Dein Anliegen:

Code:

Sub leere_löschen()
   Dim lngZF As Long, lngZB
   lngZF = Cells(Rows.Count, 6).End(xlUp).Row + 1
   lngZB = Cells(Rows.Count, 2).End(xlUp).Row
   Range(Cells(lngZB, 2), Cells(lngZF, 6)).ClearContents
End Sub

[WillWissen]

Hi Atilla

danke schon mal für deine Hilfe. Bin noch bei der Arbeit. Ich schau es mir heute Abend an. Rückmeldung kommt dann.

[WillWissen]

Hi Atilla,

dein Code funktioniert - allerdings macht er das zuuu gründlich. ;)

Tabelle3

	A	B	C	D	E
1	Überschrift 1	Überschrift 2	Überschrift 3	Überschrift 4	Überschrift 5
2		Name1	Text1	noch'n Text1	Zahl1
3	das steht was	Name2	Text2	noch'n Text2	Zahl2
4		Name3	Text3	noch'n Text3	Zahl3
5		Name4	Text4	noch'n Text4	Zahl4
6	das steht was	Name5	Text5	noch'n Text5	Zahl5
7		Name6	Text6	noch'n Text6	Zahl6
8		Name7	Text7	noch'n Text7	Zahl7
9	das steht was	Name8	Text8	noch'n Text8	Zahl8
10		Name9	Text9	noch'n Text9	Zahl9
11		das ist übrig
12	das steht was	das ist übrig
13		das ist übrig
14		das ist übrig
15		das ist übrig
16	das steht was	das ist übrig
17		das ist übrig
18		das ist übrig
19		das ist übrig
20		das ist übrig

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Ich habe hier mal ein Muster eingestellt, wie mein Tabellenblatt nach dem Sortieren aussieht. Das, was ich blau unterlegt habe, soll gelöscht werden, alles andere muss stehen bleiben. Im Moment ist alles weg. Und wie ich ja bereits schrieb, muss Excel die jeweils erste Zeile suchen, ab der gelöscht werden darf, da die Liste sich umfangmäßig ständig verändert.

Ich habe versucht, die Codezeilen zu modifizieren, scheitere aber an meinem (Nicht)Wissen. Vielleicht kannst du nochmals drüberschauen. Oder einer der anderen VBA-Spezies. Danke.

[Steffl]

Hallo Günter,

könntest Du deinen Tabellenausschnitt auf die Spalte F erweitern und am besten wie es vorher aussieht und danach aussehen soll.

[atilla]

Hi Günter,

Jedoch brauche ich Hilfe, wie ich den Bereich von hier bis zur ersten freien Zelle in F markieren

Ich sehe aber keine Daten in Spalte F.

Also änder im Code die Zahlen 6 in 5 und wenn Spalte A mit einbezogen werden soll,
dann in der letzten Codezeile die 2 in 1.

[WillWissen]

Hallo Atilla, hallo Stefan,

der Fehler war wieder einmal eindeutig etwa 40 cm vorm Laptop-Screen. :05:

Auch ich sah nach euren Hinweisen keine Spalte F. Dass das Makro natürlich dann alles löschte, war eine zwangsläufige Folge.

Ganz lieben Dank für die Hilfe