Datumswert um 1 erhöhen
19.08.2015 09:33:23
Shawn
Hab eine Frage wie ich das hinbekomme das mein Makro nach jedem 8 mal ausführen von "Schaltfläche98_Klicken" er mir im Register "Eingabe Daten Prod. Auftrag"
in Zelle "AG1" wo beim Start vom Makro =Heute() drinnsteht er mir plus 1 Tag dazurechnet
und am schluss nach dem Einbuchen wieder die Formel =Heute() wieder reinschreibt
Hier das Makro:
Sub Lieferschein_DECO()
'
Sub Lieferschein_DECO()
' LieferscheinDECO in Daten Produktion einbuchen
ActiveSheet.Unprotect "xxxx"
Dim ZeileNr As Long
ZeileNr = 19
While Sheets("Vorlage Lieferschein").Range("E" & ZeileNr).Value ""
Sheets("Eingabe Daten Prod. Auftrag").Range("G2").Value = _
Sheets("Vorlage Lieferschein").Range("E" & ZeileNr).Value
Sheets("Eingabe Daten Prod. Auftrag").Range("M2").Value = _
Sheets("Vorlage Lieferschein").Range("C" & ZeileNr).Value
Sheets("Eingabe Daten Prod. Auftrag").Range("K2").Value = _
Sheets("Vorlage Lieferschein").Range("H" & ZeileNr).Value
Sheets("Eingabe Daten Prod. Auftrag").Range("C2").Value = _
Sheets("Vorlage Lieferschein").Range("B" & ZeileNr).Value
Call Schaltfläche98_Klicken
ZeileNr = ZeileNr + 1
Wend
If ZeileNr > 19 Then MsgBox "Positionen auf Lieferschein " & ZeileNr - 19 _
Else MsgBox "Bestellerfassung nicht Ausgeführt da auf Lieferschein E19 Leer _
ist !"
Sheets("Eingabe Daten Prod. Auftrag").Range("C2").ClearContents
Range("G2").ClearContents
Range("K2").ClearContents
Range("M2").ClearContents
Sheets("Vorlage Lieferschein").Delete
Sheets("Eingabe Daten Prod. Auftrag").Range("V2:Y2").ClearContents
Sheets("Eingabe Daten Prod. Auftrag").Unprotect Password:="shsq"
Sheets("Eingabe Daten Prod. Auftrag").EnableAutoFilter = True
Sheets("Eingabe Daten Prod. Auftrag").Protect UserInterfaceOnly:=True, Password: _
="xxxx"
End Sub