Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
560to564
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
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Target.Address

Target.Address
04.02.2005 09:03:08
Michael
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.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Target.Address
04.02.2005 09:07:59
Josef
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!
AW: Target.Address
Michael
Oh, alles klar.
Das wird 100% funktionieren.
Intersect? Noch nie über den Weg gelaufen. Werd mich mal gleich
belesen. Danke schön !!!
AW: Target.Address
UweD

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
Anzeige
AW: Target.Address
Michael
Okay, ich danke dir.
Werds gleich probieren, aber das scheint wohl die Lösung zu sein.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige