Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1212to1216
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

letzte Zeile löschen

letzte Zeile löschen
René
Hallo,
ich suche mit diesem Makro hier die letzte Zeile mit einem Datum in einem Arbeitsblatt. Nun möchte ich noch erreichen das diese Zeile gelöscht wird. Was muss ich da noch ergänzen.
Sub t()
Dim iZeile As Long
For iZeile = Range("a65536").End(xlUp).Row To 1 Step -1
If IsDate(Cells(iZeile, 1)) Then Exit For
Next iZeile
End Sub

MfG René

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: letzte Zeile löschen
11.05.2011 10:35:53
Matthias
Hallo
Vielleicht so:
Sub t()
Dim iZeile As Long
For iZeile = Range("a65536").End(xlUp).Row To 1 Step -1
If IsDate(Cells(iZeile, 1)) Then
MsgBox iZeile
Rows(iZeile).Delete
Exit For
End If
Next iZeile
End Sub
MsgBox iZeile wieder entfernen
Gruß Matthias
AW: letzte Zeile löschen
11.05.2011 10:38:55
Mäxl
Hi
Sub t()
Dim iZeile As Long
For iZeile = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If IsDate(Cells(iZeile, 1)) Then Cells(iZeile, 1).EntireRow.Delete: Exit For
Next iZeile
End Sub

gruß
Mäxl
AW: letzte Zeile löschen
11.05.2011 10:51:13
René
Hallo ihr beiden ,
funktioniert super,
nun habe ich aber noch ein kleines Problem. Ich muss in zwei Tabellenblättern die letzte Zeile löschen. Aber zwei mal Dim geht nicht. Hm?
Sub Schaltfläche2_Klicken()
Sheets("Ampel").Visible = True
Sheets("Ampel").Select
Dim iZeile As Long
For iZeile = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If IsDate(Cells(iZeile, 1)) Then Cells(iZeile, 1).EntireRow.Delete: Exit For
Next iZeile
Sheets("Ampel").Visible = False
Sheets("Daten").Visible = True
Sheets("Daten").Select
Dim iZeile As Long
For iZeile = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If IsDate(Cells(iZeile, 1)) Then Cells(iZeile, 1).EntireRow.Delete: Exit For
Next iZeile
Sheets("Daten").Visible = False
ActiveWorkbook.Save
End Sub

Anzeige
zwei mal Dim geht nicht
11.05.2011 11:02:43
Rudi
Hallo,
dann lass das 2. mal doch weg.
Gruß
Rudi
AW: zwei mal Dim geht nicht
11.05.2011 11:11:50
René
Danke Rudi. Das funktioniert. Einen sonnigen Tag für Euch drei.
:)
Du brauchst nur ein DIM
11.05.2011 11:13:43
Matthias
Hallo
Dim iZeile As Long
With Sheets("Ampel")
.Visible = True
.Select
For iZeile = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If IsDate(.Cells(iZeile, 1)) Then .Cells(iZeile, 1).EntireRow.Delete: Exit For
Next iZeile
MsgBox "weiter" 'nur zum verfolgen
.Visible = False
End With
With Sheets("Daten")
.Visible = True
.Select
For iZeile = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If IsDate(.Cells(iZeile, 1)) Then .Cells(iZeile, 1).EntireRow.Delete: Exit For
Next iZeile
MsgBox "weiter" 'nur zum verfolgen
.Visible = False
End With

wobei das so schon reicht - ohne Visible & ohne Select
Option Explicit
Sub ml()
Dim iZeile As Long
With Sheets("Ampel")
For iZeile = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If IsDate(.Cells(iZeile, 1)) Then .Cells(iZeile, 1).EntireRow.Delete: Exit For
Next iZeile
End With
With Sheets("Daten")
For iZeile = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If IsDate(.Cells(iZeile, 1)) Then .Cells(iZeile, 1).EntireRow.Delete: Exit For
Next iZeile
End With
End Sub

Userbild
Anzeige
AW: Du brauchst nur ein DIM
11.05.2011 14:11:15
René
Hallo Matze,
Danke Dir herzlich.
MfG René

300 Forumthreads zu ähnlichen Themen

VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Anzeige
in einem Range letzte Zeile löschen
Kai

Hi,
Habe mal ne Frage, ob sowas möglich ist:
Habe ein Tabellenblatt wo im Range B24 bis F33 durch ein Makro Daten reingeschrieben werden. Also jede
Zeile (B24:B33 , C24:C33 , ....) ist jeweils ein Datensatz.
Meine Vorstellung. Ist es möglich , per Makro, zu ermitteln, welches...
02.07.2009 13:28:51
Thread-ID: 1085954
5 Beiträge
VBA: Zeile Löschen trotz Blattschutz
Mathias

Hallo zusammen!
Ich bräuchte nochmals Hilfe. Habe zwar einige Bausteine gefunden, aber alles nicht das, was ich will.
Ich habe in Excel mehrere Tabellenblätter.
Darin sind einzelne Spalten geschützt
Wenn ich über eine Userform-Formular etwas in die Excel-Tabelle eintragen möchte...
25.08.2009 12:02:31
Thread-ID: 1098366
5 Beiträge
Anzeige
letzte volle zeile suchen und löschen
meixner

Hallo zusammen,
habe eine Tabelle (A8: H16). Ich möchte anhand eines Makros die letzte volle zeile suchen, die sich in Spalte G befindet, anhand eines Makros finden.
Wenn er die letzte befüllte zeile in spalte G gefunden hat, soll alles andere was sich ab dieser vollen Zeile in den and...
15.11.2009 12:00:37
Thread-ID: 1117324
10 Beiträge
VBA Profis: Leerzeile in Textdatei löschen
Joe

Hallo,
habe folgendes Makro "ZeileLöschenLangsam" gefunden um leere Zeilen in einer Textdatei zu löschen.
Das ganze funktioniert, aber dauert bei großen TextDateien (>20.000 Zeilen) extrem lange.
Ich habe deshhalb das Makro "ZeileLöschenSchnell" geschrieben welches nur wenige Se...
11.02.2010 23:36:52
Thread-ID: 1137630
2 Beiträge
VBA die letzten 4 Zeichen in einem String löschen
andreas

Hallo zusammen,
ich lese die Zelle "k12" als Variable ein und möchte dabei immer die letzten 4 Zeichen löschen
Modellname = Left(("k12"), Len("k12") - 4)
was ist falsch geschrieben?
Danke für die Hilfe
19.02.2010 11:58:31
Thread-ID: 1139731
4 Beiträge
VBA-AutoMakierung und erkennung der letzten Zeile
Kay

Hallo Forumsgemeinde,
Ich bin VBA-Anfänger und...
...auf der Suche nach einer Lösung für folgendes Problem:
Ich habe diverse Datensätze, welche in ihrem Umfang jedesmal variieren - Sie besitzen immer eine andere Anzahl an Zeilen.
Diese Daten versuche ich mittels diverser Makros...
13.05.2010 13:34:22
Thread-ID: 1156898
8 Beiträge
VBA: bei Wert 0 in Zelle A5, Zeile 9 löschen
Steffen

Hallo zusammen,
ich benötige kurz eure kompetente Hilfe!
Ich habe folgendes Problem....
Wenn in Zelle A5 in Mappe1 der Wert 0 steht dann soll die Zeile 9 in Mappe2 gelöscht werden.
Ich hoffen mir kann jemand weiterhelfen!
Vielen Dank für die Hilfe und einen Lieben Gruß
S...
04.09.2010 18:17:19
Thread-ID: 1175718
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
4
4
3
9
1
3
7
12
6
2
3
6
2
4
2
5
10
7
6
4
8
16
3