Abfrage der Adresse einer Zelle

14/01/2008 - 16:22 von André | Report spam
Hallo ,

unter Excel 2007 habe ich das Kalender Steuerelement eingebunden und mir aus
diversen Seiten und etwas Gehirnschmalz ein Makro gebaut, das beim
Doppeklick einer bzw. mehrerer bestimmter Zellen das Kalendersteuerelement
aufruft und den aktuellen Wert eintràgt.

Nun verstehe ich jedoch den Aufruf der Funktion nicht ganz, in der ich
eintrage, bei welcher Position bzw. Zelle das Steuerelement aufgrufen werden
soll.
Hier mein Code:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target
As Range, Cancel As Boolean)
df = ActiveCell.NumberFormat
If InStr(1, df, "d") Then
Kalender_Initialize
End If
End Sub


Doppelkicke ich nun zb. B5, wird das Element aufgrufen. Leider verstehe ich
derzeit nicht ganz weshalb.

Die Hilfe zur InStr Funktion hilgt mir derzeit auch nicht weiter. Was ich
als möchte: Im Code mehrere Angaben der Zellen, bei denen beim Doppeklich
Kalender_Initialize augerufen wird.

Vielen Dank für Eure Hilfe sowie Danke für die Beantwortung solcher wohl
doch einfachen Anfàngerfragen

André
 

Lesen sie die antworten

#1 Melanie Breden
14/01/2008 - 17:03 | Warnen spam
Hallo André,

"André" schrieb:
Nun verstehe ich jedoch den Aufruf der Funktion nicht ganz, in der ich eintrage, bei welcher
Position bzw. Zelle das Steuerelement aufgrufen werden soll.
Hier mein Code:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As
Boolean)
df = ActiveCell.NumberFormat
If InStr(1, df, "d") Then
Kalender_Initialize
End If
End Sub


Doppelkicke ich nun zb. B5, wird das Element aufgrufen. Leider verstehe ich derzeit nicht ganz
weshalb.




dabei hilft dir die Intersect-Methode.
Schau dir mal folgenden Code an:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
' Tabellenblatt überprüfen
If Sh.Name <> "Tabelle1" Then Exit Sub
' Bereich überprüfen
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub

' Doppelklick-Funktion zurücksetzen
Cancel = True
' Kalender anzeigen
Kalender_Initialize
End Sub



Mit freundlichen Grüssen
Melanie Breden

- Microsoft MVP für Excel -
www.melanie-breden.de
Das Excel-VBA Codebook 2007 http://tinyurl.com/2nwvod

Ähnliche fragen