"Dynamisches" Mouseover (Zell-Kommentar)

[franks7169]

... ich glaube, jetzt läuft es wie gewünscht:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("R7:R380")) Is Nothing Then
X = ActiveCell.Row
Dim Kommentar As String
KommentarR = Cells(X, 44).Value
Sheets("Eingabe").Cells(X, 18).ClearComments
Sheets("Eingabe").Cells(X, 18).AddComment KommentarR
End If

If Not Application.Intersect(Target, Range("U7:U380")) Is Nothing Then
X = ActiveCell.Row
Dim KommentarU As String
KommentarU = Cells(X, 47).Value
Sheets("Eingabe").Cells(X, 21).ClearComments
Sheets("Eingabe").Cells(X, 21).AddComment KommentarU
End If

If Not Application.Intersect(Target, Range("X7:X380")) Is Nothing Then
X = ActiveCell.Row
Dim KommentarX As String
KommentarX = Cells(X, 50).Value
Sheets("Eingabe").Cells(X, 24).ClearComments
Sheets("Eingabe").Cells(X, 24).AddComment KommentarX
End If

End Sub



Damit es automatisch ausgeführt wird, habe ich es beim Arbeitsblatt und nicht als Modul gespeichert.

mfg, Frank