Target mit range

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Target mit range
von: chris-ka
Geschrieben am: 06.11.2003 14:06:59

Hallo Gemeinde


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A7,D1:D7")) Is Nothing Then
Else
MsgBox "x"
End If
End Sub


mit diesem Code kann ich verschiedene Bereiche abfragen ob eine bestimmte zelle in diesem Bereich ein doppelklick (editiert) gemacht wird
was muss ich ändern wenn ich abfragen möchte ob diese zelle markiert ist??

oder besser gesagt wie binde ich einen Range als target ein?


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 5 And Target.Row < 10 Then
    MsgBox "bereich A1:d9"
End If
End Sub


geht ja nur wenn der Bereich irgendwo ist oder es mehrere gibt die ich abfragen möchte wird es aufwendig

gibt es nicht sowas
wie
if target.range(....

das funzt irgendwie nicht und in der OH werd ich nicht fündig

Gruß
Christian
Bild


Betrifft: AW: Target mit range
von: Hajo_Zi
Geschrieben am: 06.11.2003 14:11:52

Hallo Christian

warum benutzt Du nicht die Aktion für Doppelklick??

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: das wollte ich ja nicht..
von: chris-ka
Geschrieben am: 06.11.2003 14:20:35

Danke erst mal

das war nur zufällig so das ich das ereicht habe mit intersect ich möchte ja das wenn die zelle markiert ist das, das ding reagiert.

"was muss ich ändern wenn ich abfragen möchte ob diese zelle markiert ist??"

aus meinem ersten posting
interessant wäre wie gehe ich mit target.range um???

verwende immer nur colum and row
geht das nicht anders auch

Gruß
Christian


Bild


Betrifft: AW: das wollte ich ja nicht..
von: Hajo_Zi
Geschrieben am: 06.11.2003 14:25:46

Hallo Christian

warum nicht den ersten Code anpassen???


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:A7,D1:D7")) Is Nothing Then
        MsgBox "im Bereich"
    End If
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: genau das :-) danke __ot
von: chris-ka
Geschrieben am: 06.11.2003 14:28:51




Bild

Beiträge aus den Excel-Beispielen zum Thema " Problem mit bedingter Formatierung"