Guten Tag

Ich bin an einer etwas komplexeren Aufgabe und komme grad nicht weiter:

Ausgangslage: Ich möchte Daten aus einem Tabellenblatt mittels Abfrage in ein anderes übernehmen.

Mein Problem: Zuerst hatte ich eine Überprüfung nach einem Zellenwert statisch programmiert (Code 1). Dies funktionierte bestens. Nun bin ich aber etwas weiter und die statische Überprüfung reicht nicht mehr aus. Es muss zwingend dynamisch geschehen. Meinen Lösungsversuch findet ihr in Code 2.

Frage: Wo liegt mein Fehler? Kann mir jemand dabei helfen?

Besten Dank im Voraus für eure Hilfe.

Gruss Sparhawk

Code 1 (statisch) => funktioniert

Sheets("Formular").Select

If Worksheets("Daten").Range("AI6") = "F" Then
    Worksheets("Formular").Range("B2") = "WertEins"
Else: Worksheets("Formular").Range("B2") = "WertZwei"
End If

Code 2 (dynamisch) => funktioniert nicht

Sheets("Formular").Select

If Worksheets("Daten").ActiveCell.Offset(0, 33).Value = "F" Then
    Worksheets("Formular").Range("B2") = "WertEins"
Else: Worksheets("Formular").Range("B2") = "WertZwei"
End If