Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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 .-)

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige