Microsoft Excel

Herbers Excel/VBA-Archiv

Calendar von A1 auf C1? | Herbers Excel-Forum


Betrifft: Calendar von A1 auf C1? von: lisa
Geschrieben am: 11.02.2009 15:08:50

Guten Tag

Ich möchte gern meinen Kalender angezeigt bekommen, wenn ich die Celle ("C1") aktiviere und nicht wie hier die Celle ("A1") Was muss ich ändern?

Gebe ich statt ("A1") ("C1") ein, bleibt das Ereignis trotzdem auf ("A1")

Was mache ich falsch

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Target.Range("a1") And Target.Row >= 1 Then
usr1.Show
End If
End Sub



Gruß Lisa

  

Betrifft: AW: Calendar von A1 auf C1? von: Horst
Geschrieben am: 11.02.2009 15:10:48

Hi,

wichtig ist nur, was im Klick-Ereignis des Calendar steht.

mfg Horst


  

Betrifft: AW: Calendar von A1 auf C1? von: lisa
Geschrieben am: 11.02.2009 15:24:45

Hallo Horst

Danke für die schnelle Rückmeldung!

Hier das Klick- Ereignis

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Unload Me
End Sub



Hier heißt es doch, Active Celle entladen!

Die Active Celle ist lt. Chang- Ereignis A1.
Hier wird der Calendar aufgerufen und lt. Click- Ereignis auch entladen!

Ich wollte es auf C1 umgestellt haben, aber ich weiß nicht wie!

Hast du eine Idee?

Gruß Lisa


  

Betrifft: AW: Calendar von A1 auf C1? von: Horst
Geschrieben am: 11.02.2009 15:33:38

Hi,

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
      If Target.Address= ("$C$1") Then
           usr1.Show
      End If
End Sub




  

Betrifft: AW: SUPER! Danke von: lisa
Geschrieben am: 11.02.2009 15:46:23

Danke dir!

Es ist wunderbar!

Lieben Gruß Lisa