Schleife funktioniert nicht richtig
01.01.2008 08:47:03
Stefan
kann mir jemand sagen, warum die Schleife nicht richtig läuft, d. h. sie läuft bis Zeile 64348, obwohl ab Zelle 10 (ist zwar variable, aber bisher hab ich nur Werte bis Zeile 10) kein Inhalt mehr in den Zellen ist.
In Spalte 131 steht immer ein Wort, in Spalte 132 immer eine Zahl.
Dim ia As Variant
For ia = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(ia, 131).Text = "Gk" Then
Cells(ia, 142) = Cells(ia, 132)
End If
Next ia
Danke für Eure Hilfe.
Gruß
Stefan