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.
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
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.
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.
Hallo Günter,
könntest Du deinen Tabellenausschnitt auf die Spalte F erweitern und am besten wie es vorher aussieht und danach aussehen soll.
Hi Günter,
Zitat: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.
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