Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1856to1860
1856to1860
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code auf range anwenden

Forumthread: Code auf range anwenden

Code auf range anwenden
18.11.2021 12:32:26
Jens
Hallo,
ich habe hier im Forum folgenden Code gefunden:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CreateObject("WScript.Shell").SendKeys "%{Down}", True
End Sub
Damit öffnet sich eine dropdown Liste automatisch beim Klick in die Zelle.
Der funktioniert gut, aber ich möchte das nur auf eine reihe von Zellen anwenden, nicht auf das gesamte Arbeitsblatt. Kann mir jemand helfen das umzuschreiben, damit es für eine Spalte oder ein paar Zellen funktioniert?
Vielen Dank
Jens
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ...und auf welche Range bitte ?
18.11.2021 12:40:06
EtoPHG
Jens,
Ich würde zwar niemals mit Sendkeys arbeiten, da völlig unzuverlässig und mit Seiteneffekten behaftet, aber sei es drum:
z.B. auf die Range C3:C25 ?, dann so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C3:C25") is Nothing Then
CreateObject("WScript.Shell").SendKeys "%{Down}", True
End If
End Sub
Gruess Hansueli
Anzeige
AW: Code auf range anwenden
18.11.2021 14:02:57
Daniel
Hi
Mit folgender Prüfung:

If not Intersect(Taget, Range("...")) is Nothing then
Hier dein Code
End If
Gruß Daniel
AW: Laufzeitfehler 424 o.T.
18.11.2021 14:39:59
GerdL
Gruß Gerd
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige