Aktive Zelle und gesamte Zeile in Excel selektieren
Schritt-für-Schritt-Anleitung
Um in Excel die aktive Zelle und die gesamte Zeile zu markieren, kannst Du den folgenden VBA-Code verwenden. Dieser Code sorgt dafür, dass die gesamte Zeile, in der sich die aktive Zelle befindet, hervorgehoben wird, während die aktive Zelle weiterhin für die Bearbeitung verfügbar bleibt.
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Wähle das entsprechende Arbeitsblatt im Projektfenster aus.
-
Füge den folgenden Code in das Codefenster ein:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Set rng = Target.EntireRow
rng.Interior.ColorIndex = 8 ' Die Zeile wird hervorgehoben
' Die aktive Zelle bleibt aktiv
Target.Select
End Sub
-
Schließe den VBA-Editor und kehre zu Deinem Arbeitsblatt zurück.
Jetzt wird jedes Mal, wenn Du eine Zelle auswählst, die gesamte Zeile hervorgehoben, während die aktive Zelle für Bearbeitungen bleibt.
Häufige Fehler und Lösungen
-
Problem: Die Zeile wird hervorgehoben, aber die aktive Zelle ist nicht mehr auswählbar.
- Lösung: Achte darauf, dass Du die Zeile auswählst und anschließend
Target.Select verwendest, um die aktive Zelle beizubehalten.
-
Problem: Vorhandene Farben oder Linien werden beim Ausführen des Codes gelöscht.
- Lösung: Verwende eine Methode mit Rahmen, anstatt die Hintergrundfarbe zu ändern, falls Du bestehende Formatierungen beibehalten möchtest.
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
Alternative Methoden
Eine andere Möglichkeit, die aktive Zeile in Excel hervorzuheben, besteht darin, eine Tastenkombination zu verwenden:
-
Füge den folgenden Code in ein allgemeines Modul ein:
Public bolState As Boolean
Sub ToggleState()
bolState = Not bolState
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
-
Mit Strg + M kannst Du die Markierung aktivieren oder deaktivieren.
Praktische Beispiele
-
Beispiel 1: Wenn Du die Zelle AH1235 auswählst, wird die gesamte Zeile 1235 hervorgehoben, und die Zelle bleibt aktiv, sodass Du den Inhalt bearbeiten kannst.
-
Beispiel 2: Du kannst den Rahmen um die aktive Zeile verwenden, um die visuelle Klarheit zu erhöhen, ohne die Hintergrundfarben zu verändern.
Tipps für Profis
- Experimentiere mit verschiedenen
ColorIndex-Werten, um unterschiedliche Farben für die Hervorhebung zu verwenden.
- Verwende Kombinationen aus Rahmen und Farben, um Deine Daten noch übersichtlicher zu gestalten.
- Denke daran, Deine VBA-Projekte regelmäßig zu speichern, um Änderungen nicht zu verlieren.
FAQ: Häufige Fragen
1. Wie kann ich die Hintergrundfarbe einer aktiven Zeile wieder zurücksetzen?
Um die Hintergrundfarbe zurückzusetzen, kannst Du den folgenden Code verwenden, um alle Zellen zu löschen:
With Cells
.Interior.ColorIndex = xlNone
End With
2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, dieser VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, solange VBA unterstützt wird. Stelle sicher, dass Deine Excel-Version die Verwendung von Makros erlaubt.