Mehrere If Then Schleifen
23.04.2009 16:07:53
Bernhard
ich versuche einen VBA Code zu schreiben in dem ich mehrere if then Bedingungen brauche.
Die erste Zelle die ich abfragen will ist E9 und dann nach unten bis die erste leere Zelle kommt.
Die Loesung soll in diesem Fall in F9 und nach unten wobei es fuer mich optimal waere wenn die Loesung in ein anderes Tabellenblatt geschrieben werden kann.
So schaut mein Code bisher aus, der allerdings nicht laeuft...
Sub Umwandeln()
Dim intz As Integer
Worksheets("Daten").Activate
intz = 5
Do Until Cells(intz, 9).Value = ""
If Cells(intz, 9).Value = A" Then Cells(intz, 10).Value = "3"
If Cells(intz, 9).Value = "B" Then Cells(intz, 10).Value = "2"
End If
If Cells(intz, 9).Value = "C" Then Cells(intz, 10).Value = "1"
intz = intz + 1
End If
Loop
End Sub
Danke schon mal im Voraus fuer jede Hilfe!