Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
156to160
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
156to160
156to160
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wochentag Samstag

Wochentag Samstag
09.09.2002 19:35:17
wullux
Hallo,
habe folgendes Problem: Nachdem ich in Tabelle1 Zelle B1 die Jahres- und in Zelle B2 die Monatszahl eingebe, wird automatisch das Datum in den Zellen B3 bis AF3 eingetragen, wobei die Wochenenden farbig markiert werden.
Nun möchte ich über eine Schaltfläche alle Samstage des Monats in Tabelle2 Zelle B1, C1 etc. aufgelistet bekommen....
Der schnellen Hilfe sehr verbunden,
mfG Wullux

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Wochentag Samstag
09.09.2002 20:55:57
L.Vira
Option Explicit
Sub samstage()
Dim z As Range, s As Integer
s = 1
For Each z In [B3:AF3]
If WeekDay(z, 2) = 6 Then
s = s + 1
Sheets("Tabelle2").Cells(1, s) = z
End If
Next
End Sub

Re: Wochentag Samstag
09.09.2002 21:09:46
wullux
Vielen Dank für die schnelle Hilfe,
klappt einwandfrei...
Gruss Wullux

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige