Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
856to860
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
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

geburtstag makro ändern

geburtstag makro ändern
28.03.2007 16:09:00
ralf
hallo forum
habe folgendes makro

Sub suchen()
On Error GoTo Fail
Dim X As Date, Frage As String
Frage =Datum Suche, Format(Now(), "DD/MM"))
X = Frage
Cells.Find(What:=X, After:=ActiveCell).Activate
MsgBox ActiveCell.Offset(0, 1).Value & " hat heute Geburtstag: " & vbLf & ":-)"
Fail:
End Sub
wie bekomme ich es jetzt hin das es beim öffnen der arbeitsmappe
automatisch in tabelle 2 sucht ohne diese zu öffnen sondern nur die msgbox anzeigt
schonmal im voraus herzlichen dank
gruß ralf

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: geburtstag makro ändern
28.03.2007 16:23:00
Rudi
Hallo,
etwa so: 

Sub suchen()
On Error GoTo Fail
Dim X As Date, Frage As String
Frage =Datum Suche, Format(Now(), "DD/MM"))
X = Frage
MsgBox Sheets(2).Cells.Find(What:=X, After:=Sheets(2).Cells(1, 1)).Offset(0, 1).Value & " hat  _
heute Geburtstag: " & vbLf & ":-)"
Fail:
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
AW: geburtstag makro ändern
28.03.2007 16:56:00
ralf
hallo rudi
hat wunderbar geklappt . danke für die schnelle hilfe.
gibt es auch noch eine möglichkeit eventuell das alter mit in die msgbox einzubringen.
wenn nicht nochmal herzlichen dank
gruß ralf
Anzeige
AW: geburtstag makro ändern
28.03.2007 17:10:00
Matthias
Hallo Ralf
freut mich das Du meinen Code auch benzuzt :-)
Ich gehe mal davon aus, das Du beim Start der Mappe prüfen willst ob heute jemand Geburtstag hat.
Dann so:
In dies Arbeitsmappe
Option Explicit 

Private Sub Workbook_Open()
Suchenin_Tab2
End Sub
und im Modul
Option Explicit
Sub Suchenin_Tab2()
On Error GoTo Fail
Dim X As Date
X = Format(Date, "DD/MM")
MsgBox Sheets(2).Cells.Find(What:=X, After:=Sheets(2).Cells(1, 1)).Offset(0, 1).Value & " hat heute Geburtstag: " & vbLf & ":-)"
Fail:
End Sub

Anzeige
AW: geburtstag makro ändern
28.03.2007 18:55:00
ralf
hallo matthias
musste ich benutzen funktionierte einwandfrei - danke
dein makro funktioniert genauso wie ich es haben wollte nur jetzt
habe ich mir überlegt ob man auch noch das alter in die msgbox bekommt
aber ich nehme an da ich jetzt schon probleme hatte das ich auch das
nicht hinbekomme
gruß ralf

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige