Ich habe eine .xlsm Datei mit 3 Tabs --> Kalender, ES-Daten und Makro_Kalender
In Makro_Kalender ist eine Schaltfläche welche den VBA Code ausführt:
Option Explicit
Sub WochenendeWeg()
Dim datStart As Date, datEnd As Date
Dim lDay As Long
Dim iRow As Integer
datStart = Range("f1").Value
datEnd = Range("f2").Value
For lDay = datStart To datEnd
If Weekday(lDay, 1) 8 Then
iRow = iRow + 1
Cells(iRow, 1) = lDay
End If
Next lDay
End Sub
Nun möchte ich die Schaltfläche gerne auf Tabellenblatt Kalender verschieben und Tabellenblatt Makro_Kalender ausblenden.
Aber egal was ich versuche kriege ich entweder Laufzeitfehler oder es überschreibt mir den Inhalt des Tabellenblattes Kalender.
Wie kriege ich dieses VBA dazu, dass es seine Arbeit in Makro_Kalender ausführt?
Hat jemand von euch eine Idee was ich daran umschreiben muss?
Gruss
Mario