Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
828to832
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige