Supportnet / Forum / Tabellenkalkulation
Datum vervollständigen für ganze Arbeitsmappe
Frage
Hallo zusammen,
ich habe ein kleines Problem... ich habe hier ein hervorragendes Makro gefunden womit ich Datumsreihen vervollständigen kann.
Nämlich jenes hier:
Option Explicit
Sub Datum_vervollständigen()
Dim Datum As Date
Dim i As Integer, Zähler As Integer
Application.ScreenUpdating = False
Datum = CDate("01.10.2007")
For i = 2 To 1000
If Datum > "31.10.2007" Then Exit For
If Left(Cells(i + 1, 1), 10) = Datum Then
GoTo Weiter
End If
If Left(Cells(i, 1), 10) <> Datum And Cells(i, 1) <> "" Then
Rows(i).Insert Shift:=xlDown
Cells(i, 1) = Datum
End If
If Left(Cells(i, 1), 10) <> Datum And Cells(i, 1) = "" Then
Cells(i, 1) = Datum
End If
Datum = Datum + 1
Weiter:
Next
For i = Range("A65536").End(xlUp).Row To 2 Step -1
Next
End Sub
Nun habe ich aber das Problem das ich es jedesmal auf ca 120 einzelnen Blättern anwenden muss.
gibt es die Möglichkeit das Makro so umzuschreiben das alle Tabellenblätter geichzeitig vervollständigt werden?
Für eure Hilfe wäre ich sehr dankbar!
LG Chrissie
Antwort 1 von Marie
Da, wo jetzt die msgbox steht rufst Du Deinen Code auf.
Gruß Marie
Private Function fktalleBlaetter()
Dim actBook As Workbook
Dim actSheet As Worksheet
Set actBook = ActiveWorkbook
For Each actSheet In actBook.Worksheets
actSheet.Select
MsgBox actSheet.Name
Next
End Function
Gruß Marie
Private Function fktalleBlaetter()
Dim actBook As Workbook
Dim actSheet As Worksheet
Set actBook = ActiveWorkbook
For Each actSheet In actBook.Worksheets
actSheet.Select
MsgBox actSheet.Name
Next
End Function
Antwort 2 von Chrissie07
Hallo Marie,
vielen dank für die schnelle Hilfe... ...aber wie rufe ich meinen code auf? ich bin doch absoltute beginnerin....
LG Chrissie
vielen dank für die schnelle Hilfe... ...aber wie rufe ich meinen code auf? ich bin doch absoltute beginnerin....
LG Chrissie