Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Calendar von A1 auf C1?

Forumthread: Calendar von A1 auf C1?

Calendar von A1 auf C1?
11.02.2009 15:08:00
A1
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

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Calendar von A1 auf C1?
11.02.2009 15:10:00
A1
Hi,
wichtig ist nur, was im Klick-Ereignis des Calendar steht.
mfg Horst
AW: Calendar von A1 auf C1?
11.02.2009 15:24:00
A1
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

Anzeige
AW: Calendar von A1 auf C1?
11.02.2009 15:33:00
A1
Hi,

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


AW: SUPER! Danke
11.02.2009 15:46:00
lisa
Danke dir!
Es ist wunderbar!
Lieben Gruß Lisa
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige