Anzeige
Archiv - Navigation
216to220
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
216to220
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

For next Ende in der Schleife aendern

For next Ende in der Schleife aendern
13.02.2003 17:17:15
Michael
Hallo Zusammen,
Meine For Next schleife geht von Zeile 5 bis "letzte Zeile".
Innerhalb der Schleife werden in dieser Tabelle weitere Zeilen eingeführt. Somit verschiebt sich auch die "letzte Zeile".
Ich habe versucht "letzte Zeile" in der Schleife anzupassen - leider ohne Erfolg. die Schleife wird immer nach der ersten "letzte Zeile" beendet.
Wer hat einen Tip, wie ich das Problem in den Griff bekommen.
Unten sind meine Zeilen.

Vorab Danke!

michael

Dim I As Integer, k As Integer, LetzterVorlage As Integer, LetzterSupplier As Integer
Dim f As Integer
Dim C As Integer

Dim Cluster As String
Dim Clusterspaltenbereich As Range
Dim Clusterspalte As Integer

LetzterVorlage = Sheets("Vorlage").Cells(Cells.Rows.Count, 1).End(xlUp).Row
For I = 5 To LetzterVorlage
Cluster = Worksheets("Vorlage").Cells(I, 3)
Set Clusterspaltenbereich = Worksheets("Supplier").Rows(4).Find(Cluster, Lookat:=xlWhole)
Clusterspalte = Clusterspaltenbereich.Column
LetzterSupplier = Sheets("Supplier").Cells(Cells.Rows.Count, 1).End(xlUp).Row
C = I
For k = 5 To LetzterSupplier
If Worksheets("Supplier").Cells(k, Clusterspalte) = 1 Then 'Wenn 1 dann in Abfrage

If Worksheets("Supplier").Cells(k, 1).Value <> Worksheets("Vorlage").Cells(C, 5).Value Then
Sheets("Vorlage").Range(Cells(I + 1, 1), Cells(I + 1, 1)).EntireRow.Select
Selection.Insert Shift:=xlDown

Worksheets("Vorlage").Cells(I + 1, 1) = Worksheets("Vorlage").Cells(I, 1)
Worksheets("Vorlage").Cells(I + 1, 15) = "new"
I = I + 1
LetzterVorlage = LetzterVorlage + 1
End If
End If

Next k
LetzterVorlage = Sheets("Vorlage").Cells(Cells.Rows.Count, 1).End(xlUp).Row

Next I


End Sub



1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: For next Ende in der Schleife aendern
13.02.2003 19:10:41
Hans W. Hofmann

Es ist nunmal per Design so, daß eine For/Next Schleife dann benutzt wird, wenn die Anzahl der Schleifendurchläufe feststeht. Andernfalls greift man zu den offenen Versionen
While Wend
Do Until
Do While Loop

Gruß HW

Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige