Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1088to1092
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
1088to1092
1088to1092
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wochentage per VBA

Wochentage per VBA
Karin
Hallo Excel-Spezialisten,
um Tabellenblätter mit Kalenderwochen zu erstellen, habe ich in den xl-Beispielen ein passendes Makro gefunden, das ich erweitern möchte: In den Tabellenblättern sollen in A8 bis G8 die Kalendertage pro Woche und in A9 bis G9 die Wochentage stehen. Das Ganze möglichst so, dass ich in A6 das Jahr eingebe und dann die gewünschten Datums automatisch erscheinen. Das bekomme ich trotz tagelangen Probierens nicht hin. Kann mir bitte jemand helfen?
Eine Musterdatei mit manuell erstellten Beispielblättern füge ich bei.
Im Voraus herzlichen Dank!
Karin
https://www.herber.de/bbs/user/63292.xls

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Wochentage per VBA
20.07.2009 09:52:51
Hajo_Zi
Hallo Karin,
das Jahr habe ich in Deiner Tabelle nicht gefunden, ich bin vom aktuellen ausgegangen.
KW1
 ABCDEFG
829.12.200830.12.200831.12.200801.01.200902.01.200903.01.200904.01.2009

verwendete Formeln
Zelle Formel
A8 =DATUM(JAHR(HEUTE());1;1)+TEIL(ZELLE("Dateiname";A1);FINDEN("]";ZELLE("Dateiname";A1))+3;255)*7-WOCHENTAG(DATUM(JAHR(HEUTE());1;1);2)+WENN(WOCHENTAG(DATUM(JAHR(HEUTE());1;1);2)>4;1;-6)
B8 =A8+1
C8 =B8+1
D8 =C8+1
E8 =D8+1
F8 =E8+1
G8 =F8+1

Tabellendarstellung in Foren Version 4.4



Anzeige
AW: Wochentage per VBA
20.07.2009 10:52:29
Karin
Hallo Hajo,
super! Danke für die Wahnsinnsformel. Da merke ich erst, was Experten sind! Wie erstelle ich den Kalender für 2010? Gibt es keine VBA-Lösung wie beschrieben? Wäre für die Anwender halt leichter, einen Button zu drücken, um das nächste Jahr zu erstellen.
Herzliche Grüße
Karin
AW: Wochentage
20.07.2009 10:57:44
Hajo_Zi
Hallo Karin,
in meiner Lösung bin ich von Heute() für das jahr ausgegangen. Ich hätte in der ersten Kalendenwoche, irgendwo das Jahr hingeschrieben und mich dann auf diese Zelle bezogen. ändert man das Jahr ist der neue Kalender erstellt. In der 53 Kw müßte man dann nur eine Prüfung machen ob es dies Kalenderwoche überhaupt gibt, ansoonsten nichts anzeigen.
Das bedeutet in den anderen Kalenderwochen muss dann nicht jahr(Heute()) stehen sonder KW1!A1
Gruß Hajo
Anzeige
AW: Wochentage
20.07.2009 15:04:08
Karin
Hallo Hajo,
nochmals danke für deine Formellösung. Wie würde die Prüfung in der 53 KW aussehen?
Gruß
Karin
Wochenblätter per VBA
20.07.2009 13:13:06
Erich
Hi Karin,
teste doch mal diesen Code: 

Option Explicit
Sub CreateWks()
Dim datStart As Date, datEnd As Date
Dim datD As Long
Dim iKW As Integer, sKW As String
Dim lngC As Long
' Application.ScreenUpdating = False   ' nach dem Testen aktivieren
datStart = DateSerial(Range("myJJ"), 1, 1)
datEnd = DateSerial(Range("myJJ"), 12, 31)
For datD = datStart To datEnd Step 7
iKW = ISOWeek(CDate(datD))
If datD = CLng(datStart) And iKW > 1 Then
sKW = "KW" & iKW & "S"
ElseIf datD >= datEnd - 7 And iKW = 1 Then
sKW = "KW" & iKW & "E"
Else
sKW = "KW" & Format(iKW, "0")
End If
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = sKW
With Sheets("Farben WP")
.Rows("1:9").Copy Cells(1, 1)
Columns("A:G").ColumnWidth = .Columns(1).ColumnWidth
End With
Cells(8, 1) = datD - (datD - 3) Mod 7
For lngC = 2 To 7
Cells(8, lngC) = Cells(8, lngC - 1) + 1
Next lngC
Cells(10, 1).Select
Next datD
Application.ScreenUpdating = True
Worksheets(1).Select
End Sub
Der trägt bei jedem neuen Blatt die Datumse ein und übernimmt auch gleich die Formate.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Wochenblätter per VBA
20.07.2009 13:49:18
Karin
Hallo Erich,
danke für den Code. Ich bekomme bei "datStart-DateSerial(Range("myJJ""),1,1)" einen Laufzeitfehler 1004 "Die Methode Range für das Objekt'_Global' ist fehlgeschlagen. Was mache ich falsch?
Herzliche Grüße
Karin
Bitte um Entschuldigung!
20.07.2009 16:18:56
Erich
Hi Karin,
du machst nichts falsch - der Fehler lag bei mir.
Ich habe vergessen dazuzuschreiben, dass ich auf dem "Deckblatt"
das Jahr (z. B. 2010) in eine Zelle geschrieben und dieser Zelle den Namen myJJ gegeben habe.
Für das angegebene Jahr werden dann die Wochenblätter erstellt.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort - und nochmal: Sorry!
Anzeige
AW: Bitte um Entschuldigung!
20.07.2009 16:35:40
robert
hi Erich
die kw 30 beginnt mit 21.7.2009 ?
heute ist aber der 20.7.2009
gruß
robert
Danke @ Robert!
20.07.2009 20:10:34
Erich
Hi,
in der Zeile
Cells(8, 1) = datD - (datD - 2) Mod 7
hatte ich testhalber eine 3 reingeschrieben - und dann das Undo vergessen...
Wegen des Chaos, das ich hier (mit dem Namen und der Test-3) angerichtet habe, hier eine Beispielmappe:
https://www.herber.de/bbs/user/63305.xls
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
@ Erich-OK,jetzt passt's :-) owT
20.07.2009 20:15:46
robert

299 Forumthreads zu ähnlichen Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Anzeige
Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Watchdop für VBA
peter

Hallo VBA Cracks,
Im 5 Minuten-Abstand hole ich mir via Webabfrage Daten aus dem Internet. Nun kann es passieren, dass das VBA Programm bei einer Abfrage z.B. mehr als 5 Minuten hängen bleibt, was ungewollt ist.
Kann man ein solches Problem umgehen, wenn man mit VBA einen Watchdog reali...
11.08.2008 17:39:00
Thread-ID: 1000934
5 Beiträge
Anzeige
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
geschütztes blatt = Fehlermeldung VBA
Pet


Hallo an Alle,
per Button werden 2 Tabellenblätter kopiert und nur die Werte in eine neue Datei gespeichert.
Dies klappt auch wunderbar!
Doch wenn ich die Blätter schütze bekomme ich immer eine Fehlermeldung.
Beende ich diese Fehlermeldung 1004, werden die Blätter trotzdem...
13.08.2008 18:48:00
Thread-ID: 1001622
3 Beiträge
Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
VBA Lösung für Tabellenblattwechsel gesucht
Nila

Hallo.
Ich habe folgendes vor:
Ich lege derzeit eine Exceldatei mit Steckbriefen von ca. 150 Personen an.
Jeder Steckbrief steht dabei auf einem eigenen Tabellenblatt.
Die Tabellenblätter werden nach der entsprechenden Person benannt.
Zum Beispiel: Name von Tabellenblatt 70:...
14.08.2008 10:07:25
Thread-ID: 1001749
8 Beiträge
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

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
4
1
10
4
2
5
2
12
7
2
2
1
1
7
1
2
5
4
5
2
6
2
2
4
2