Position des Buttons herausfinden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub tt() Dim ov, Starten, Adobe Adobe = "C:\Programme\Adobe\Acrobat 7.0\Reader\AcroRd32.exe " Set ov = ActiveSheet.Shapes(Application.Caller) Starten = Shell(Adobe & Cells(ov.TopLeftCell.Row, ov.TopLeftCell.Column - 1)) End Sub

Sub tt1() Dim ov, Starten, Adobe Set ov = ActiveSheet.Shapes(Application.Caller) MsgBox Cells(ov.TopLeftCell.Row, ov.TopLeftCell.Column).Address End Sub Sub tt2() Call PDFAnzeigen(Application.Caller) End Sub Sub PDFAnzeigen(ByVal Bildnme As String) 'aus Tabelle2 mit Vlookup den PDF-Dateinamen zu Bildname holen und anzeigen End Sub

Hi Winfried
Es ist egal, wo welcher Button positioniert ist, da du direkt für jedes einzelne Klick-Ereignis jeden Buttons das jeweils vorgesehene Makro startest.
1. Wechsel auf dem Tabellenblatt mit den Makros in den Entwurfsmodus.
(dazu klickst du auf das ganz linke Symbol der Steuerelemente-Toolbox - es empfiehlt sich auch, nur Steuerelemente aus dieser Symbolleiste zu verwenden, da sich meiner Meinung nach diese besser steuern lassen, als die Elemente aus der Symbolleiste Formular)
2. Jetzt Rechtsklich auf einen Button und "Code anzeigen" auswählen
3. Excel wechselt in den VBA-Editor und rechts siehst du gleich 2 Code-Zeilen, die ungefähr so aussehen:


Private Sub Commandbutton1_Click()
End Sub

4. Zwischen diesen beiden Zeilen schreibst du für den ausgewählten Button den Code, der bei Klick des Buttons ausgeführt werden soll
5. Du wiederholst die Schritte von 2 - 5, bis du für alle Buttons den VBA-Code geschrieben hast
6. Nun wechselt du wieder in den Ausführen-Modus, in dem du wieder auf das in 1. beschriebene Symbol klickst.
Jetzt kannst du auf die einzelnen Buttons klicken und genau der Code wird gestartet, den du zuvor programmiert hattest.
Konnte ich helfen?
Ciao
Thorsten

Hi Winfried
Dann entweder, wie schon erwähnt, ein Klasesnmodul (weiss ich aber auch nich wie das geht), oder so:
1. Füge dem VBA-Projekt ein allgemeines Modul zu
2. Schreibe in dieses Modul dieses Makro:


Sub ButtonMakro(ByVal welcherButton As Integer)
Select Case welcherButton
Case 1
Makro für Button 1
Case 2
Makro für Button 2
Case 3
Makro für Button 3
usw
End Select
End Sub

3. In jedes Klick-Ereignis deiner Buttons schreibst du dieses:


Private Sub Commundbutton1_Click()
Call ButtonMakro(1)
End Sub
Private Sub Commundbutton2_Click()
Call ButtonMakro(2)
End Sub
Private Sub Commundbutton3_Click()
Call ButtonMakro(3)
End Sub
usw

Daran, dass du nun mal in jedes Klick-Ereignis etwas reinschreiben musst, kommst du nicht vorbei.
Mit diesem Code-Konstrukt übergibst du bei jedem Klick auf einen Button dem Makro ButtonMakro einen bestimmten Wert.
Im Makro wird dieser Wert dann ausgewertet, und nur der entsprechende Code, der mit Case diesem Wert zugeordnet ist, wird ausgeführt.
Hier hast du zwar alle "Einzelmakros" nur in einem Makro zusammengefasst, aber die Code-Pflege ist trotzdem einfacher, da du bei Änderungen nur in diesem Code Änderungen vornehmen musst, aber eben nicht jedes einzelne Klick-Ereignis korrigieren musst.
Weitere Hilfe zu den hier verwendeten Funktionen, wie z Bsp Select Case, findest du in der Excel-Hilfe.
Konnte ich helfen?
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

Position des Buttons herausfinden

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Position des Buttons herausfinden

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread