wie kann ich per VBA folgendes erreichen:
In Zelle C4 steht mein Datum im Format „TTTT JJJJ“ ,
daß ich aus dem Blattnamen „0103“ = JANUAR 2003 beziehe.
Nun möchte ich ab Zelle A7 abwärts alle in diesem Monat vorkommenden
wie kann ich per VBA folgendes erreichen:
In Zelle C4 steht mein Datum im Format „TTTT JJJJ“ ,
daß ich aus dem Blattnamen „0103“ = JANUAR 2003 beziehe.
Nun möchte ich ab Zelle A7 abwärts alle in diesem Monat vorkommenden
vielen Dank für Deine Antwort.
Das Problem ist, daß ich es aus programmtechnischen Gründen per
VBA lösen will/muß.
Das Problem ist in diesem Fall ja der 1.Wochentag und der letzte Wochentag der Liste.
Ciao MikeS
sorry, aber ich hatte in meinem 1.Beitrag doch darauf hingewiesen,
daß ich eine Lösung per VBA möchte und wie diese aussehen sollte
(s.auch der Tabellenausschnitt).
Wenn meine Beschreibung doch nicht so aussagekräftig war,
dann bedauere ich das sehr.
Eine Komplettlösung wäre natürlich super.
Vielen Dank
MikeS
Option Explicit
Sub eintragen()
Dim Ende As Long
Select Case Weekday([c4], 2)
Case 1 To 5: [a7] = [c4]
Case 6: [a7] = [c4] + 2
Case 7: [a7] = [c4] + 1
End Select
Ende = DateSerial(Year([a7]), Month([a7]) + 1, 1 - 1)
[a7].DataSeries Rowcol:=xlColumns, Type:=xlChronological, _
Date:=xlWeekday, Step:=1, Stop:=Ende
End Sub
ist ja auch verdammt warm heute...
Jedenfalls funzt Deine Lösung perfekt.
Vielen, vielen Dank.
Ciao MikeS