Bereich angeben
31.10.2018 13:14:14
Gunter
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
Anzeige