Makro mit Makro ausführen

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

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

Sub breiter1() Dim wksSheet As Worksheet For Each wksSheet In 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:T,Y:Y,AL:AL,AY:AY,BL:BL,BY:BY").ColumnWidth = 13.5 .Range("C:E,L:L,M:S,Z:Z,AA:AE,AM:AR,AZ:AZ,BA:BE,BM:BR,BZ:CE").ColumnWidth = 13.5 .Range("S:T,AF:AG,AS:AT,BF:BG,BS:BT,CF:CG").ColumnWidth = 15 End With Next End Sub Sub KopfHoch2() Dim wksSheet As Worksheet For Each wksSheet In Worksheets With wksSheet .Rows(1).RowHeight = 30 .Rows(2).RowHeight = 20 End With Next End Sub

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro mit Makro ausführen

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

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread