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

mit schleife eine zelle weiter

mit schleife eine zelle weiter
22.07.2004 21:06:57
steffenk
moin
ich versuche mit einer schleife immer eine zelle weiter zu gehen bis ich 50 zellen durch habe.
was ist da falsch?

Sub löschen()
Dim i As Integer
i = 1
Do
Debug.Print i
If Range("E5+i").Value > Range("E4").Value Then
Range("a5+i").Delete
i = i + 1
End If
Loop Until i < 50
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mit schleife eine zelle weiter
22.07.2004 21:21:11
alexele
hi Steffen
das range objekt ist mir auch nicht ganz klar
versuch doch mal

Sub löschen()
Dim i As Integer
i = 1
Do
If cells(5 + i,5) > cells(4,5) Then
cells(5 + i,1) = ""
i = i + 1
End If
Loop Until i < 50
End Sub

geht aber nur wenn zahlen in den zellen stehen, nicht bei text, glaub ich
ciao alexele
AW: mit schleife eine zelle weiter
Udo
Range stimmen nicht! Nimm cells(x,y)
Loop Until i &lt 50
überleg mal was an der Bedingung nicht stimmt.
Udo
AW: mit schleife eine zelle weiter
Ramses
Hallo
das geht so
Option Explicit

Sub löschen()
Dim i As Integer
For i = 55 To 5 Step -1
If Cells(i, 5) > Cells(4, 5) Then
Cells(i, 5).Delete xlShiftUp
Cells(i, 1).Delete xlShiftUp
End If
Next i
End Sub

Gruss Rainer
Anzeige
AW: mit schleife eine zelle weiter
22.07.2004 21:47:59
steffenk
moin
danke rainer das wars
das passt
Merci :-) Geschlossen o.T.
Ramses
...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige