Mehre Suchergebnisse anzeigen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tom,
versuch es mal so:

Tabelle2

	A	B
1	01.01.2005	Fritz(41)
2	02.01.2005
3	03.01.2005
4	04.01.2005

Formeln der Tabelle

B1 : =gebtag(A1;Tabelle1!A:A;Tabelle1!B:B)
A2 : =A1+1
B2 : =gebtag(A2;Tabelle1!A:A;Tabelle1!B:B)
A3 : =A2+1
B3 : =gebtag(A3;Tabelle1!A:A;Tabelle1!B:B)
A4 : =A3+1
B4 : =gebtag(A4;Tabelle1!A:A;Tabelle1!B:B)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
und vorher in ein allgem. Modul diesen Code kopieren:
Option Explicit Function GebTag(dat As Date, datList As Range, namList As Range) As String Dim tmp As String, schalt As String Dim dat1 As Date, dat2 As Date Dim lz As Long, i As Long dat1 = DateSerial(2000, Month(dat), Day(dat)) If datList.Count <> namList.Count Then GebTag = "?" Exit Function End If lz = datList(datList.Count).End(xlUp).Row If datList(datList.Count) <> "" Then lz = datList.Count For i = 1 To lz If IsDate(datList(i)) Then dat2 = DateSerial(2000, Month(datList(i)), Day(datList(i))) schalt = "" If IstSchaltjahr(Year(dat)) = False And _ dat2 = DateSerial(2000, 2, 29) And _ dat1 = DateSerial(2000, 3, 1) Then schalt = "29.2.:" End If If dat1 = dat2 Or schalt <> "" Then tmp = tmp & "," & schalt & namList(i) & "(" & DateDiff("yyyy", datList(i), dat) & ")" End If End If Next i If Len(tmp) > 0 Then tmp = Mid(tmp, 2) GebTag = tmp End Function Function IstSchaltjahr(jahr As Integer) As Boolean Dim tmp As String tmp = FormatDateTime(DateSerial(jahr, 2, 29), vbShortDate) IstSchaltjahr = Left(tmp, 2) = "29" End Function
Gruß Matthias

Hallo Mathias,
danke für deine schnelle Antwort!
Deine Lösung ist sehr ausführlich aber leider etwas kompliziert!
Ich habe im Tabellenblatt 1 mein Kalender selbst greiert,
es werden waagerecht die Wochentage angezeigt darunter (neuen Zeile versteht sich)
das jeweilige Datum ohne Jahr.
Es ist eigentlich ein Schichtplanmodell das sich alle 14 Wochen wiederholt,
das ist in Excel nicht das Problem funktioniert auch einwandtfrei!
Nun möchte ich zusätzlich die Geburtstage angezeigt bekommen.
Dazu habe ich ein neues Tabellenblat mit dem Namen "Geburtstage"
In Spalte A sind die Geb.Daten sprich Datum mit Geb. Jahr in Spalte B
steht der Name und zusätzlich das berechnete Alter, funktioniert alles soweit.
Nun habe ich das Problem, dass 2 Namen am gleichen Tag Geburtstag haben.
Habe SVERWEIS benutzt, jedoch wird nur der erste Name der Spalte B in Tabellenblatt 1
angezeigt.
Wie bekomme ich EXcel dazu alle Namen anzuzeigen.
Habe dazu im Kalender 2 Zeilen dafür vorgesehen!
Hoffe weiterhin auf deine Hilfe!
Gruss Tom

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