Aktive Zelle / gesamte Zeile selektieren

Hallo Beisammen!
Folgende Problemstellung:
Ich habe die Daten einer sehr breiten Tabelle (Spalte A:CJ)auf Plausibilität zu prüfen.
Bin daher auf der Suche nach VBA-Codes, die zwecks besserer Übersicht bei Auswahl einer Zelle gleich die gesamte Zeile markieren.
Beim Stöbern im Archiv bin ich auf folgende Lösungen gestossen:
Rows(Target.Row).Select
oder
ActiveCell.EntireRow.Select
Diese Worksheet-Codes arbeiten tadellos, jedoch wird in beiden Fällen die Zelle in Spalte A aktiv gesetzt.
Hat jemand von euch eine Idee, wie trotz der selektierten Zeile die ursprünglich angewählte Zelle aktiv bleiben könnte, denn genau hier möchte ich den Inhalt bearbeiten.
z.B. beim Anklicken der Zelle AH1235 wird die gesamte Zeile 1235 selektiert, aber die Zelle AH1235 bleibt für die Bearbeitung weitehin aktiv.
Danke im Voraus
Klaus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Borders(xlInsideHorizontal).LineStyle = xlNone ActiveCell.EntireRow.Borders(xlEdgeBottom).LineStyle = xlContinuous ActiveCell.EntireRow.Borders(xlEdgeTop).LineStyle = xlContinuous End Sub

Hallo Klaus,
eine Andere Möglichkeit. Achte wohin der Code gehört!
Mit [Strg] + [M] kannst du die markierung an/abschalten.

' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.OnKey "^m"
End Sub

Private Sub Workbook_Open()
  Application.OnKey "^m", "ToggleState"
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  On Error GoTo ErrExit
  Application.EnableEvents = False

  If bolState Then
    Union(Target(1, 1).EntireRow, Target(1, 1).EntireColumn).Select
    Target(1, 1).Activate
  End If

  ErrExit:
  Application.EnableEvents = True
End Sub

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public bolState

Sub ToggleState()
  bolState = Not bolState
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Aktive Zelle / gesamte Zeile selektieren

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

95 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aktive Zelle / gesamte Zeile selektieren

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

95 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread