wie kann ich ein aktives Zellenblatt in eine wenn dann Formel einbinden?
z.B. wenn Blatt1 aktiv, dann schreibe a (in die Zelle in der ich die Formel eingegeben habe)
ich finde die Bezeichung "Aktiv" nicht.
Bitte um Hilfe.
MfG
Steve
Sub ausgabeaktiv ()
Dim Aktivblatt As String
if sheets("Blatt1")=activate then
With Sheets("Verknüpfungen")
Aktivblatt = .activate("A1")
End With
write ("A")
end if
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case ActiveSheet.Name
Case "Tabelle1"
Worksheets("Verknüpfungen").Range("A1") = "A"
Case "Tabelle2"
Worksheets("Verknüpfungen").Range("A1") = "B"
End Select
End Sub