Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
288to292
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
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen Löschen

Zeilen Löschen
08.08.2003 15:24:50
Rüdiger
Hallo,
ich benötige folgendes Makro:
Durlaufe Zeile für Zeile
dann
Löschen einer gesamten Zeile, sofern in Spalte A kein Inhalt ist.
Wer kann mir helfen?

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen Löschen
08.08.2003 15:27:56
Andi_H
hi rüdiger,
versuchs mal hiermit:

Sub zeilen_löschen()
dim last as integer
last = cells(65000,2).end(xlup).row
for i = last to 1 step -1
if isempty(cells(i,1)) then
rows(i).delete
end if
next
End Sub

gruß
andi

AW: Zeilen Löschen
08.08.2003 15:30:56
rüdiger
Danke

AW: Zeilen Löschen
08.08.2003 15:31:56
Lotti
Hi Andi,
das is mehr als nur Rekorder!
Meins is damals mit Rekorder aufgezeichnet und entsprechend modifiziert!
Du bist wohl eher ein Master of understatement, wie! ;-)
Gruß
Lotti

AW: Zeilen Löschen
08.08.2003 15:59:21
Andi_H
Hi Lotti,
des lag eher an der Hitze, ich hatte nicht mal bemerkt das ich so bescheiden mit meinen VBA-Kenntnissen war, bißchen mehr als der Rekorder is schon drin. Ich dachte das muß ich nur einstellen wenn ich hier ne Frage hab.
Wünsch ein schönes Wochenende - bei dem Wetter setzt bei mir manchmal Hirn und Augen aus.
Gruß
Andi

Anzeige
AW: Zeilen Löschen
08.08.2003 15:28:53
Lotti
Hi Rüdiger,
(NICH MANZ?)
anbei das gewünschte Makro.
Du mußt bei der Abfrage einfach nur "" eingeben!
Sollte funktionieren.
Gruß Lotti
Public 

Sub loeschvar()
Dim Inte, inte1
Inte = InputBox("Geben Sie die Spalte ein:", " Spalteneingabe ")
inte1 = InputBox("Geben Sie die Zeichenfolge ein:", " Zeicheneingabe ")
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
Do
Columns(Inte).EntireColumn.Select
On Error GoTo raus
Selection.Find(What:=inte1, After:=ActiveCell, LookIn:= _
xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False).Activate
ActiveCell.Select
Selection.EntireRow.Delete
'Selection.EntireRow.Hidden = True  (WENN DU NUR AUSBLENDEN WILLST!)
Loop
raus:
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
End Sub


Anzeige
AW: Zeilen Löschen
08.08.2003 15:47:35
rüdiger
danke lotti (nicht manz)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige