Datumswert um 1 erhöhen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Datumswert um 1 erhöhen
von: Shawn
Geschrieben am: 19.08.2015 09:33:23

Guten Tag Excelprofis
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

Bild

Betrifft: AW: Datumswert um 1 erhöhen
von: Michael
Geschrieben am: 19.08.2015 15:11:11
Hi Shawn,
versuch's mal damit:

Sub Lieferschein_DECO()
'
' LieferscheinDECO in Daten Produktion einbuchen
'
Dim ZeileNr As Long
Dim i As Long
ZeileNr = 19
i = 0                  ' eigentlich überflüssig, da immer mit 0 vorbelegt
ActiveSheet.Unprotect "xxxx"
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  ' das gehört sich umbenannt auf einen
                                ' "sprechenden" Namen
   i = i + 1
   If i = 8 Then
     i = 0
     Sheets("Eingabe Daten Prod. Auftrag").Range("AG1").Value = _
      Sheets("Eingabe Daten Prod. Auftrag").Range("AG1").Value + 1
   End If
   ZeileNr = ZeileNr + 1
Wend
Sheets("Eingabe Daten Prod. Auftrag").Range("AG1").FormulaLocal = "=HEUTE()"
If ZeileNr > 19 Then
    MsgBox "Positionen auf Lieferschein " & ZeileNr - 19
  Else
    MsgBox "Bestellerfassung nicht Ausgeführt da auf Lieferschein E19 Leer ist !"
End If
Sheets("Eingabe Daten Prod. Auftrag").Range("C2").ClearContents
' welches ist das aktive Blatt?
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
Gruß,
M.

Bild

Betrifft: AW: Datumswert um 1 erhöhen
von: Shawn
Geschrieben am: 19.08.2015 17:02:19
Hallo Michael
Vielen Dank funktioniert sehr gut :-)
Danke für deine bemühungen.
Gruss Shawn

Bild

Betrifft: gerne, vielen Dank für die Rückmeldung owT
von: Michael
Geschrieben am: 19.08.2015 20:04:41


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Datumswert um 1 erhöhen"