Zeile markieren

Forumthread: Zeile markieren
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Zeile markieren

Zeile markieren

12.12.2006 11: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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeile markieren

12.12.2006 11:26:44

Andi
AW: Zeile markieren

12.12.2006 11:27:40

Hugo
AW: Zeile markieren

12.12.2006 11:35:14

haw
AW: Zeile markieren

12.12.2006 12:03:55

Sepp

AW: Zeile markieren

12.12.2006 11: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 11: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

AW: Zeile markieren

12.12.2006 11: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

AW: Zeile markieren

12.12.2006 12:03:55

Sepp

Super es funzt
Danke Euch, ging ja blitz schnell
Gruß Sepp