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

zwei Spalten mit VBA ansprechen

zwei Spalten mit VBA ansprechen
28.01.2005 17:07:33
Jürgen
Hallo,
wie spreche ich mit diesem Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Intersect(Target(1, 1), Range("E3:E500"))
If Target Is Nothing Then Exit Sub
If IsEmpty(Target) Then Target = "X"
End Sub

zwei separate Spalten in ein und dem selben Sheet an?
Danke!
Jürgen

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
erledigt, da Lösung im alten Thread o.w.T.
Reinhard
AW: erledigt, da Lösung im alten Thread o.w.T.
28.01.2005 17:19:13
Jürgen
Hallo Reinhard,
danke, aber das funktioniert nicht! Ich bekomme das X in die erste Spalte aber die zweite reagiert nicht!
Sorry wenn ich Dir evtl. etwas doof vorkomme, aber ich kapiers grad wirklich nicht!
Gruß Jürgen
Mein Fehler, AND und OR :-(
Reinhard
Hi Jürgen,
sorry, so klappt es für D und H

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Column = 4 Or Target.Column = 8) And Target.Cells.Count = 1 Then '1=A,2=B,...4=D,...,8=H
If IsEmpty(Target) Then Target = "X" Else Target.ClearContents
End If
End Sub

Gruß
Reinhard
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige