makro aus einer Excel Zelle starten

[Spidy]

Wie kann ich mit einer funktion oder einem Wert aus einer
Zelle in Excel raus ein Makro starten!!
Vielen Dank im Vorraus Gruß Spidy

[Ulrich Weigel]

"Spidy" <spi...@gmx.de> schrieb im Newsbeitrag
news:6d2501c24f9e$694127e0$9de62ecf@tkmsftngxs01...

Wie kann ich mit einer funktion oder einem Wert aus einer
Zelle in Excel raus ein Makro starten!!
Vielen Dank im Vorraus Gruß Spidy

Hallo Spidy,
indem Du Dich mit Deinem Realnamen anmeldest!

Zellwert:
Wenn in A1 der Wert 1 steht dann wird DeinMakro ausgeführt

Diesen Code in den Codeteil eines Blattes:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then If Target.Value = 1 Then DeinMakro
End Sub

Funktion:
Wenn der Tag der 1. ist dann wird DeinMakro ausgeführt:

Diesen Code in ein Modul:
Sub DeinMakkro()
If DeineFunction = 1 Then DeinMakro
End Sub

Function DeineFunction()
Wert = Day(Date)
End Function

Sub DeinMakro()

End Sub
--
Grus
Ulrich

Mail to MDLLe...@aol.com
WinXP
OfficeXP
u.v.a.

Rechtschreibfehler sind gewollt und dienen der Belustigung des Lesers

[Michael Linke]

Vielen Dank fürDeine Lösung.
Leider konnte ich sie nicht umsetzen.
Beim Starten des Programmes soll er automatisch in
bestimmten Zeitintervallen die Zelle A1 nach dem Wert 1
durchsuchen und wenn er diesen Wert gefunden hat soll er
mein Makro starten.
Kannst Du mir diesen Lösungsweg bitte einmal ein wenig
genauer beschreiben!!!
Vielen Dank schon im Vorraus
Gruß Michael

P.S. Dieses ist mein Realname :-))

[Daniel Schmitz]

Hi Michael,

wieso genau soll es denn ein Zeitintervall sein?
Geht es nicht auch wenn auf dem Tabellenblatt eine
Veränderung stattfindet, dass dann die Zelle A1 überprüft
werden soll? Das würde dann wie folgt funktionieren:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("A1").Value = 1 Then
'Hier kann das stehen was ausgeführt werden
'soll. z.B.
MsgBox "In Zelle A1 steht der Wert 1"

End If
End Sub

Im VBA-Editor (Alt + F11) Doppelklick auf die
Tabelle wo der Code funktionieren soll oder einen
Rechtsklick auf den Tabellenreiter und Code anzeigen
wählen und dann den oben stehenden Code mit
Copy&Paste einfügen.
Sollte eigentlich das machen was Du willst, oder?!

Gruss
Daniel