Zelle per MAusklick füllen
22.11.2004 17:26:30
Sebastian
ich bin immer noch auf der Suche nach der richtigen Lösung. Xule hat mir vorher schon eine Lösung geschickt aber irgendwie macht das Makro nicht was ich will. Das Makro sieht so aus:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Target = Target + 1
[A2].Select
End If
End Sub
Mit dem Makro will ich bei jedem Mausklick auf die Zelle A1 den Zellinhalt um 1 erhöhen.
Ich hoffe es kann mir nochmal jemand weitehelfen. Danke.
Gruss Sebastian
Anzeige