ich benötige Hilfe zu nachfolgendem Makro, das ich mir heruntergeladen habe:
1. Normalerweise sollte das Makro starten, wenn die Arbeitsmappe geöffnet wird. Tut es aber nicht.
2. Ist es möglich, dass mir nicht nur angezeigt wird, wer heute Geburtstag hat sondern in den nächsten 7 oder auch 14 Tagen.
3. Ich bekomme das nicht hin, dass nur die 1. Tabelle meiner Mappe durchsucht wird. Nachdem das Makro beendet wurde, ist immer meine letzte Tabelle aktiv.
Es wäre sehr nett, wenn mir jemand helfen könnte.
'Hauptmakro
Sub Geburtstag()
'Variablendeklaration
Dim z0%, z!, z1!
z0 = 6 'Erste Zeile mit Nachnamen
'Auf jedem Blatt suchen
For Each Blatt In ActiveWorkbook.Sheets
'Soll nur auf den beiden Blättern gesucht werden, Hochkomma entfernen.
If Blatt.Name = "Gesamtliste" Then
z = z0
z1 = z
End If
'Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
'Blatt auswählen
Blatt.Select
'Solange auf dem Blatt suchen, wie in Spalte 5 was steht
Do While Cells(z, 5).Value <> ""
'Meldung in Statusleiste
Application.StatusBar = "Überprüft wird: " & Cells(z, 6).Value
'Bei Fehler weitere Schritte überspringen
On Error Resume Next
'Wenn Tag und Monat der Zelle in Spalte 6 = Heute sind
If Day(Cells(z, 6).Value) = Day(Date) And Month(Cells(z, 6).Value) = Month(Date) Then
'Cells(z, 6).Select 'Hochkomma entfernen, wenn Meldung gezeigt werden soll
'Überprüfen, ob Name nochmal vorhanden
For i = z1 To z - 1
'Wenn ja, weitersuchen
If Cells(i, 5).Value = Cells(z, 5).Value And Cells(i, 4).Value = Cells(z, 4).Value Then
GoTo nächste
End If
Next
'Hochkomma entfernen, wenn Meldung gezeigt werden soll:
' MsgBox Cells(z, 3).Value & " " & Cells(z, 4).Value & " " & Cells(z, 5).Value & " wird heute " & Year(Date) - Year(Cells(i, 6).Value) & Cells(z, 10).Value
'Daten der Listbox hinzufügen
Beep
'Geburtstagskind in Listbox eintragen
UserForm1.ListBox1.AddItem (Cells(z, 3).Value & " " & Cells(z, 4).Value & " " & Cells(z, 5).Value & " wird heute " & Year(Date) - Year(Cells(i, 6).Value) & Cells(z, 10).Value)
'Wegen der besseren Übersichtlichkeit eine Leerzeile in Listbox einfügen
UserForm1.ListBox1.AddItem ("-------------------------")
End If
nächste:
z = z + 1
Loop
'Soll nur auf den beiden Blättern gesucht werden, Hochkomma entfernen.
'End If
'Nächstes Blatt
Next
'Bildschirmaktualisierung einschalten
Application.ScreenUpdating = True
'Statusleiste zurücksetzen
Application.StatusBar = False
UserForm1.Caption = "Heutige Geburtstage:"
UserForm1.Show
End Sub