Office: Wert in Tabellenblatt mit .Find suchen

Hallo, ich Grüße Euch...mich trennt nur noch ein Problem vor dem Abschluss des Projektes..

Ich muss in einer Tabelle schauen, ob in einem Bereich eine 1 steht. wenn dort keine steht soll er in einem anderem Bereich schauen, da dort dann zwingend immer eine steht.

Der Code bisher lautet:

'KWA?
Dim rong As Range
Dim waltnr1, waltnr2 As String
Set rong = Worksheets("KWA").Range("L29:L37").Find(1, lookin:=xlValues)
If rong Is Nothing Then GoTo 2
If rong.Row = 29 Then waltnr1 = "(KWA)": waltnr2 = "1": GoTo anzeige
If rong.Row = 31 Then waltnr1 = "(KWA)": waltnr2 = "2": GoTo anzeige
If rong.Row = 33 Then waltnr1 = "(KWA)": waltnr2 = "3": GoTo anzeige
If rong.Row = 35 Then waltnr1 = "(KWA)": waltnr2 = "4": GoTo anzeige
If rong.Row = 37 Then waltnr1 = "(KWA)": waltnr2 = "5": GoTo anzeige


'Nicht KWA? dann muss es KWB sein
2:
Set rong = Worksheets("KWA").Range("F29:F37").Find(1, lookin:=xlValues)
If rong Is Nothing Then waltnr1 = "(KWx)": waltnr2 = "x": GoTo anzeige
If rong.Row = 29 Then waltnr1 = "(KWB)": waltnr2 = "1": GoTo anzeige
If rong.Row = 31 Then waltnr1 = "(KWB)": waltnr2 = "2": GoTo anzeige
If rong.Row = 33 Then waltnr1 = "(KWB)": waltnr2 = "3": GoTo anzeige
If rong.Row = 35 Then waltnr1 = "(KWB)": waltnr2 = "4": GoTo anzeige
If rong.Row = 37 Then waltnr1 = "(KWB)": waltnr2 = "5": GoTo anzeige

anzeige:
walt.Caption = waltnr1 & " Alternative " & waltnr2
Schritt1.Caption = "Eingabe der IST-Werte in der umgesetzten Alternative " & waltnr2

End Sub

meine Tabelle schaut so aus (siehe Anhang): Steht im Rang der Kosten-Wirksamkeit (Zellen L29:L37; Zweischritt) keine 1 (da in der Berechnung nicht vorgesehen) dann schaue eben beim Rang des interpolierten Kapitalwertes. (Zellen F29:F37; Zweischritt) wo die 1 ist. Die Zellen sind als Zahl definiert. Sicher geht das auch alles eleganter, aber ich bin froh das es fast läuft.. Was mache ich falsch?

:)

 

Bisher zeigt er mit im Ergebis leider eben nur KWx mit x an, obwohl links im Rang eine 1 ist und rechts alles leer da nicht vorhanden. In dieser Konstellation müßte er eigentlich (KWB) Alternative 1 ausgeben. Ach ja.. und wenn rechts was steht, muss er links nicht mehr schauen. Deswegen der Sprung zur Anzeige.

 

Moin,

ich habe deinen Anhang (das Bildchen) in Excel eingefügt, aber leider kann Excel damit nicht rechnen.

 

hallo ich hab parallel wegen der Dringlichkeit selbst eine andere Lösung gefunden:

For i = 1 To 5
a = "L" + CStr(27 + 2 * i)
If Worksheets("KWA").Range(a).Value = 1 Then
waltnr1 = "(KWA)": waltnr2 = i
GoTo anzeige
End If
Next

For i = 1 To 5
a = "F" + CStr(27 + 2 * i)
If Worksheets("KWA").Range(a).Value = 1 Then
waltnr1 = "(KWB)": waltnr2 = i
GoTo anzeige
End If
Next
waltnr1 = "(KWx)": waltnr2 = "x"

anzeige:
walt.Caption = waltnr1 & " Alternative " & waltnr2
Schritt1.Caption = "Eingabe der IST-Werte in der umgesetzten Alternative " & waltnr2

Funktioniert fehlerfrei. Danke Dir trotzdem