Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1524to1528
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
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kalenderwoche

Kalenderwoche
14.11.2016 14:46:34
Berndt
Hallo zusammen,
folgender Teilbereich meines Codes aktiviert Statuswerte, Aufgaben und Wochentags-Daten.

With wksQuelle
If .Range(.Cells(Zeile_1_Q, 3), .Cells(Zeile_Q, 3)) = ... Or "" Then
 'Status-Werte kopieren Set rngCopy = .Range(.Cells(Zeile_1_Q, 4), .Cells(Zeile_Q, 4)) rngCopy.Copy wksZiel.Cells(Zeile_Z, 3).PasteSpecial Paste:=xlPasteValues 'Aufgaben kopieren Set rngCopy = .Range(.Cells(Zeile_1_Q, 2), .Cells(Zeile_Q, 2)) rngCopy.Copy wksZiel.Cells(Zeile_Z, 4).PasteSpecial Paste:=xlPasteValues 'Wochentags-Daten kopieren Set rngCopy = .Range(.Cells(Zeile_1_Q, 5), .Cells(Zeile_Q, 9)) rngCopy.Copy wksZiel.Cells(Zeile_Z, 10).PasteSpecial Paste:=xlPasteValues Next End With die if /next schleife ist nun neu. Ich möchte damit erreichen, damit die Bereiche nur kopiert werden, wenn in .Range(.Cells(Zeile_1_Q, 3), .Cells(Zeile_Q, 3)) die aktuelle KW (z.B. "KW 46") oder "" (Leerfeld).
Wie muss die Prüfung eingebunden werden, bzw. geschrieben werden?`
VG Berndt

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Vorschlag
14.11.2016 15:07:29
Berndt
mein Vorschlag:
Dim lngT As Long
With wksQuelle
lngT = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
DINKw = ((Datum - lngT - 3 + (Weekday(lngT) + 1) Mod 7)) \ 7 + 1
If .Range(.Cells(Zeile_1_Q, 3), .Cells(Zeile_Q, 3)).Value = DINKw(Date) Or _
.Range(.Cells(Zeile_1_Q, 3), .Cells(Zeile_Q, 3)).Value = "" Then
'Status-Werte kopieren
Set rngCopy = .Range(.Cells(Zeile_1_Q, 4), .Cells(Zeile_Q, 4))
rngCopy.Copy
wksZiel.Cells(Zeile_Z, 3).PasteSpecial Paste:=xlPasteValues
'Aufgaben kopieren
Set rngCopy = .Range(.Cells(Zeile_1_Q, 2), .Cells(Zeile_Q, 2))
rngCopy.Copy
wksZiel.Cells(Zeile_Z, 4).PasteSpecial Paste:=xlPasteValues
'Wochentags-Daten kopieren
Set rngCopy = .Range(.Cells(Zeile_1_Q, 5), .Cells(Zeile_Q, 9))
rngCopy.Copy
wksZiel.Cells(Zeile_Z, 10).PasteSpecial Paste:=xlPasteValues
End If
End With
funktioniert nur noch nicht.
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige