worksheetSelectionChange
brend
auch im Online-Archiv bin ich leider nicht fündig geworden.
Wie muss dieser Code geändert weren, dass dann, wenn in Zelle L16 sich die Zahl ändert, die Kostenstelle in Zelle A2 geschrieben wird:
''bei jeder Blattänderung die Kostenstelle, die per Link in Cells 16,12) improtiert wurde, in die Zelle A2 schreiben
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim monat As Integer
Dim sSrc As String
With Sheets("Kobla_Planung")
sSrc = .Cells(16, 12).Formula
If InStr(sSrc, "[") And InStr(sSrc, "]") Then
'schreibe die Kostenstelle aus der Formel in die Zelle A2 Cells (2,1):
.Cells(2, 1) = Mid(sSrc, InStr(sSrc, "[") + 1, InStr(sSrc, "]") - InStr(sSrc, "[") - _ 5)
End If
End With
End Sub
Danke Euch!!