Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Code ausführen wenn Celle aktiviert wird

1 view
Skip to first unread message

Herbert Bartkowski

unread,
Jul 12, 2001, 8:09:43 AM7/12/01
to
Hallo NG,

ich komme eigentlich aus der access-umgebung. habe auch erfahrung mit vba.

ich möchte gerne ein makro ausführen, welches startet wenn eine best. celle
den focus hat. in access ist das einfach zu lösen. wie geht das in excel.
das kleine makro sieht so aus:

Sub Makro1()
Dim x As Variant
Range("F2").Select
x = ActiveCell.Value
x = Format(x, ">")
ActiveCell.FormulaR1C1 = x

End Sub

also sobalt ich in die celle "F3" springe so der code ausgeführt werden.

Wie kann ich das machen????

Danke im Voraus...

--
Herbert J. Bartkowski
E-Mail: herbert.b...@saab-giessen.de

Berti

unread,
Jul 12, 2001, 8:42:41 AM7/12/01
to
Hallo Herbert,
Das würde so gehen:

Private Sub Worksheet_SelectionChange _
(ByVal Target As Excel.Range)
If Target.Address = "$F$3" Then


Dim x As Variant
Range("F2").Select
x = ActiveCell.Value
x = Format(x, ">")
ActiveCell.FormulaR1C1 = x

MsgBox "Zelle gefunden, aber wie geht's weiter?"
End If
End Sub

Bloß mit Deinem Makrozusatz hab ich Probleme.
Außer mit der Entertaste Ping-Pong spielen sehe ich momentan keinen Sinn
;-)
Gruß
Berti
----------------------------------------------------------
Email: mailto:be...@bert-koern.de
Hompage: http://www.bert-koern.de/index.htm
mit Tipps und Tricks rund um Excel (auch Makros)
----------------------------------------------------------

"Herbert Bartkowski" <buchh...@autohaus-giessen.de> schrieb im
Newsbeitrag news:9ik4ea$kg8$06$1...@news.t-online.com...

Berti

unread,
Jul 12, 2001, 8:57:16 AM7/12/01
to
Hallo Herbert,
Hab einen wichtigen Hinweis vergessen:
Der Code läuft erst ab Excel97 und muss im entsprechenden Tabellenblatt
untergebracht werden und nicht in einem normalen Modul.

Gruß
Berti
----------------------------------------------------------
Email: mailto:be...@bert-koern.de
Hompage: http://www.bert-koern.de/index.htm
mit Tipps und Tricks rund um Excel (auch Makros)
----------------------------------------------------------
"Berti" <Be...@bert-koern.de> schrieb im Newsbeitrag
news:eRoAm$sCBHA.968@tkmsftngp07...

Herbert Bartkowski

unread,
Jul 12, 2001, 9:07:06 AM7/12/01
to
Danke hat geklappt - auf so etwas wäre ich nie gekommen...

herbert

Berti <Be...@bert-koern.de> schrieb in im Newsbeitrag:
erYsvHtCBHA.2004@tkmsftngp04...

0 new messages