Hai,

folgende Ausgangssituation :

Eine Exceldatei, mit drei Tabellenblätter, jedes Tabellenblatt hat zwei Button mit dazugehörigen Makros.

Nun liegen die Makros (im Editor) im jeweiligen Tabellenblatt sind aber gleich.
D.h. auf Tabellenblatt 1 gibt es einen Button mit zugehörigem Makro, welches Zeilen ausblendet.
auf Tabellenblatt 2 gibt es einen Button mit zugehörigem Makro, welches Zeilen ausblendet.
... usw.

Nun will ich die gleichen Makros der einzelnen Tabellenbätter im Modul zusammenfassen, damit die Änderungen nur einmal und nicht pro Tabellenblatt gemacht werden müssen.

Geht das ?

Wenn, ja : Wie ?

Fragt nicht, wie ich zu dieser Konstellation gekommen bin.

Danke.

Ciao Stefan

Kannst du mal das Makro (welches ja in allen Blättern gleich sein soll) hier rein posten?

Ich verstehe die Aufgabenstellung nämlich nicht so ganz.

Jepp. geht.
Benne sie eindeutig (Sollte eigentlich schon sein, da ja der Button-Name in der Methode drin steckt.
Also wenn bisher jedes Knopf-Makro 'Knopf1' hiess, dann sollte es nachher 'sheet1_knop1' heissen.
Anschliessend die Knöpfe neu verlinken - fertig.

Wenn du sauber arbeiten willst, dann ziehst du noch alle Gemeinsamkeiten aller Knopf1-Makros in eine eigene Funktion. und machst ggf. nur den Aufruf getrennt

Code vb:

1 2 3 4 5 6 7 8 9 10 11

Sub Button2_Click()     Call tuWas(ActiveSheet.Cells(1, 1).Value) End Sub   Sub Button3_Click()     Call tuWas(ActiveSheet.Cells(4, 5).Value) End Sub   Sub tuWas(ByVal iText As String)     MsgBox iText End Sub

Hai,

Code vb:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

Private Sub Archiv_Click()         ActiveCell.Rows("1:1").EntireRow.Select       Selection.Cut     Sheets("Alt").Rows("3:3").Insert     Selection.Delete Shift:=xlUp     ActiveCell.Select     ActiveSheet.Range("e3").Copy Destination:=Worksheets("Alt").Range("A3")     End Sub   Private Sub ToggleButton1_Click() If ToggleButton1.Value = True Then     ToggleButton1.Caption = "X Einblenden"      Zeilen_ausblenden End If   If ToggleButton1.Value = False Then    ToggleButton1.Caption = "X Ausblenden"      Zellen_einblenden End If End Sub     Sub Zellen_einblenden()     ActiveSheet.UsedRange.Rows.Hidden = False End Sub     Sub Zeilen_ausblenden() Application.ScreenUpdating = False   Dim Zelle As Range   For Each Zelle In Range("A6", "A" & Range("a65536").End(xlUp).Row)         If Zelle = "X" Then       Zelle.EntireRow.Hidden = True     Else       Zelle.EntireRow.Hidden = False     End If Next Zelle   Application.ScreenUpdating = True     End Sub

Diese(s) Makro wird über zwei Button gestartet. Einmal für Archiv und einmal für Ein-/Ausblenden.

... aber das Ganze habe ich 3 mal auf jedem Tabelenblatt die zwei Button und im Editor für jedes Tabellenblat die/das Makro(s).

Ciao Stefan

Ich glaube eher, dass Stefan nach einer Lösung sucht, mit nur einem Click auf Button auf Blatt 1, die Makros für alle 3 Tabellenblätter auszuführen, also dass er eben nicht sich durch die Blätter hangeln muss

@Leola
Bitte die VB-Codes in Zukunft selber in VB-Tags setzen. Es ist einfach viel lesbarer als mit PHP-Tags:
[VB]Dein Code[/VB]

@Zvoni
Nunja, bei meinem Beispiel ist alles in einem Modul. activsheet() basiert automatisch auf das Sheet wo der Button gedrückt wird. Ergo kann man mit dem Arbeiten

Yaslaw,

ich habe ja gar nicht behauptet, dass man mit deinem Code nicht arbeiten könnte *gg*

Ich denke nur nicht, dass es das ist was Stefan sucht

Hai,

man was seid ihr schnell mit den Antworten.

@Zvoni : Nein. Ein Button auf Blatt 1 und es soll nur auf Blatt 1 ausgeführt werden.

Nur die drei Makros für die einzelnen Tabellenblätter sind ja gleich im Aufbau.



Mein Ansatz war alles von einem Tabellenblatt kopieren und in Modul 1 einfügen (im Editor) und dann die Button dahin verlinken.

@Yaslaw : Ich denke so sollte es sein. Nur wie mach ich das ?

Von Knop1 auf Sheet1_Knop1 ?

Ciao Stefan

Als Beispiel (ich weiss halt nicht genau, was alles Konstant sein soll

Code vb:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

'Button von Sheet 1 Private Sub Archiv_sheet1_Click()     Call archiv("Alt", 3) End Sub   'Button von Sheet 2 Private Sub Archiv_sheet2_Click()     Call archiv("Alt", 15) End Sub   'Allgemeine Archiv-Funktion 'ActiveCell und ActiveSheet zsollten automatisch auf das richtige Sheet/Zelle zeigen Private Sub archiv(ByVal iDestSheetName As String, ByVal iDestRow As Long)     ActiveCell.Rows("1:1").EntireRow.Select       Selection.Cut     Sheets(iDestSheetName).Rows(iDestRow & ":" & iDestRow).Insert     Selection.Delete Shift:=xlUp     ActiveCell.Select     ActiveSheet.Range("e3").Copy Destination:=Worksheets(iDestSheetName).Range("A" & iDestRow) End Sub

Hai,

Als Beispiel (ich weiss halt nicht genau, was alles Konstant sein soll

Ich auch nicht, weil das aus anderen Makros zusammengestückelt ist. (..aber ich arbeite dran. Anfänger halt.)

Das heisst dies :

Code vb:

1 2 3 4

'Button von Sheet 1 Private Sub Archiv_sheet1_Click()     Call archiv("Alt", 3) End Sub

ist der Tabelenbezogene Aufruf für das eigentliche Makro ?!.

Das probiere ich mal aus.

Ciao Stefan

Zitat von Leola13

Das heisst dies :

Code vb:

1 2 3 4

'Button von Sheet 1 Private Sub Archiv_sheet1_Click()     Call archiv("Alt", 3) End Sub

ist der Tabelenbezogene Aufruf für das eigentliche Makro ?!.

Genau. Dem Button kannst du nur ein Event-Sub (ButtonName_Click()) hinterlegen. Das kann aber in einem Modul sein, also alle Event-Subs zu allen Buttons in einem einzigen Modul.
In diesem Event-Sub musst du die allgemeine Funktion aufrufen und die Spezifischen Angaben mitgeben.

Hai,

Nachtrag zu den Konstanten :

Es wird immer in Sheet "Alt" eingefügt
immer ab Reihe 3
und es wird immer der Wert von e3 kopiert.

Ciao Stefan