|
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
|