Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile markieren

Forumthread: Zeile markieren

Zeile markieren
12.12.2006 10:10:32
Sepp
Hallo zusammen
hab da ein Problem:
ich möchte,wenn ich im Bereich A5:A200
eine Zelle auswähle, dass dann die ganze Zeile markiert wird.
Eigentlich ganz einfach, wenn mans kann, oder?
Danke für eure Hilfe
Gruß Sepp
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeile markieren
12.12.2006 10:26:44
Andi
Hi,
das geht so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A5:A200]) Is Nothing Then Rows(Target.Row).Select
End Sub

Schönen Gruß,
Andi
AW: Zeile markieren
12.12.2006 10:27:40
Hugo
Hallo Sepp,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Count = 1 And Not Intersect(Target, [a5:a200]) Is Nothing Then
.EntireRow.Select
End If
End With
End Sub

Gruß Hugo
Anzeige
AW: Zeile markieren
12.12.2006 10:35:14
haw
Hallo Sepp
ins Klassenmodul der Tabelle:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < 5 Or Target.Row > 200 Or Target.Column > 1 Then Exit Sub
Target.EntireRow.Select
End Sub

oder:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Application.Intersect(Target, Range("$A$5:$A$200"))
If isect Is Nothing Then Exit Sub
Target.EntireRow.Select
End Sub

Gruß Heinz
Anzeige
AW: Zeile markieren
12.12.2006 11:03:55
Sepp
Super es funzt
Danke Euch, ging ja blitz schnell
Gruß Sepp
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige