Wenn Und Formel

[interface]

Danke, habe ja noch nix.
Suche ja gerade selber noch in den untiefen des www.

Habe noch das gefunden
 

Code:

if rg.Cells(i, 3) & rg.Cells(i, 4) = SonnenKönig" then rg.cells(1,5)="Frankreich"

If und Else

Kenne mich da aber zu wenig aus sorry.

Code:

Sub Demo()

If ("a2") Sonne And ("b2") König Then
    ("c2") = "Sonnenkönig"
Else
If ("a2") Regen And ("b2") König Then

    ("c2") = "Regenkönig"

End If

End Sub

In der angehängten Mappe ist der Code von hier.
Die ersten drei Zellen sind unterschiedlich befüllbar nur die 4 Zelle soll wenn bestimmte Werte eingegeben sind eine vorgegeben Werte ausspucken.
Im Ausgabe File habe ich es versucht bildlich umzusetzten.

cu

[interface]

So habe mal was gebastelt.
Aber läuft nicht ganz so rund.
Vielleicht blickt ja einer von euch mehr durch.

cu

[Cadmus]

Ich würde die Lösung von LCohen in Beitrag #10 vorziehen.