Thema Datum  Von Nutzer Rating
Antwort
Rot Private Sub in Personal.xlsb nutzen
15.08.2024 08:47:12 Dirk
NotSolved
15.08.2024 10:42:34 ralf_b
Solved
15.08.2024 15:15:18 Gast56368
NotSolved
15.08.2024 18:49:10 xlKing
NotSolved
15.08.2024 19:33:34 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Dirk
Datum:
15.08.2024 08:47:12
Views:
215
Rating: Antwort:
  Ja
Thema:
Private Sub in Personal.xlsb nutzen

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 ??

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Private Sub in Personal.xlsb nutzen
15.08.2024 08:47:12 Dirk
NotSolved
15.08.2024 10:42:34 ralf_b
Solved
15.08.2024 15:15:18 Gast56368
NotSolved
15.08.2024 18:49:10 xlKing
NotSolved
15.08.2024 19:33:34 ralf_b
NotSolved