Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro für mehrere Blätter durch Klick aktivieren

Makro für mehrere Blätter durch Klick aktivieren
07.02.2018 15:35:54
Wrieden
Moin,
ich hoffe Ihr könnt mir bei meinen Problemen helfen:
Ich habe eine Excelanwendung mit mehreren Sheets.
Auf 12 Sheets wird beim einfachen Klick auf eine bestimmte Zelle eine Userform aktiviert und von dieser Änderungen auf allen 12 Seiten vorgenommen.
Dabei ist egal von welchem Sheet aus die Userform gestartet wurde.
Dazu hab ich in jedes Sheet des Projekts folgenden Code geschrieben:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Userform
Schleife über alle Seiten
End Sub

Zusätzlich habe ich eine Makro auf jedem Sheet,
dass beim Öffen der Seite an eine vom aktuellen Datum abhängige Stelle scrollt.
Das funktioniert soweit auch gut.
Nun zu meinem Problem:
Ich muss aber 52 Excel-Dateien (zu je 12 Sheets) so "nachrüsten".
Deshalb wäre es schöner wenn ich die Makros zentral unter Arbeitsmappe ablegen könnte (auch für den Fall weiterer nachträglicher Verbesserungen).
Buttons und Doppelklick sind leider keine Option - es muss über den einfachen Klick in eine Zelle auszulösen sein.
Wäre super wenn ihr ne Lösung hättet...
Danke schon mal

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro für mehrere Blätter durch Klick aktivieren
07.02.2018 16:54:27
ChrisL
Hi
Sinn und Unsinn ist eine andere Frage. Nachfolgend das Prinzip um das Makro auszulagern, aber die Makrodatei muss natürlich trotzdem geöffnet sein.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Call MeinMakro(ThisWorkbook, Target)
End Sub

Sub MeinMakro(WB As Workbook, rngTarget As Range)
MsgBox "Aufruf von Mappe: " & WB.Name
MsgBox "Selektion in Zelle: " & rngTarget.Parent.Name & "!" & rngTarget.Address(0, 0)
' Userform1.Show
End Sub
cu
Chris
Anzeige
AW: Makro für mehrere Blätter durch Klick aktivieren
07.02.2018 18:05:33
ChrisL
Sorry, für den Aufruf des Makros in einer anderen Datei brauchst du
Application.Run ("Mappe1.xlsm!Makro1")

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige