Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
312to316
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
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen Löschen

Zellen Löschen
22.09.2003 08:56:58
Stefan
hallo zusammen, mit diesem makro lösche ich den inhalt aller zeilen die in spalte a den wert 0 haben, ich möchte aber nur die null herraus löschen nicht die ganze zeile.

vielen dank für die hilfe


Sub LeereZeilenLöschen()
Dim letzteR As Integer
Dim i As Integer
Selection.SpecialCells(xlLastCell).Select
letzteR = ActiveCell.Row
Range("A1").Select
Do
If ActiveCell.Value = "0" Then
i = ActiveCell.Row
Rows(i).ClearContents
letzteR = letzteR - 1
If i > 1 Then
ActiveCell.Offset(-1, 0).Select
End If
End If
ActiveCell.Offset(1, 0).Select
Loop While ActiveCell.Row <= letzteR
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen Löschen
22.09.2003 09:03:56
Hajo_Zi
Hallo Stefan

ich vermute mal Du möchtest den Inhalt LÖschen und nicht die Zelle??


Sub Loeschen()
Dim Loletzte As Long
Dim LoI As Long
Loletzte = 65536
If Range("A65536") = "" Then Loletzte = Range("A65536").End(xlUp).Row
For LoI = 1 To Loletzte
If IsNumeric(Cells(LoI, 1)) Then
If Cells(LoI, 1) = 0 Then Cells(LoI, 1) = ""
End If
Next LoI
End Sub



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.


http://home.media-n.de/ziplies/

Anzeige
Vielen Dank dafür du warst richtig gelegen
22.09.2003 09:18:51
Stefan
danke
Danke für die Rückmeldung oT
22.09.2003 09:19:15
Hajo_Zi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige