Zellabfrage mit einer Schleife
09.10.2013 20:09:54
Golem
mit folgendem Teil eines Makros, frage ich Zellen nach einen evtl. vorhandenen Wert ab.
Wenn Wert gleich 1, dann wird Zellnr weiter verwendet.
Sub Farbe()
Dim Zellnr As String
If Range("Zelle22") = 1 Then
Zellnr = "22"
ElseIf Range("Zelle24") = 1 Then
Zellnr = "24"
ElseIf Range("Zelle26") = 1 Then
Zellnr = "26"
ElseIf Range("Zelle28") = 1 Then
Zellnr = "28"
ElseIf Range("Zelle30") = 1 Then
Zellnr = "30"
ElseIf Range("Zelle32") = 1 Then
Zellnr = "32"
ElseIf Range("Zelle34") = 1 Then
Zellnr = "34"
ElseIf Range("Zelle36") = 1 Then
Zellnr = "36"
ElseIf Range("Zelle38") = 1 Then
Zellnr = "38"
ElseIf Range("Zelle40") = 1 Then
Zellnr = "40"
ElseIf Range("Zelle42") = 1 Then
Zellnr = "42"
Else
Zellnr = "44"
End If
Wie kann mit einer Schleife diese Zellabfrage vereinfacht werden?
Für evtl. Tipps oder Anregungen schon mal besten Dank!
Werner