Nach "So" Zelle einfügen
11.11.2007 19:21:00
Heinz
Heute zum letzten mal bitte um Hilfe.
Der untere Code besagt: Bei neuen Tab.Blatt Datum automat. Mo-Freitag ausfüllen und nach Freitag eine Zelle einfügen.
Nun bräuchte ich aber auch Samstag & Sonntag und dann eine Zelle einfügen.
Also immer nach Sonntag sollte eine Zelle eingefügt werden.
Könnte mir bitte abermals jemand weiterhelfen ?
Danke,Heinz
Sub WochenendeWeg()
If MsgBox("Wollen Sie ein neues Monat erstellen ?", vbQuestion + vbYesNo, _
" Nachfrage Neues Monat erstellen !") = vbNo Then Exit Sub
Call cp_wbk
'-------Monat um 1 Hochzählen----------
'In G1 steht jetzt eine Formel, die nicht mehr geändert werden muss,
'daher wird nur noch F1 geändert.
Range("F1") = DateAdd("m", 1, Range("F1"))
'Blattname neu bestimmen
ActiveSheet.Name = Range("G1")
Dim datStart As Date, datEnd As Date
Dim lDay As Long
Dim iRow As Integer
datStart = Range("F1").Value ' in der Zelle M3 befindet sich das Anfangsdatum
datEnd = Range("H1").Value ' in der Zelle H1 befindet sich das Enddatum
iRow = 6 ' Hiermit wird gesagt, dass in Zeile 6 angefangen werden soll
'Bevor die Daten des neuen Monats eingetragen werden, alte Daten löschen.
'Anschließend Zahlenformate in den Spalten A und B wiederherstellen
'Range("A" & iRow & ":A100").EntireRow.Delete
Range("A6:A39").EntireRow.ClearContents ' Franz Zeile geändert. Statt löschen der Zeilen _
werden nur Inhalte gelöscht
Range("A6:A39").EntireRow.Interior.ColorIndex = xlColorIndexNone 'Franz entfernt Farbe aus _
Zellbereich
Range("A6:A39").NumberFormatLocal = "TT.MM.JJJJ"
Range("B6:B39").NumberFormatLocal = "TTT"
For lDay = datStart To datEnd
Select Case WeekDay(lDay, 2)
Case Is 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
End Sub