Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
548to552
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kalender

Kalender
21.01.2005 02:06:52
haki
Hallo Profis,
jetzt bastle ich schon stunden und bin mit meinem latein(excel-VBA) am ende.
Mein Problem:
Habe eine Adressliste mit einem Feld geburtstag.
Nun soll 5 oder 6 Tage vor dem entsprechenden Datum ein Fenster öffnen, in dem die Adresse mit dem Geburtstag angezeigt wird!
Ähnlich wie ein Termin beim Outlook!!
Nur aus Excel!
Für eure Hilfe schon jetzt besten Dank!!

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

Betreff
Datum
Anwender
Anzeige
AW: Kalender
21.01.2005 02:47:45
Josef
Hallo Haki! (realnames sind hier üblich und erwünscht!)
Kopiere diesen Code in "DieseArbeitsmappe" !


      
Private Sub Workbook_Open()
'Datum steht in Spalte "A"
'Name Steht in Spalte "B"
'Adresse steht in Spalte "C"
Dim n As Integer
Dim rng As Range
Dim strText As String
Dim blnFound As Boolean
strText = "Anstehende Geburtstage:" & Space(125) & vbLf & vbLf & "Datum" & _
vbTab & vbTab & vbTab & "Name" & vbTab & vbTab & vbTab & "Adresse" & vbTab & _
vbTab & vbTab & "Zeile" & vbLf & vbLf
For Each rng In Sheets("Tabelle1").Range("A1:A1500")
'Tabellenname und Bereich anpassen
   If IsDate(rng) Then
      If DateDiff("d", Date, DateSerial(Year(Date), _
                  Month(rng), Day(rng)), vbMonday) < 7 Then
                  
         blnFound = True
         '"Offset() anpassen!
         strText = strText & Format(rng, "ddd dd.mm") & vbTab & vbTab & vbTab & _
         rng.Offset(0, 1) & vbTab & vbTab & vbTab & rng.Offset(0, 2) & _
         vbTab & vbTab & rng.Row & vbLf
         
      End If
   End If
Next
If blnFound Then
   MsgBox strText & vbLf & vbLf, , "Geburtstage"
End If
End Sub 
Anzeige
AW: Kalender
haki
Hallo Josef
ertsmal danke!!!!
mein name:
harry kirchenbauer
(haki)
aber ansonsten nochmals danke!!!
es geht!!!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige