Schleifen Problem...
26.02.2014 14:06:40
Harald
kann mal jemand bitte über den Code schauen, er gibt mir einige Fehler, egal was ich verändere ich komm nicht dazu dass er die Schleife vernünftig durchläuft.
Falls ich den Wert X in 2 ändere, sucht er zwar die Werte für die Spalte aber sucht die _
restlichen Werte nicht, irgendwas übersehe ich dabei:
Sub Search_TACs()
Sheets("ChangeLog").Select
Range("B2:G10000").Select
Selection.ClearContents
Range("A2").Select
Dim a As Long, I As Long, y As Long, x As Long, Datum As Date
Dim SearchString As String, Country As String
Country = Worksheets("REQUEST FORM").Cells(7, 17).Value
SearchString = Worksheets("ChangeLog").Cells("x", 1)
Addition = Added
Datum = Now
Application.ScreenUpdating = False
a = 4
y = 2
For X = 2 to 10000
For I = 1 To 10000
With Worksheets("ChangeLog")
If .Cells(I, "A") = SearchString Then
Worksheets("ChangeLog").Cells(y, 4).Value = Worksheets("RAWdata").Cells(I, 1).Value
Worksheets("ChangeLog").Cells(y, 2).Value = Worksheets("RAWdata").Cells(I, 3).Value
Worksheets("ChangeLog").Cells(y, 3).Value = Worksheets("RAWdata").Cells(I, 4).Value
Worksheets("ChangeLog").Cells(y, 5).Value = Country
y = y + 1
Else
End If
End With
Next I
Next X
Application.ScreenUpdating = True
End Sub
Anzeige