Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1440to1444
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1440to1444
1440to1444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

+ 1 Tag wenn Wochentag

+ 1 Tag wenn Wochentag
22.08.2015 08:01:00
Shawn
Guten Morgen Excel Experten
Mein Makro bucht beim starten 8 zeilen ein (Anzahl zu abzuarbeitene Aufträge pro Tag) dann wechselt er auf den nächsten Tag bei AG1
in der Zeile Sheets("Eingabe Daten Prod. Auftrag").Range("AG1").Value + 1
aber wenn Samstag ist in AG1 soll er auf Montag bei Sonntag auf Dienstag
das Datum in AG1 brauche ich zum Planen sollte aber immer zwingend ein Wochentag sein
Wie bring ich das hin ?
Sub Lieferschein_DECO()
'


Sub Lieferschein_DECO()
' LieferscheinDECO in Daten Produktion einbuchen
Dim ZeileNr As Long
Dim i As Long
ZeileNr = 19
i = 0
ActiveSheet.Unprotect "shsq"
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 Einbuchen   'Zeile kopieren und einbuchen
i = i + 1
If i = 8 Then   '8 zeilen einbuchen dann wieder auf 0
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
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:="shsq"
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: + 1 Tag wenn Wochentag
23.08.2015 09:47:09
fcs
Hallo Shawn,
ich hab dir die entsprechende Prüfung und Apassung des Wertes eingebaut.
Durch Verwendung von Objekt-Variablen für die Tabellenblätter und With ... End With Kontrukte wird der code etwas übersichtlicher und kompakter.
Gruß
Franz 
Sub Lieferschein_DECO()
' LieferscheinDECO in Daten Produktion einbuchen
Dim ZeileNr As Long
Dim i As Long
Dim wksEingabe As Worksheet, wksVorlage As Worksheet
Set wksEingabe = Sheets("Eingabe Daten Prod. Auftrag")
Set wksVorlage = Sheets("Vorlage Lieferschein")
ZeileNr = 19
i = 0
wksEingabe.Activate
wksEingabe.Unprotect "shsq"
Application.ScreenUpdating = False
While wksVorlage.Range("E" & ZeileNr).Value  ""
With wksEingabe
'Prüfung Samstag/Sonntag
With .Range("AG1")
Select Case Weekday(.Value, vbSunday)
Case vbSaturday
.Value = .Value + 2
Case vbSunday
.Value = .Value + 1
End Select
End With
.Range("G2").Value = wksVorlage.Range("E" & ZeileNr).Value
.Range("M2").Value = wksVorlage.Range("C" & ZeileNr).Value
.Range("K2").Value = wksVorlage.Range("H" & ZeileNr).Value
.Range("C2").Value = wksVorlage.Range("B" & ZeileNr).Value
Call Einbuchen   'Zeile kopieren und einbuchen
i = i + 1
If i = 8 Then   '8 zeilen einbuchen dann wieder auf 0
i = 0
With .Range("AG1")
.Value = .Value + 1
End With
End If
ZeileNr = ZeileNr + 1
End With
Wend
Application.ScreenUpdating = True
If ZeileNr > 19 Then
MsgBox "Positionen auf Lieferschein " & ZeileNr - 19
Else
MsgBox "Bestellerfassung nicht Ausgeführt da auf " _
& "Lieferschein E19 Leer ist !"
End If
With wksEingabe
.Range("AG1").FormulaLocal = "=HEUTE()"
.Range("C2").ClearContents
.Range("G2").ClearContents
.Range("K2").ClearContents
.Range("M2").ClearContents
wksVorlage.Delete
.Range("V2:Y2").ClearContents
.Unprotect Password:="shsq"
.EnableAutoFilter = True
.Protect UserInterfaceOnly:=True, Password:="shsq"
End With
End Sub

Anzeige

307 Forumthreads zu ähnlichen Themen

Kalenderwoche "von bis" über VBA
bis"

Hi Leute,
ich versuch gerade über VBA eine Tabelle zu erstellen. Irgendwie komm ich aber nicht weiter.
Spalte A: Kalenderwoche z.b 1,2,3,4,5, usw.
SpalteB: Datum von bis: 1.1.09-5.1.09; 6.1.09-13.1.09; usw.
Dahinter wird je nach Bedarf eingetragen.
Auffüllen der Zahlen ist k...
19.08.2008 10:24:25
Thread-ID: 1002828
3 Beiträge
Anzeige
Wochentag wird aus einer Formel nicht erkannt
lisa

Hallo miteinander,
mit dieser Formel habe ich mir eine Verknüpfung in eine ausgelagerte Mappe erstellt.
Range("BW6").FormulaR1C1 = _
"='[KW " & Range("bw3") & " _ tgl Linienkennzahlen.xls]" & Range("bw2") & "'!R13C8"
Diese habe ich mir auf einen Button gelegt. <...
20.07.2009 15:18:36
Thread-ID: 1090004
3 Beiträge
Erster Montag im Monat
markus

Hallo zusammen,
Archiv gibt leider nur Lösungen mit VBA her.
wie finde ich per VBA den ersten Montag im Monat?
Ich hatte eine Lösung ohne VBA, doch ist mein Prog weitläufiger und daher bin ich auf der Suche nach einer VBA lösung.
Danke vorab,
markus
18.11.2009 14:53:46
Thread-ID: 1118335
7 Beiträge
Anzeige
Montag der ersten Kalenderwoche ermitteln
thema

Hallo liebe ExPerts,
zum Thema Kalenderwoche habe ich einiges gefunden, u.a. hier im Archiv
http://www.excelformeln.de/formeln.html?welcher=7
(Anleitung zum Ermitteln der Kalenderwoche bzw. der Anzahl der Kalenderwoche.)
Habe auch eine Formel gefunden, womit ich den ersten Monta...
27.05.2010 19:56:43
Thread-ID: 1159147
3 Beiträge
Wenn Enddatum erreicht Jahreszahl +1
Thomas

Hallo Excelfreund,
ich habe eine Tabelle in der ich Verträge aufgelistet habe mit Anfangsdatum (ab C6) und Enddatum (ab D6). In I6 trage ich ein ob der Vertrag gekündigt ist oder nicht (ist/ ist nicht). In B1=Heute()
Nun verlängern sich die Vertäge nach Ablauf immer um ein weiteres Jahr...
24.07.2010 21:15:12
Thread-ID: 1168711
22 Beiträge
ListBox / letzten Einträge von bis anzeigen
bis

Hallo liebe Excelfreunde.
Wieder einmal stehe ich vor einem Riesen Problem.
Leider bietet mir das Forum keine brauchbaren Ideen für mein nächstes Projekt.
In einem Tabellenblatt habe ich 2 Sheets. ( Tabelle 1 und Gesamt )
In der Tabelle 1 wird über ein Button eine UserForm mit e...
02.10.2010 09:10:31
Thread-ID: 1180358
11 Beiträge
Datum aus Kalenderwoche
Matthias V.

Hallo zusammen,ich weiß, dass das Thema schon häufiger vorkam, und ich habe auch schon das Archiv befragt.
Es ist nur so, dass ich mit den gegebenen Funktionen nicht ganz zurecht komme, ich sie nicht auf meinen Fall anpassen kann.Ich ermittele nun mit:Sub kw()Dim kw As Integerkw = DatePart("...
16.05.2002 16:31:23
Thread-ID: 121427
6 Beiträge
Formel für Kalenderwoche?
rauscher

Hallo,
ich habe in einer Tabelle mehrere Zellen mit Datum stehen. Ich möchte das Datum als KW anzeigen lassen.
Weis leider die Formel nicht dazu
mfg.
Ludwig
11.08.2011 14:26:00
Thread-ID: 1225714
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
8
2
6
8
2
21
10
5
5
3
4
4
3
3
4
5
7
2
2
2
11
7
2
2