Hilfe bei Excel

[Privateer3000]

Hallo Leute,
hoffe ihr hattet ein schönes Wochenende!

Wenn hier jemand mit VB,Makros o.ä. bewandert ist kann mir bestimmt helfen!?
Ich möchte das in einem Excelsheet beim Start,dass in der Spalte x ab Zeile y
vom aktuellem Monat, die Tage Mittwoch bis Sonntag (also in Wochen) untereinander als Datum
eingetragen werden.
Wie muss man das anstellen??

Beste Grüße

[ibp]

hallo privateer3000, dir kann geholfen werden...

folgenden code setzt du einfach in deine arbeitsmappe....

Code:

Private Sub Workbook_Open()
  Dim x, y, tag, jahr, monat As Integer
  Dim datum As Date
  
  Worksheets("Tabelle1").Activate ' Arbeitsblatt wählen
 
  ' bereich
  x = 3 ' spalte
  y = 5 ' zeile
  
  tag = 1 ' erster tag
  monat = Month(Now) ' monat
  jahr = Year(Now) ' jahr
  datum = DateSerial(jahr, monat, tag) ' 1.tag
  
  Do While Month(datum) = Month(Now) ' solange monate gleich sind
    Select Case Weekday(datum) ' ist wochentag ...
      Case 4, 5, 6, 7  '= mi..so
        Cells(y, x) = Format(datum, "dddd, dd.mm.yyyy") ' Datum einfügen
        y = y + 1 ' neue Zeile
    End Select
    tag = tag + 1
    datum = DateSerial(jahr, monat, tag) ' tag x
  Loop
End Sub

gruß rené

[Privateer3000]

Vielen Dank rene..
wie implementiert man das ganze und startet es?

[ibp]

1. neue arbeitsmappe
2. vb editor starten
3. doppelklick auf "diese arbeitsmappe"
4. code per copy&paste einfügen
5. abspeichern
6. neu aufrufen

.. dann sollte es funktionieren

[pjuk]

oder erstell dir eine symbolleiste und fügs als add in ein. dann hast du oben nen icon/ deinen text für das jeweilige makro!