For.. If.. Next..
20.05.2007 00:33:34
Roger
völlig verzweifelt wende ich mich an Euch.
Ich bin überzeugt das es ganz einfach ist aber ich komme nicht darauf.
Ich möchte die Zellen in Bereich D1:D20 fragen, ob ihr aktueller Wert eine O ist.
Wenn das Zutrifft muss in der gleichen Zeile in der Spalte A ein X und in Spalte B ein Y geschrieben werden, egal ob die Zellen schon beschrieben sind oder nicht.
Anschliessend muss das O in der gleichen Zeile durch ein P ersetzt werden.
Dann geht es weiter mit nächsten Zeile.
Hier mein Code:
Sub X_Y__P()
Dim i As Long
Dim Anz As Long
Dim Zelle As Range
Set Zelle = Range("D1")
Anz = 20
For i = 1 To Anz
If Zelle.Offset(i, 0).Value = "O" Then Range("A" & i) = "X"
If Zelle.Offset(i, 0).Value = "O" Then Range("B" & i) = "Y"
If Zelle.Offset(i, 0).Value = "O" Then Range("D" & i) = "P"
Next
End Sub
Da ich Anfänger bin, weiss ich nicht ob das Grundsätzlich der richtige Ansatz ist.
Der Code funktioniert soweit bis auf die Tatsache dass das letzte O unberührt bleibt :O(
Deshalb wäre ich dankbar wenn mich da ein Profi unter die Armen greifen kann.
Gruss Roger
Anzeige