Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
728to732
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
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

spalte a leere zellen löschen ...

spalte a leere zellen löschen ...
07.02.2006 12:24:35
mehmet
hallo forum,
wie kann man, wenn man spalte a:a leere zellen hat diese löschen
dann einen msgbox("jetzt dein makro") kommen lassen
anschliessend sollen die gelöschten zeilen wieder hergestellt werden
also zum ursprung der tabelle zurück bevor makro ausgeführt wurde
dank und gruss
mehmet

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: spalte a leere zellen löschen ...
07.02.2006 12:42:43
WernerB.
Hallo Mehmet,
wie gefällt Dir das?

Sub Mehmet()
Dim i As Long, laR As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
For i = laR To 1 Step -1
If Cells(i, 1).Value = "" Then
Cells(i, 1).Delete Shift:=xlUp
End If
Next i
MsgBox "Jetzt Dein Makro !", vbInformation, _
"Dezenter Hinweis für " & Application.UserName & ":"
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
AW: spalte a leere zellen löschen ...
07.02.2006 13:01:36
mehmet
hallo werner,
dank dir für deine hilfe
es sollten ganze zeilen gelöscht werden (sorry mein fehler)
und nachdem msgbox sollte die ursprüngliche tabelle
wiederhergestellt werden
d.h. die gelöschten zeilen wieder an die gleiche stelle einfügen
herzliche gruesse
mehmet
Anzeige
AW: spalte a leere zellen löschen ...
07.02.2006 13:03:10
Josef
Hallo Mehmet!
Sub LeereWegUndWiederDa()
Dim lngLast As Long
Dim varRange As Variant

lngLast = Cells(Rows.Count, 1).End(xlUp).Row

varRange = Range("A1:IV" & lngLast)

On Error Resume Next
Range("A1:A" & lngLast).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0

MsgBox "Jetzt!"

Range("A1:IV" & lngLast) = varRange

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: spalte a leere zellen löschen ...
07.02.2006 13:09:13
mehmet
perfect & super
dank dir sepp
auch dir werner
viele gruesss
mehmet

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige