Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1924to1928
1924to1928
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzen Eintrag aus Spaltenbereich lösche

Forumthread: Letzen Eintrag aus Spaltenbereich lösche

Letzen Eintrag aus Spaltenbereich lösche
22.03.2023 11:09:31
Tilo

Ich möchte mittels VBA-Code aus einem Spaltenbereich (Q1:Q300) nur den letzten Eintrag von unten löschen (und nicht die dazugehörige Zelle selbst / also mit .ClearContents).
Leider bekomme ich es nicht hin.
Danke fürs helfen!
VG - tschott

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzen Eintrag aus Spaltenbereich lösche
22.03.2023 11:15:43
Jowe
Hallo,
vllt. so: cells(rows.count,17).end(xlup).clearcontents


AW: Letzen Eintrag aus Spaltenbereich lösche
22.03.2023 11:18:59
Tilo
.... im Bereich Q301:Q400 gibt es leider noch Einträge die nicht gelöscht werden sollen, deshalb kann man in diesem Beispiel den letzten Eintrag mittels VBA nicht von unten in der Spalte Q suchen.


Anzeige
AW: Letzen Eintrag aus Spaltenbereich lösche
22.03.2023 12:17:55
JoWE
Dann halt von oben - wenn dazwischen keine leeren Zellen sind:
cells(1,17).end(xldown).clearcontents


AW: Letzen Eintrag aus Spaltenbereich lösche
22.03.2023 12:21:52
JoWE
vllt. auch so:
cells(300,17).end(xlup).clearcontents


AW: Letzen Eintrag aus Spaltenbereich lösche
22.03.2023 15:03:01
Tilo
Bei der Lösung: 'cells(300,17).end(xlup).clearcontents' wird auch wieder von oben (Q1) gelöscht. Kann es sein, dass 'cells(300,' mit '.end(xlup)' nicht funktioniert.
Die erste Lösung kam meinem Anliegen schon recht nahe, aber der Befehl soll eigentlich die befüllte Zelle Q301 ignorieren und ab Q300 nach oben löschen.


Anzeige
AW: Letzen Eintrag aus Spaltenbereich lösche
22.03.2023 15:45:00
JoWE
Ja war ne ungetestete Idee; geht aber so nicht.
versuch' mal mit einer Schleife:
for ze = 300 to 4 Step -1
if cells(ze,17) >"" then
cells(ze,17)="
exit for
next


AW: Letzen Eintrag aus Spaltenbereich lösche
22.03.2023 15:55:20
GerdL
Hallo Thilo!
Selbstverstädnlich löscht der Code die unterste Zelle mit Wert.

If Not IsEmpty(Cells(300, 17)) Then
    Cells(300, 17).ClearContents
Else
    Cells(300, 17).End(xlUp).ClearContents
End If
Er löscht allerdings nicht den Rückgabewert "" von Formeln.
Ansonsten solltest du dein Problem mit Q1 schildern oder zeigen.

Gruß Gerd


Anzeige
AW: Letzen Eintrag aus Spaltenbereich lösche
22.03.2023 20:02:42
Tilo
Sehr schön, so passt es bei meiner Tabelle!
Danke - Tilo


AW: Letzen Eintrag aus Spaltenbereich lösche
22.03.2023 12:18:49
Tilo
Danke Jowe, durch Umbauen meiner Tabelle kann ich den Code natürlich nutzen - er löscht die Einträge in Spalte Q von unten. Pefekt wäre, wenn dies aus dem Zellbereich Q1:Q300 von unten geschieht, aber der bisherige Code hilft mir schon sehr. :-)

Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige