Button mit Makroauswahl

Ronny · 2022-07-28T12:07:09+00:00

Hallo zusammen, ich habe 4 Makros die Dateien aufrufen per Klick. Aktuell klicke ich auf 4 Button und jeweils öffnet sich die Datei. Gibt es eine Möglichkeit auf einen Button zu klicken und dann auszuwählen welche der 4 Makros ausgeführt werden soll. Über Sub ... Call ... Call ... usw End Sub Kann man ja alle ausführen jedoch würde ich gern vorher sagen können welche ich brauche. Mit freundlichen Grüßen Ronny

Hi
das macht man besser ohne Button.
erstelle für das Blatt im Modul des Blattes das BeforeDouble_Klick-Event.
das wird ausgelöst, wenn du einen Doppelklick auf die Zelle machst.
Target ist die Zelle, die angeklickt wurde.
mit Target.Row bekommst du die Zeilennummer dieser Zelle
mit Target.Column die Spaltennummer
Intersect(Target.EntireColumn, Rows(9)) gibt dir den Namen der Worddatei aus der Zeile 9
Intersect(Target.EntireRow, columns(13)) gibt dir den Namen aus Spalte M.
mit If Not Intersect(Target, Range("O11:R60")) is nothing kannst du prüfen, ob der Doppelkllick im relevanten Zellbereich stattgefunden hat.
außerdem solltest du den Befehl Cancel = True einmal ausführen, damit die normale Doppelklickaktion (aktiviereung der direkten Zellbearbeitung) nicht ausgeführt wird.
damit solltest du die Aufgabe lösen können, ohne für jeden Namen und für jede Worddatei einen Button zu erstellen.
Gruß Daniel

HI
wenn du die korrekten Dateinamen in die Zellen schreibst, am einfachsten so, das kann ja auch eine andere Zeile sein, wenn der echte Dateiname zu lang für die Exceltabelle ist.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Dateiname As String
Dim WordApp As Object
If Not Intersect(Target, Range("O11:R60")) Is Nothing Then
Dateiname = "C:\"
Dateiname = Dateiname & Intersect(Target.EntireColumn, Rows(9)).Value
Dateiname = Dateiname & " " & Intersect(Target.EntireRow, Columns(13)).Value
Set WordApp = CreateObject("Word.Application")
With WordApp
.Visible = True
.Documents.Open Filename:=Dateiname
End With
Cancel = True
End If
End Sub

wenn du in der Tabelle selbst keine echten Dateinamen hinterlegen willst:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Dateiname As String
Dim WordApp As Object
If Not Intersect(Target, Range("O11:R60")) Is Nothing Then
Dateiname = "C:\"
Select Case Target.Column
Case 14: Dateiname = Dateiname & "Datei 1"
Case 15: Dateiname = Dateiname & "Datei 2"
Case 16: Dateiname = Dateiname & "Datei 3"
Case 17: Dateiname = Dateiname & "Datei 4"
end Select
Dateiname = Dateiname & " " & Intersect(Target.EntireRow, Columns(13)).Value
Set WordApp = CreateObject("Word.Application")
With WordApp
.Visible = True
.Documents.Open Filename:=Dateiname
End With
Cancel = True
End If
End Sub

Gruß Daniel

Forumthread: Button mit Makroauswahl

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Button mit Makroauswahl

Forumthread: Button mit Makroauswahl

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread