|
Hallo zusammen,
ich bin nicht so sehr bewandert in VBA, aber vielleicht kann mir jemand helfen.
Ich nutze Excel 365 und weiß, dass ich ein normales Makro zur Nutzung in jeder Datei die ich öffne in einer Personal.xlsb ablegen kann.
Ich habe nun ein Makro (im Internet) gefunden, das eine "Private Sub" Anweisung enthält. Dies funktioniert leider nicht, bzw es funktioniert nur in einer normalen Arbeitsmappe in der das Makro auf gespeichert ist, aber nicht wenn ich es in die Personal.xlsb eingebe.
Habe folgenden Code in Modul 1 eingetragen:
Private Sub appevent_SheetSelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
'Clear the color of all cells
Cells.Interior.ColorIndex = 0
With Target
'Highlight row and column of the selected cell
.EntireRow.Interior.ColorIndex = 38
.EntireColumn.Interior.ColorIndex = 24
End With
Application.ScreenUpdating = True
End Sub
Es ist einfach nur eine Hilfe in Dateien mit großer Datenmenge immer zu wissen in welcher Linie und Spalte man gerade ist, da die Zelle und die dazugehörige Linie und Spalte farbig dargestellt wird.
Kann mir hierbei jemand helfen, wie ich es hinbekomme, dass mir diese Funktion in jeder beliebigen Datei die ich öffne zur Verfügung steht?
Im Voraus schonmal vielen Dank an alle ??
|