Makro auf alle Tabellenblätter

kolri · 19. September 2010 um 19:55

hallo zusammen, habe ein Makro, welches ich für alle 12 tabellenblätter (Januar bis Dezember) anwenden möchte. Es ist das erste mal dass ich mit makros arbeite und daher wenig erfahrung. Habe mit Hilfe von foren folgendes Makro, was aber auf allen Blättern angewandt werden soll. was muss ich tun? Danke euch

Sub aktualisieren()

’ Worksheets(„Tabelle1“).Protect Password:=„Dein Kennwort“, UserInterfaceOnly:=True

ActiveSheet.Protect UserInterfaceOnly:=True
’
Range(„B8:M496“).Select
Range(„M8“).Activate
ActiveWorkbook.Worksheets(„Januar“).ListObjects(„Tabelle115“).Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets(„Januar“).ListObjects(„Tabelle115“).Sort.SortFields. _
Add Key:=Range(„K8:K496“), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(„Januar“).ListObjects(„Tabelle115“).Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range(„D8“).Select
ActiveCell.FormulaR1C1 = „=IF(R[1]C[7]=RC[7],“" „“,RC[1])"
Range(„D8“).Select
Selection.AutoFill Destination:=Range(„D8:smiley:496“), Type:=xlFillDefault
Range(„D8:smiley:496“).Select
Range(„D31“).Select
ActiveWindow.ScrollRow = 8
Range(„E8“).Select
ActiveCell.FormulaR1C1 = „=SUM(R[-4]C[7]+RC[-3]-RC[-2])“
Range(„E9“).Select
ActiveCell.FormulaR1C1 = „=SUM(R[-1]C+RC[-3]-RC[-2])“
Range(„E8“).Select
ActiveCell.FormulaR1C1 = „=SUM(R[-4]C[7]+RC[-3]-RC[-2])“
Range(„E9:E496“).Select
Selection.ClearContents
ActiveWindow.ScrollRow = 469
ActiveWindow.ScrollRow = 466
ActiveWindow.ScrollRow = 464
ActiveWindow.ScrollRow = 462
ActiveWindow.ScrollRow = 453
ActiveWindow.ScrollRow = 446
ActiveWindow.ScrollRow = 437
ActiveWindow.ScrollRow = 419
ActiveWindow.ScrollRow = 397
ActiveWindow.ScrollRow = 371
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 322
ActiveWindow.ScrollRow = 303
ActiveWindow.ScrollRow = 279
ActiveWindow.ScrollRow = 253
ActiveWindow.ScrollRow = 235
ActiveWindow.ScrollRow = 218
ActiveWindow.ScrollRow = 198
ActiveWindow.ScrollRow = 180
ActiveWindow.ScrollRow = 170
ActiveWindow.ScrollRow = 154
ActiveWindow.ScrollRow = 142
ActiveWindow.ScrollRow = 128
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 8
Range(„E9“).Select
ActiveCell.FormulaR1C1 = „=SUM(R[-1]C+RC[-3]-RC[-2])“
Range(„E9“).Select
Selection.AutoFill Destination:=Range(„E9:E496“), Type:=xlFillDefault
Range(„E9:E496“).Select
Range(„E9:E496“).Select
Range(„E10“).Activate
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
Range(„B8“).Select
End Sub

Widmar_Heister_708d4d · 19. September 2010 um 20:13

hallo zusammen, habe ein Makro, welches ich für alle 12
tabellenblätter (Januar bis Dezember) anwenden möchte. Es ist
das erste mal dass ich mit makros arbeite und daher wenig
erfahrung. Habe mit Hilfe von foren folgendes Makro, was aber
auf allen Blättern angewandt werden soll. was muss ich tun?
Danke euch

z.b. so

Sub aktualisieren(TabellenName As String)

Worksheets(TabellenName).Protect Password:=„Dein Kennwort“,

UserInterfaceOnly:=True

ActiveSheet.Protect UserInterfaceOnly:=True
’
Range(„B8:M496“).Select
Range(„M8“).Activate

ActiveWorkbook.Worksheets(TabellenName).ListObjects(„Tabelle115“).Sort.SortFields.

_
Clear

ActiveWorkbook.Worksheets(TabellenName).ListObjects(„Tabelle115“).Sort.SortFields.

_
Add Key:=Range(„K8:K496“), SortOn:=xlSortOnValues,
Order:=xlAscending, _
DataOption:=xlSortNormal
With

ActiveWorkbook.Worksheets(TabellenName).ListObjects(„Tabelle115“).Sort

.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range(„D8“).Select
ActiveCell.FormulaR1C1 = „=IF(R[1]C[7]=RC[7],“" „“,RC[1])"
Range(„D8“).Select
Selection.AutoFill Destination:=Range(„D8:smiley:496“),
Type:=xlFillDefault
Range(„D8:smiley:496“).Select
Range(„D31“).Select
ActiveWindow.ScrollRow = 8
Range(„E8“).Select
ActiveCell.FormulaR1C1 = „=SUM(R[-4]C[7]+RC[-3]-RC[-2])“
Range(„E9“).Select
ActiveCell.FormulaR1C1 = „=SUM(R[-1]C+RC[-3]-RC[-2])“
Range(„E8“).Select
ActiveCell.FormulaR1C1 = „=SUM(R[-4]C[7]+RC[-3]-RC[-2])“
Range(„E9:E496“).Select
Selection.ClearContents
ActiveWindow.ScrollRow = 469
ActiveWindow.ScrollRow = 466
ActiveWindow.ScrollRow = 464
ActiveWindow.ScrollRow = 462
ActiveWindow.ScrollRow = 453
ActiveWindow.ScrollRow = 446
ActiveWindow.ScrollRow = 437
ActiveWindow.ScrollRow = 419
ActiveWindow.ScrollRow = 397
ActiveWindow.ScrollRow = 371
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 322
ActiveWindow.ScrollRow = 303
ActiveWindow.ScrollRow = 279
ActiveWindow.ScrollRow = 253
ActiveWindow.ScrollRow = 235
ActiveWindow.ScrollRow = 218
ActiveWindow.ScrollRow = 198
ActiveWindow.ScrollRow = 180
ActiveWindow.ScrollRow = 170
ActiveWindow.ScrollRow = 154
ActiveWindow.ScrollRow = 142
ActiveWindow.ScrollRow = 128
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 8
Range(„E9“).Select
ActiveCell.FormulaR1C1 = „=SUM(R[-1]C+RC[-3]-RC[-2])“
Range(„E9“).Select
Selection.AutoFill Destination:=Range(„E9:E496“),
Type:=xlFillDefault
Range(„E9:E496“).Select
Range(„E9:E496“).Select
Range(„E10“).Activate
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
Range(„B8“).Select
End Sub

und dann

sub jahresabfrage()
aktualisieren(„Januar“)
aktualisieren(„Februar“)
…
…
…
aktualisieren(„Dezember“)
end sub

so nun brauchst du nur immer Jahresabfrage aufrufen Nürtlich füllst du die restlichen Monate mit entsprechenden zeilen aus bei den obrigen Punkten

kolri · 19. September 2010 um 21:07

Hi erstmal vielen vielen dank für die schnelle Antwort. Nun ich habe soeben deinen Makrocode kopiert und in damit meinen Makrocode überschrieben. Habe ganz unten auch die Monate bis Dezember ergänzt. Nun sieht es also so aus:

Sub aktualisieren(TabellenName As String)

Worksheets(TabellenName).Protect Password:=„Dein Kennwort“,
UserInterfaceOnly:=True

ActiveSheet.Protect UserInterfaceOnly:=True
’
Range(„B8:M496“).Select
Range(„M8“).Activate

ActiveWorkbook.Worksheets(TabellenName).ListObjects(„Tabelle115“).Sort.SortFields.
_
Clear

ActiveWorkbook.Worksheets(TabellenName).ListObjects(„Tabelle115“).Sort.SortFields.
_
Add Key:=Range(„K8:K496“), SortOn:=xlSortOnValues,
Order:=xlAscending, _
DataOption:=xlSortNormal
With
ActiveWorkbook.Worksheets(TabellenName).ListObjects(„Tabelle115“).Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range(„D8“).Select
ActiveCell.FormulaR1C1 = „=IF(R[1]C[7]=RC[7],“" „“,RC[1])"
Range(„D8“).Select
Selection.AutoFill Destination:=Range(„D8:smiley:496“),
Type:=xlFillDefault
Range(„D8:smiley:496“).Select
Range(„D31“).Select
ActiveWindow.ScrollRow = 8
Range(„E8“).Select
ActiveCell.FormulaR1C1 = „=SUM(R[-4]C[7]+RC[-3]-RC[-2])“
Range(„E9“).Select
ActiveCell.FormulaR1C1 = „=SUM(R[-1]C+RC[-3]-RC[-2])“
Range(„E8“).Select
ActiveCell.FormulaR1C1 = „=SUM(R[-4]C[7]+RC[-3]-RC[-2])“
Range(„E9:E496“).Select
Selection.ClearContents
ActiveWindow.ScrollRow = 469
ActiveWindow.ScrollRow = 466
ActiveWindow.ScrollRow = 464
ActiveWindow.ScrollRow = 462
ActiveWindow.ScrollRow = 453
ActiveWindow.ScrollRow = 446
ActiveWindow.ScrollRow = 437
ActiveWindow.ScrollRow = 419
ActiveWindow.ScrollRow = 397
ActiveWindow.ScrollRow = 371
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 322
ActiveWindow.ScrollRow = 303
ActiveWindow.ScrollRow = 279
ActiveWindow.ScrollRow = 253
ActiveWindow.ScrollRow = 235
ActiveWindow.ScrollRow = 218
ActiveWindow.ScrollRow = 198
ActiveWindow.ScrollRow = 180
ActiveWindow.ScrollRow = 170
ActiveWindow.ScrollRow = 154
ActiveWindow.ScrollRow = 142
ActiveWindow.ScrollRow = 128
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 8
Range(„E9“).Select
ActiveCell.FormulaR1C1 = „=SUM(R[-1]C+RC[-3]-RC[-2])“
Range(„E9“).Select
Selection.AutoFill Destination:=Range(„E9:E496“),
Type:=xlFillDefault
Range(„E9:E496“).Select
Range(„E9:E496“).Select
Range(„E10“).Activate
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
Range(„B8“).Select
End Sub

Sub jahresabfrage()
aktualisieren („Januar“)
aktualisieren („Februar“)
aktualisieren („März“)
aktualisieren („April“)
aktualisieren („Mai“)
aktualisieren („Juni“)
aktualisieren („Juli“)
aktualisieren („August“)
aktualisieren („September“)
aktualisieren („Oktober“)
aktualisieren („November“)
aktualisieren („Dezember“)
End Sub

Private Sub Workbook_Open()
Worksheets(„Tabelle1“).Protect Password:=„Dein Kennwort“, UserInterfaceOnly:=True
End Sub

Nun habe ich mein Symbol, welches auf das Makro greifen soll, dem Makro Jahresabfrage zugeordnet. Wenn ich dann das Makro starten möchte erhalte ich folgende Meldung: Fehler beim kompliieren. Sintaxfehler. Dann öffnet sich VBL und die Zeile ganz oben: Worksheets(TabellenName).Protect Password:=„Dein Kennwort“, ist markiert. Darunter sind noch einige Zeilen in rot… weisst du was ich falsch mache ?

Reinhard_fb8cb7 · 20. September 2010 um 07:35

Hi erstmal vielen vielen dank für die schnelle Antwort. Nun
ich habe soeben deinen Makrocode kopiert und in damit meinen
Makrocode überschrieben. Habe ganz unten auch die Monate bis
Dezember ergänzt. Nun sieht es also so aus:

Sub aktualisieren(TabellenName As String)

Worksheets(TabellenName).Protect Password:=„Dein Kennwort“,
UserInterfaceOnly:=True

ActiveSheet.Protect UserInterfaceOnly:=True
’
Range(„B8:M496“).Select
Range(„M8“).Activate

ActiveWorkbook.Worksheets(TabellenName).ListObjects(„Tabelle115“).Sort.SortFields.
_
Clear

ActiveWorkbook.Worksheets(TabellenName).ListObjects(„Tabelle115“).Sort.SortFields.
_
Add Key:=Range(„K8:K496“), SortOn:=xlSortOnValues,
Order:=xlAscending, _
DataOption:=xlSortNormal
With
ActiveWorkbook.Worksheets(TabellenName).ListObjects(„Tabelle115“).Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range(„D8“).Select
ActiveCell.FormulaR1C1 = „=IF(R[1]C[7]=RC[7],“" „“,RC[1])"
Range(„D8“).Select
Selection.AutoFill Destination:=Range(„D8:smiley:496“),
Type:=xlFillDefault
Range(„D8:smiley:496“).Select
Range(„D31“).Select
ActiveWindow.ScrollRow = 8
Range(„E8“).Select
ActiveCell.FormulaR1C1 = „=SUM(R[-4]C[7]+RC[-3]-RC[-2])“
Range(„E9“).Select
ActiveCell.FormulaR1C1 = „=SUM(R[-1]C+RC[-3]-RC[-2])“
Range(„E8“).Select
ActiveCell.FormulaR1C1 = „=SUM(R[-4]C[7]+RC[-3]-RC[-2])“
Range(„E9:E496“).Select
Selection.ClearContents
ActiveWindow.ScrollRow = 469
ActiveWindow.ScrollRow = 466
ActiveWindow.ScrollRow = 464
ActiveWindow.ScrollRow = 462
ActiveWindow.ScrollRow = 453
ActiveWindow.ScrollRow = 446
ActiveWindow.ScrollRow = 437
ActiveWindow.ScrollRow = 419
ActiveWindow.ScrollRow = 397
ActiveWindow.ScrollRow = 371
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 322
ActiveWindow.ScrollRow = 303
ActiveWindow.ScrollRow = 279
ActiveWindow.ScrollRow = 253
ActiveWindow.ScrollRow = 235
ActiveWindow.ScrollRow = 218
ActiveWindow.ScrollRow = 198
ActiveWindow.ScrollRow = 180
ActiveWindow.ScrollRow = 170
ActiveWindow.ScrollRow = 154
ActiveWindow.ScrollRow = 142
ActiveWindow.ScrollRow = 128
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 8
Range(„E9“).Select
ActiveCell.FormulaR1C1 = „=SUM(R[-1]C+RC[-3]-RC[-2])“
Range(„E9“).Select
Selection.AutoFill Destination:=Range(„E9:E496“),
Type:=xlFillDefault
Range(„E9:E496“).Select
Range(„E9:E496“).Select
Range(„E10“).Activate
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
Range(„B8“).Select
End Sub

Sub jahresabfrage()
aktualisieren („Januar“)
aktualisieren („Februar“)
aktualisieren („März“)
aktualisieren („April“)
aktualisieren („Mai“)
aktualisieren („Juni“)
aktualisieren („Juli“)
aktualisieren („August“)
aktualisieren („September“)
aktualisieren („Oktober“)
aktualisieren („November“)
aktualisieren („Dezember“)
End Sub

Private Sub Workbook_Open()
Worksheets(„Tabelle1“).Protect Password:=„Dein Kennwort“,
UserInterfaceOnly:=True
End Sub

Hallo Kolri,

Dann öffnet sich VBL und die Zeile
ganz oben: Worksheets(TabellenName).Protect Password:=„Dein
Kennwort“, ist markiert. Darunter sind noch einige Zeilen in
rot… weisst du was ich falsch mache ?

du hast aus Einzeilern Zweizeiler gemacht, wie bei der Codezeile, die der Debugger markiert, die Zeile darunter gehört noch dazu.

Korrigiere das überall.

Man bricht im VB-Editor lange Codezeilen um indem man an der Stelle ein leerzeichen einfügt, dann einen Unterstrich, dann noch ein Leerzeichen, dann Enter drückt.
Dies ggfs. mehrmals tun, wenn die Codezeile extrem lang ist. Dies sit auch, zumindest einmal bei dir der fall gewesen.

Wahrscheinlich dadurch kam auch die With-Schleife durcheinander.

Probiere mal folgendes Makro. Es hat nur einen zeilenumbruch, d.h. die Codezeile die mit „add“ anfängt gehört noch hinten zur Codezeile obendrüber.

In ein standardmodul, z.B. „Modul1“

Option Explicit
'
Sub jahresabfrage()
Dim Jahr As Integer, TabellenName As String
For Jahr = 1 To 12
 With ThisWorkbook.Worksheets(MonthName(Jahr))
 .Protect Password:="Dein Kennwort", UserInterfaceOnly:=True
 .ListObjects("Tabelle115").Sort.SortFields.Clear
 .ListObjects("Tabelle115").Sort.SortFields. \_
 Add Key:=.Range("K8:K496"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
 With .ListObjects("Tabelle115").Sort
 .Header = xlYes
 .MatchCase = False
 .Orientation = xlTopToBottom
 .SortMethod = xlPinYin
 .Apply
 End With
 .Range("D8:smiley:496").FormulaR1C1 = "=IF(R[1]C[7]=RC[7],"" "",RC[1])"
 .Range("E8").FormulaR1C1 = "=SUM(R[-4]C[7]+RC[-3]-RC[-2])"
 .Range("E9:E496").FormulaR1C1 = "=SUM(R[-1]C+RC[-3]-RC[-2])"
 .Range("B8").Select
 End With
Next Jahr
End Sub

In das Modul "Diese Arbeitsmappe"

Private Sub Workbook\_Open()
 Worksheets("Tabelle1").Protect Password:="Dein Kennwort",UserInterfaceOnly:=True
End Sub

Gruß
REinhard

Widmar_Heister_708d4d · 20. September 2010 um 15:16

Nun habe ich mein Symbol, welches auf das Makro greifen soll,
dem Makro Jahresabfrage zugeordnet. Wenn ich dann das Makro
starten möchte erhalte ich folgende Meldung: Fehler beim
kompliieren. Sintaxfehler. Dann öffnet sich VBL und die Zeile
ganz oben: Worksheets(TabellenName).Protect Password:=„Dein
Kennwort“, ist markiert. Darunter sind noch einige Zeilen in
rot… weisst du was ich falsch mache ?

Wie Reinhard angemerkt hat , syntax error heist das was falsch geschrieben wurde.

Meist kopieren Laien einfach alles, dabei hab ich lediglich aufzeigen wollen das „Tabelle1“ nun ersetzt wurde durch TabellenName. Ist aber leider standart wenn die Materie unbekannt ist.

Abhilfe schafft das Original und einfach nochmal gugen was anders ist und es manuel überschreiben ) , das sind maximal 3 Wörter pro Zeile Somit bleibt das orignal Format erhalten .

Ansonsten Melde Dich einfach nochmal

kolri · 21. September 2010 um 15:59

Hi erstmal vielen dank an euch beide, dass ihr mir helfen wollt OK Ich bin vielleicht etwas blöde aber ich verstehe nicht genau was ich machen soll… wie erkannt bin ein echter laie

OK du schreibst ja, dass du Tabelle1 durch Tabellenname ersetzt hast. Meine Excel Tabelle ist gespeichert unter „Neue Kasse anlegen“. Muss ich dann anstatt Tabelle1 bzw. TabellenName, Neue Kasse anlegen reinschreiben? Also ich möchte gerne, dass mein Makro „aktualisieren“ mit einem Klick nicht alle Tabellenblätter sortiert sondern nur das Blatt, wo ich gerade drinn bin und von wo aus ich auf „aktualisieren“ klicke.

Ich habe auch die Formel von Reinhard mal ausprobiert:’

Sub jahresabfrage()
Dim Jahr As Integer, TabellenName As String
For Jahr = 1 To 12
With ThisWorkbook.Worksheets(MonthName(Jahr))
.Protect Password:=„Dein Kennwort“, UserInterfaceOnly:=True
.ListObjects(„Tabelle115“).Sort.SortFields.Clear
.ListObjects(„Tabelle115“).Sort.SortFields. _
Add Key:=.Range(„K8:K496“), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With .ListObjects(„Tabelle115“).Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
.Range(„D8:smiley:496“).FormulaR1C1 = „=IF(R[1]C[7]=RC[7],“" „“,RC[1])"
.Range(„E8“).FormulaR1C1 = „=SUM(R[-4]C[7]+RC[-3]-RC[-2])“
.Range(„E9:E496“).FormulaR1C1 = „=SUM(R[-1]C+RC[-3]-RC[-2])“
.Range(„B8“).Select
End With
Next Jahr
End Sub
…

aber ehrlich gesgagt, geht das auch nicht. Da kommt immernoch die Meldung: Laufzeitfehler 9 Index außerhalb des gültigen Bereichs.
Folgende Zeile wird dann im VBL gelb markiert:

With ThisWorkbook.Worksheets(MonthName(Jahr))

Es tut mir sehr sehr leid wenn ich euch nerve… die tabelle ist schon nach langer arbeit fertig, nur dieses blöde makro

kolri · 26. September 2010 um 16:09

hallo also ich glaube ich bin zu blöd dafür Ich habe das Makro jetzt für jeden Monat neu erstellt. Also 12 Makros aufgezeichnet. Glaube die einfachste variante:smile: Trotzdem vielen Dank an alle die mir geholfen haben… danke