Auswahlfehler
30.09.2005 09:58:40
Daniel
Ich habe diesen einfachen Code hier. Aber erzeigt mir bei der Auswahl von Range("G"&z) einen Fehler an. Wieso? Wen ich das dann testweise auskommentiere zeigt er bei der If abfrage einen Fehler an. Ist der Code ein einziger großer Fehler? hat jemand ne Idee wie ich die fehler raus bekommen?
Vielen Dank für eure Mühe
Anzahl = Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row
y = 30000
z = 5
For x = 5 To Anzahl
Sheets("Daten").Select
Range("G" & z).Select
If ActiveCell.Value = ">150000" And " Then
Range("G" & x) = y
End If
z = z + 1
Next x