VBA mehrere If abfragen
19.11.2005 18:20:55
Rebecca
Wie kann ich folgende Abfrage(n) im Makro verkürzen,
bzw. wie ist diese richtig zu schreiben, so geht es leider nicht
:END IF ohne IF Block.
e = Range("A1").Value
If e = Cells(94, 83).Value Then f = 1
End If
If e = Cells(94, 84).Value Then f = 2
End If
If e = Cells(94, 85).Value Then f = 3
End If
If e = Cells(94, 86).Value Then f = 4
End If
If e = Cells(94, 87).Value Then f = 5
End If
If e = Cells(94, 88).Value Then f = 6
End If
If e = Cells(94, 89).Value Then f = 7
End If
If e = Cells(94, 90).Value Then f = 8
End If
If e = Cells(94, 91).Value Then f = 9
End If
If e = Cells(94, 92).Value Then f = 10
End If
If e = Cells(94, 93).Value Then f = 11
End If
If e = Cells(94, 94).Value Then f = 12
End If
If e = Cells(94, 95).Value Then f = 13
End If
Herzlichen Dank für eure Antworten
Gruss Rebecca