Autmat. Ausfüllen Date über VBA
13.09.2018 10:21:55
Georg
ich weiß nicht ob ich wirklich hinkriege was ich will:
DATEI ist mit weniger als 12 Worksheets = 1 Kalenderjahr vorhanden, bedeutet dies, dass die Datei erst bspw. im März anfängt, der Teilcode unten ergänzt es dann um Januar und Februar.(Es gibt aber auch Dateien die erst z. B. im Juli beginnen)
Das Kopieren von A7:H37 dient lediglich dazu, dass in den neuen Sheets Daten drinstehen, aber nicht die Richtigen :-(
Die Datumswert beginnen IMMER bei A7, meine Frage:
Wenn ich beispielsweise 2 Sheets = 2 Monate(Januar und Februar) hinzufüge,
kann dann VBA NACH dem Einfügen in Worksheet(1) gleich 01.01.2018 einfügen in A7 und dann A8, A9 etc den Monat komplettieren bis 31.01.2018.
Analog in Worksheet(2) den 01.02.2018 (wieder beginnend in A7) usw.
ABER NUR in den HINZUGEFÜGTEN SHEETS?
Danke falls j-d eine Idee hat!!!! Es sind leider viele Dateien zu bearbeiten
Sub Datum()
'Worksheets hinzufügen, Zellen zumindest befüllen
Dim zahl As Long
'Fehlende Worksheets ermitteln
zahl = 12 - Worksheets.Count
With Datei2019
For i = 1 To zahl
.Sheets(i).Select
.Sheets.Add before:=Worksheets(i), Type:=xlWorksheet
.Worksheets(zahl + 2).Range("A1:H37").Copy Destination:=Worksheets(i).Range("A1:h37")
Next i
End With
End Sub