ActiveCell ist eine Eigenschaft des Application-Objekt und keine Eigenschaft der Worksheet-Objekt
Hattu geteilte Fenster, eines je Tabelle, dann geht z.B.
debug.Print windows(2).ActiveCell.Address
sonst kannst du nur ein workaround - zum Bleistift so
Sub Cod2()
Dim c As Range
Sheets("Daten").Select
Set c = ActiveCell
Sheets("Formular").Select
If c.Offset(0, 33).Value = "F" Then
Worksheets("Formular").Range("B2") = "WertEins"
Else: Worksheets("Formular").Range("B2") = "WertZwei"
End If
End Sub
|