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
1652to1656
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
Inhaltsverzeichnis

Bereich angeben

Bereich angeben
31.10.2018 13:14:14
Gunter
Hallo Zusammen
Ich habe folgendes beim googeln gefunden.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngUnion As Range, rngUBereich As Range
' Abfangen mehr als eine Zelle
If Target.Count > 1 Then Exit Sub
Unload UserForm1
' nur für einen bestimmten Bereich.
Set rngUBereich = Range("A1:A20")  ' Oder auch "A1:A20,C1:C20" oder "A1:A100" ...
Set rngUnion = Application.Union(Range(Target.Address), rngUBereich)
If rngUnion.Address = rngUBereich.Address Then
strText = Target.Offset(0, 3).Value
UserForm1.Show vbModeless
End If
End Sub

Das funktioniert soweit auch tadellos.
Nun möchte ich aber das der ausgewählte Text nicht aus einer Zelle, sondern aus einem Bereich ausgewählt wird. Also das aus der Zelle
strText = Target.Offset(0, 3).Value ein definierter Bereich zum Beispiel D1 bis J1 verwendet wird. Mir fehlt dazu die richtige Syntax.
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich angeben
31.10.2018 15:30:29
Gunter
Hat sich erledigt, habe eine andere Lösung gefunden.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige