Office: Zelle nur beim Anklicken auswählen

Guten Morgen Zusammen,

Ich nutze für meine Excel2003 Datei einen Kalender von Hajo Ziplies welchen ich auf seiner Homepage hajo-excel.de heruntergeladen habe. An dieser Stelle bedanke ich mich bei ihm für die großartige Leistung.

Nun zu meinem Problem:

Sobald ich mit der Maus auf eine ausgewählte Zeile klicke, erscheint der Kalender und ich kann ein Datum auswählen.
Das Auswählen eines Tages geschieht jedoch auch, wenn ich mit den Pfeiltasten an der Zeile weiter gehen möchte.
Das möchte ich vermeiden und brauche dazu Hilfe.
Könntet ihr mir dabei helfen, diesen Code so zu generieren, dass der Kalender nur beim Anklicken der vorgesehenen Zeile erscheint?

Zur Zeit übe ich mich an der Skriptsprache VBA und habe mir noch keinen Überblick erschaffen können. Daher wäre ich euch für Hinweise für Anfänger sehr verbunden.

Freundliche Grüße..

Code:

[u]' IN DER TABELLE [/u]

'**************************************************
'* H. Ziplies                                     *
'* 07.10.04; 13.03.05; 08.04.06                   *
'* erstellt von [email]HajoZiplies@web.de[/email]                *
'* [url]http://Hajo-Excel.de/[/url]                          *
'**************************************************

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Dim RaBereich As Range                  ' Varable Bereich Wirksamkeit
    If Target.Count = 1 Then
        ' Bereich der Wirksamkeit
        Set RaBereich = Range("D3:D50, P3:P50, Q3:Q50, AD3:AD50")
        'ActiveSheet.Unprotect ("Passwort")  ' Schutz der Tabelle aufheben
        ' prüfen ob Zelle im Bereich, dann Userform starten
        If Not Intersect(Target, RaBereich) _
            Is Nothing Then FRM_Kalender.Show
        'ActiveSheet.protect ("Passwort")    ' Schutz auf Tabelle setzen
        Set RaBereich = Nothing             ' Variable löschen
    End If
End Sub



[u]'IM CODE DES FORMS[/u]

Option Explicit                             ' Variablendefinition erforderlich
'**************************************************
'* H. Ziplies                                     *
'* 28.01.09                                       *
'* erstellt von [email]HajoZiplies@web.de[/email]                *
'* [url]http://Hajo-Excel.de/[/url]                          *
'**************************************************

Private Sub CommandButton1_Click()
    ActiveCell = KAL_Kalender.Value         ' ausgewähltes Datum eintragen
    Unload Me                               ' Userform schließen
End Sub

Private Sub UserForm_Activate()
    ' im Kalender das aktuelle Datum anzeigen
    KAL_Kalender = Date
End Sub

Private Sub KAL_Kalender_Click()
    ActiveCell = KAL_Kalender.Value         ' ausgewähltes Datum eintragen
    Unload Me                               ' Userform schließen
End Sub


' Hier habe ich das Abbrechen mit der ESC-Taste hinzugefügt

Private Sub UserForm_Initialize()
    Me.CommandButton2.Cancel = True
End Sub

Private Sub CommandButton2_Click()
       End
End Sub

 

Hi,

es ist nicht möglich, das Klick-Ereignis der Maus vom Selektieren per Cursortasten zu unterscheiden. Du könntest es aber mit dem Doppelklick-Ereignis auf die betreffenden Zellen lösen.

Bis später,
Karin

 

Wenn ich in der Tabelle

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

zu

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range)

ändere,
erscheint folgende Fehlermeldung:
Compile Error: Procedure declaration does not match description of event or procedure having the same name.
Ich vermute, dass es nicht so einfach ist wie ich es versucht habe.
Wo erzeuge ich ein Doppelklick-Ereignis auf die betreffenden Zellen?

 

Hi,

das BeforeDoubleClick sieht so aus:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Bis später,
Karin

 

Herzlichen Dank Karin.
Das hat mir sehr geholfen. Es funktioniert jetzt wunderbar.

Zwei weitere Fragen habe ich noch:

• Welche Möglichkeit gibt es, die mit Datum hinzugefügte Zelle zu überspringen?
  So, dass der Cursor nicht in der Zelle bleibt, in der das Datum per Klick eingefügt wurde, sondern eins nach Rechts springt?
  
  Wie kann ich auf die Möglichkeit des Doppelklicks hinweisen?

 

Hi,

damit der Cursor 1 Zelle nach rechts springt, ergänze den Code im Doppelklick-Ereignis um diese Zeile:

Code:

Target.Offset(0, 1).Select

Bis später,
Karin

 

Danke Karin.

Der Cursor bleibt nach dem Anwählen eines Tages in derselben Zelle. Ich aber möchte nach dem Anwählen eines Tages (welcher dann in derselben Zelle bleibt) in der rechten Zelle weiter schreiben.

Mit

Code:

Target.Offset(0, 1).Select

wird ein Tag in einer anderen Zelle beschrieben und nicht in der selben.

Bsp: C5 Doppelklick und angewählter Datum wird eingetragen, sofort soll Cursor in die rechte Zelle D5 springen und nicht stehen bleiben.

 

Hi,

dann ändere den Code:

Code:

Private Sub CommandButton1_Click()
    ActiveCell = KAL_Kalender.Value         ' ausgewähltes Datum eintragen
    ActiveCell.Offset(0, 1).Select
    Unload Me                               ' Userform schließen
End Sub 

Bis später,
Karin

 

Genial, habe es getan und es ist einfach nur fantastisch wie es jetzt Dank deiner Hilfe funktioniert.

Dankeschön Karin :)