Makro mit Makro ausführen

Robert · 2021-01-23T11:07:34+00:00

Hallo liebe Exelgemeinde. Hätte mal wieder ein Frage und Bitte. Ich habe folgendes Makro aufgezeichnet. Es funktioniert _ auch aber nur im in der Tabelle1. Was muss ich tun das ich mehrere Arbeitsblätter mit diesem Makro einrichten möchte. Sub Schaltfläche1_Klicken() ' Schaltfläche1_Klicken Makro Application.Run "Lohn2021.xlsm!breiter1" Application.Run "Lohn2021.xlsm!KopfHoch2" Application.Run "Lohn2021.xlsm!Zellenverbindenkopf3" Application.Run "Lohn2021.xlsm!Zellenformatieren4_1" Application.Run "Lohn2021.xlsm!AB_X_Formatieren4_2" End Sub Für Eure Mühen danke ich im voraus. LG Robert

Hallo Robert,
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Falls Link nicht ausgeführt wird:
1. Link kopieren
2. rechte Maustaste neues Fenter.
3. Umschaltstaste drücken und Klick auf den Link
4. STRG+ Link mit Maus aktivieren

Hallo Ihr Lieben.
Habe diesen Code verwendet um erstmal überhaupt zu testen. Da tritt besagter Fehler auf.

Sub breiter1()
Dim wksSheet As Worksheet
For Each wksSheet In ThisWorkbook.Worksheets
With wksSheet
.Range("A:A,F:F,J:J,X:X,AK:AK,AX:AX,BK:BK,BX:BX").ColumnWidth = 30
.Range("B:B,K:K,S:S,T:T,Y:Y,AL:AL,AY:AY,BL:BL,BY:BY").ColumnWidth = 13.5
.Range("C:C,D:D,E:E,L:L,M:M,N:N,O:O,P:P,Q:Q,R:R,S:S,Z:Z,AA:AA,AB:AB,AC:AC,AD:AD,AE:AE,  _
_
AM:AM,AN:AN,AO:AO,AP:AP,AQ:AQ,AR:AR,AZ:AZ,BA:BA,BB:BB,BC:BC,BD:BD,BE:BE,BM:BM,BN:BN,BO:BO,BP:BP, _
BQ:BQ,BR:BR,BZ:BZ,CA:CA,CB:CB,CC:CC,CD:CD,CE:CE").ColumnWidth = 13.5
.Range("S:S,T:T,AF:AF,AG:AG,AS:AS,AT:AT,BF:BF,BG:BG,BS:BS,BT:BT,CF:CF,CG:CG"). _
ColumnWidth = 15
End With
Next
End Sub
Sub KopfHoch2()
Dim wksSheet As Worksheet
For Each wksSheet In ThisWorkbook.Worksheets
With wksSheet
.Rows("1:1").RowHeight = 30
.Rows("2:2").RowHeight = 20
End With
Next
End Sub

LG Robert

Forumthread: Makro mit Makro ausführen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Makro mit Makro ausführen

Forumthread: Makro mit Makro ausführen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread