Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Klick auf Bereich und UF öffnen

Forumthread: Klick auf Bereich und UF öffnen

Klick auf Bereich und UF öffnen
18.03.2008 14:46:29
Jack
Hi,
wie ich eine UF bei Klick auf eine Zelle öffnen kann, ist mir klar:

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


Wie kann ich aber diese Zieladresse (hier $C$6) auf einen ganzen Bereich ausdehnen? --> $C$6:$AG$26
Darüber hinaus möchte ich die markierte Adresse bzw. die angeklickte Zelle mit übernehmen.
Also klicke ich $C$8 an, soll in der TextBox der UF die Adresse stehen - Activecell. Address - ok.
Funktioniert das dann auch für den Bereich? z.B.: $C$8:$C$19?
Danke
Jack
P.S.: Ich heiße wirklich Jack, aber ich liebe den Captain .-)

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Klick auf Bereich und UF öffnen
18.03.2008 14:56:58
Matthias
Hallo
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("C6:AG26")) Is Nothing Then
UF_Abwesenheit.Show
End If
Gruß Matthias

AW: Klick auf Bereich und UF öffnen
18.03.2008 14:59:09
Jacp
Hi Matthias,
danke Dir...datt geit :-)
Jack

AW: Klick auf Bereich und UF öffnen
18.03.2008 15:17:04
Uwe
Hi Jack,
... und damit das zweite auch geit:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("$C$6:$AG$26")) Is Nothing Then
UF_Abwesenheit.TextBox1.Text = Target.Address
UF_Abwesenheit.Show
End If
End Sub


Gruß
Uwe
(:o)

Anzeige
Die Textbox hatte ich glatt übersehen :o) oT
18.03.2008 15:33:00
Matthias
;

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