Hallo
Ich habe ein Makro das das immer nach oben springt wenn ich in Spalte A eine Zelle Linksklicke.
Leider funktioniert das nur mit Spalte A.
Wie kann ich alle Spalten ansprechen ? Also egal welche Spalte ich anklicke soll das Macro ausgeführt werden.
Habe ich schon versucht Range("A:CW") Statt Column geht aber nicht.
If Not .Comment Is Nothing And .Column = 1 Then .Comment.Visible = True
'Spring mit Linksklick immer nach oben
Application.DisplayCommentIndicator = xlNoIndicator
If TypeOf Selection Is Range Then
For Each objCell In Selection
With objCell
If Not .Comment Is Nothing And .Column = 1 Then .Comment.Visible = True 'Hier habe ich schon versucht Range("A:CW")
End With
Next
End If
If Target.Column = 1 Then ActiveWindow.ScrollRow = ActiveCell.Row
End Sub
Gruß
Oraculix