kalenderwoche

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: kalenderwoche

30.06.2005 21:20:07

MichaV

AW: kalenderwoche

30.06.2005 21:36:50

Astrid

Eine Frage noch Micha!

30.06.2005 21:50:21

Astrid

meinst Du so?

01.07.2005 12:19:36

Günther

AW: Eine Frage noch Micha!

01.07.2005 23:19:46

MichaV

Hallo Astrid,
so z.B.

Tabelle1

	A	B
1	2005
2	1	03.01.-09.01.05
3	2	10.01.-16.01.05
4	3	17.01.-23.01.05

Formeln der Tabelle

B2 : =TEXT(DATUM($A$1;1;7*A2-3-WOCHENTAG(DATUM($A$1;;);3));"TT.MM.-")&TEXT(DATUM($A$1;1;7*A2-3-WOCHENTAG(DATUM($A$1;;);3))+6;"TT.MM.JJ")
B3 : =TEXT(DATUM($A$1;1;7*A3-3-WOCHENTAG(DATUM($A$1;;);3));"TT.MM.-")&TEXT(DATUM($A$1;1;7*A3-3-WOCHENTAG(DATUM($A$1;;);3))+6;"TT.MM.JJ")
B4 : =TEXT(DATUM($A$1;1;7*A4-3-WOCHENTAG(DATUM($A$1;;);3));"TT.MM.-")&TEXT(DATUM($A$1;1;7*A4-3-WOCHENTAG(DATUM($A$1;;);3))+6;"TT.MM.JJ")

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Formel in B2 rein und nach unten kopieren.
Gruß- Micha
PS: Rückmeldung wäre nett.
PPS:http://www.excelformeln.de/formeln.html?welcher=186

Hi Astrid,
tut mir leid, daß ich so spät antworte. Hier das Makro. Ich habe die Excel- Formel 1:1 umgesetzt.

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count + Target.Columns.Count > 2 Then Exit Sub 'Mehrfachauswahl
If IsError(Target) Then Exit Sub 'Fehlerwert in Zelle
If Intersect(Target, Range("a2:a52")) Is Nothing Then Exit Sub 'nicht im Bereich A2:A52
'Wenn Du die vorherige Zeile löscht, dann erscheint das Datum nur in Zelle C2,
'wenn Du eine Zelle in A2:A52 angeklickt hast.

If Target.Column > 1 Or _
   Target = "" Or _
   Not IsNumeric(Target) Or _
   Target < 1 Or _
   Target > 52 Then[c2] = "": Exit Sub
'Zelle C2 löschen, wenn Cursor leer, nicht Spalte A, kleiner 1, größer 52, keine Zahl

[c2] = Format(Evaluate("=date(" &[a1] & ",1,7*" & Target & "-3-weekday(date(" &[a1] & ",,),3))"), "DD.MM.-") & _
       Format(Evaluate("=date(" &[a1] & ",1,7*" & Target & "-3-weekday(date(" &[a1] & ",,),3))+6"), "DD.MM.YY")
'Entspricht
'TEXT(DATUM($A$1;1;7*A2-3-WOCHENTAG(DATUM($A$1;;);3));"TT.MM.-")&TEXT(DATUM($A$1;1;7*A2-3-WOCHENTAG(DATUM($A$1;;);3))+6;"TT.MM.JJ")
End Sub

Gehe mit der rechten Maustaste in Ecxel auf die Tabellenlasche unten links, wähle "Code anzeigen", dann diesen Code im VBA- Editor rechts einfügen, fertig.
Gruß- Micha

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread