Button mit Makroauswahl

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Button mit Makroauswahl

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

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread