Target.Address

Bild

Betrifft: Target.Address von: Michael
Geschrieben am: 04.02.2005 09:03:08

Hallo,

ich habe als VBA-Lernender eine Frage.
In meiner Excel-File möchte ich in Zellen, die geändert werden eine Kommentar mit dem Änderungsdatum anfügen, aber nur an bestimmten Zellen.

Ich habe da in meinem Code-Buch folgendes gefunden:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub

Der Code funktioniert so aber nur mit einer Zelle.
Leider müsste ich bei 300 Zellen (z.B. A3-A103, B3-103 und c3-103)
diesen Code 300 mal eingeben. Ich habe nichts gefunden, um in diesem Fall die Adressen zusammen zu fassen. Das muss doch aber gehen.

Bild


Betrifft: AW: Target.Address von: Josef Ehrensberger
Geschrieben am: 04.02.2005 09:07:59

Hallo Michaael!

Dafür verwendet man "Intersect" !


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A3:A103, B3:103, c3:103")) Is Nothing Then
'...
End Sub



Gruß Sepp

P.S.: Rückmeldung nicht vergessen!


Bild


Betrifft: AW: Target.Address von: Michael
Geschrieben am: 04.02.2005 09:11:44

Oh, alles klar.

Das wird 100% funktionieren.
Intersect? Noch nie über den Weg gelaufen. Werd mich mal gleich
belesen. Danke schön !!!


Bild


Betrifft: AW: Target.Address von: UweD
Geschrieben am: 04.02.2005 09:12:20


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A3:C103")) Is Nothing Then
    ' dein Teil
    End If
End Sub


Gruß UweD


Bild


Betrifft: AW: Target.Address von: Michael
Geschrieben am: 04.02.2005 09:15:20

Okay, ich danke dir.
Werds gleich probieren, aber das scheint wohl die Lösung zu sein.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Gesucht VBA-Pendant zu Zelle()"