Hallo Gast70117
Vielen Dank für Deine Antwort.
Ich habe noch einen anderen Tip erhalten:
ActiveCell bezieht sich nur auf das aktive Tabellenblatt. Daher habe ich für die Überprüfung gewechselt auf das Blatt "Daten".
Sheets("Daten").Select
If ActiveCell.Offset(0, 33).Value = "F" Then
Worksheets("Formular").Range("B2") = "WertEins"
Else: Worksheets("Formular").Range("B2") = "WertZwei"
End If
Dies funktioniert nun bestens. Aber trotzdem nochmals danke für deine Hilfe.
|