Datum

Titel

24.04.2024 06:38:45

Kumulierte Daten für Intervalllaufeinheiten

24.04.2024 04:37:43

Mit Word erstellte PDF als Anhang an E-Mail anhängen

24.04.2024 00:20:14

Bestimmte Spalten als xls exportieren per Makro

23.04.2024 22:08:10

Auflisten in Spalte VBA

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1492to1496

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Letzte Zeile löschen: command button

Forumthread: Letzte Zeile löschen: command button
8 Beiträge zu diesem Forumthread
Anzeige
98 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Excel Dialoge
Top 100 Forumthreads

10.05.2016 15:36:41

Alex

Hallo zusammen,
ich habe eine Userform, welche Einträge in einer Tabelle überträgt. Nun würde ich gerne einen Commandbutton haben, mit dem man den letzten Eintrag wieder löschen kann.
Hat jemand eine Idee wie das zu realisieren ist?
Viele Grüße
Alex

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Letzte Zeile löschen: command button

10.05.2016 15:46:47

Werner
AW: Letzte Zeile löschen: command button

10.05.2016 15:50:10

Alex
AW: Letzte Zeile löschen: command button

10.05.2016 15:52:44

Werner
AW: Letzte Zeile löschen: command button

10.05.2016 15:59:30

Alex
AW: Letzte Zeile löschen: command button

10.05.2016 16:05:01

Werner
AW: Letzte Zeile löschen: command button

10.05.2016 16:13:12

Alex
AW: Gerne und danke für die Rückmeldung. o.w.T.

10.05.2016 16:26:52

Werner
AW: Letzte Zeile löschen: command button

11.05.2016 11:39:28

Werner

AW: Letzte Zeile löschen: command button

10.05.2016 15:46:47

Werner

Hallo Alex,

Dim loLetzte As Long
With Sheets("Tabelle1") 'anpassen
loLetzte = .Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile in Spalte A, Spalte anpassen
.Cells(loLetzte, 1).EntireRow.Delete
End With

Den Code deinem Button zuweisen.
Gruß Werner

AW: Letzte Zeile löschen: command button

10.05.2016 15:50:10

Alex

Hallo Werner,
vielen lieben Dank.
Das Makro funktioniert, allerdings löscht es immer die oberste Zeile anstatt die unterste.
LG Alex

AW: Letzte Zeile löschen: command button

10.05.2016 15:52:44

Werner

Hallo Alex,
hast du Daten in Spalte A?
Gruß Werner

AW: Letzte Zeile löschen: command button

10.05.2016 15:59:30

Alex

Hallo Werner,
ich Spalte A steht nichts. Er in Spalte B1 steht der ersten Spaltenkopf.
LG Alex

AW: Letzte Zeile löschen: command button

10.05.2016 16:05:01

Werner

Hallo Alex,
kann ja nicht funktionieren. Der Code sucht von unten nach oben die letzte belegte Zelle in Spalte A
Wenn Spalte A leer ist findet er immer die erste Zeile und löscht die.
Ich habe dir im Code aber rein geschrieben, dass du das anpassen musst.
Rows.Count, 1) Spalte A
Rows.Count, 2) Spalte B
usw.
Gruß Werner

AW: Letzte Zeile löschen: command button

10.05.2016 16:13:12

Alex

Ah oke, dass habe ich jetzt verstanden.
Super, vielen lieben Dank. Funktioniert tadellos.
LG Alex

AW: Gerne und danke für die Rückmeldung. o.w.T.

10.05.2016 16:26:52

Werner

AW: Letzte Zeile löschen: command button

11.05.2016 11:39:28

Werner

Hallo Alex,

Dim loLetzte As Long
With Sheets("Tabelle1") 'anpassen
loLetzte = .Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile in Spalte A, Spalte anpassen
.Cells(loLetzte, 1).EntireRow.Delete
End With

Den Code deinem Button zuweisen.
Gruß Werner