---

Hallo Excel-Profis,

habe mal wieder ein großes Problem was für Euch wohl eine Kleinigkeit ist.

Ich möchte für eine Bestellung alle Zellen automatisch durchnummerieren lassen und vorher aber alle Zellen wo in Spalte zwei(Stückzahl) eine 0 [Ziffer Null] steht löschen lassen.
Hoffe es wird verstanden was ich nicht auf die Reihe bekomme.

Mein verwendetes Makro welches ich auf einen Button gelegt habe:
    y = "0"
    For z = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
    If Cells(z, 2).Value = y Then Rows(z).Delete
    Next

    Dim i&, x&
  For i = 8 To Cells(Rows.Count, 2).End(xlUp).Row
    If Cells(i, 2) <> "" Then
      x = x + 1
      Cells(i, 1) = x
    Else: Exit For
    End If
  Next

Wo habe ich was Falsch gemacht?

------------------
Gruß
    Marco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Marco,

habs nur überflogen, aber nimm mal das
Else: Exit For
raus, sonst steigt er ja aus, sobald er eine Leerzelle findet.

lg Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hy Nancy,

das mit dem Austeigen ist schon so richtig, es sind alle Felder mit Zahlen bzw. Text gefüllt. Die Tabelle endet mit Leerzeilen.

------------------
Gruß
    Marco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nancy,

habe die Lösung:

    
    y = "NB"
    For z = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
    If Cells(z, 2).Value = y Then Rows(z).Delete
    Next

     Dim i&, x&
  For i = 8 To Cells(Rows.Count, 2).End(xlUp).Row
    If Cells(i, 2) <> "" Then
      x = x + 1
      Cells(i, 1) = x
      End If
Next

Ich darf NICHT für y = "0" verwenden.
Ich habe in den Lagerwaren anstelle der Stückzahl 0 jetzt "NB" verwendet und dann geht das Makro. NB = Nicht Bestellen wird ja sowieso gelöscht die Zeile.

Wenn ich y = 0 verwende, löscht Excel mir auch die Leeren Zeilen über der Bestellung und das will ich nicht.

So funktioniert aber das was ich will und somit:
Fall erledigt........

------------------
Gruß
    Marco

[Diese Nachricht wurde von thewolff am 04. Feb. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP