Gruppe
Ereignis
Problem
Wie kann ich auf Zellen einer geschlossenen Arbeitsmappe zugreifen, ohne jedesmal den vollen Dateinamen angeben zu müssen?
ClassModule: Tabelle2
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim sTxt As String
If IsEmpty(Target) Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If Target.Address <> "$E$1" Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
sTxt = "'" & Range("B1").Value
sTxt = sTxt & "[" & Range("B2").Value & "]"
sTxt = sTxt & Range("B3").Value & "'!"
sTxt = sTxt & Target.Value
Target.Formula = "=" & sTxt
Target.Value = Target.Value
ERRORHANDLER:
Application.EnableEvents = True
End Sub