title image


Smiley Schleifenproblem
Hi,

und vorweg schon ein herzliches Dankeschön!

In meiner Proc. befinden sich 2 Schleifen.

Die innere Schleife (Do-Loop) funktioniert bestens. Probleme bereitet mir jedoch die For-Next-Schleife, weil sie nicht über den Ausgangspunkt (Zelle:AD1) hinausgeht.

Meine Absicht ist, dass sich nach jedem Do-Loop-Durchgang der Such(Wert) durch den Inhalt der Zelle:AD2 etc.... ersetzt wird, d.s. exakt 100 Such(Werte).



Sub FilterErgebnisUebertragen()

Application.ScreenUpdating = False

Worksheets("Auswertung").Activate

Dim i As Long, j As Long, lzeile As Long, Wert As String

lzeile = Cells(Rows.Count, 1).End(xlUp).Row

Range("AF5:AM" & lzeile).ClearContents



Range("AD1").Select

Wert = ActiveCell.Value

For j = 1 To 100



i = 6

Do

If Wert = Val(Left$(Range("G" & i).Value, InStr(1, Range("G" & i).Value, "/"))) Then

Range("H" & i).Select

ActiveCell.Offset(0, -7).Range(Cells(1, 1), Cells(1, 8)).Select

Selection.Copy

[af1].Select

Selection.End(xlDown).Offset(1, 0).Select

ActiveSheet.Paste

End If

i = i + 1

Application.DisplayStatusBar = True

StatusLED Space(6) & "Wert " & Wert " & wird übertragen ", i / lzeile

Loop While Range("A" & i) ""

Application.StatusBar = ""

Range("AD" & j).Select

Next j

End Sub

Grüße



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: