Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

spalte a leere zellen löschen ...

Forumthread: 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
Anzeige

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 !
Anzeige
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
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)

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