Excel aktive Zeile farblich markieren ohne VBA?

Ich habe laut einer Anleitung auf YouTube

Hier ist der Link

Kurzgefasst wird dort in einem bestimmten Bereich eine Bedingte Formatierung gemacht, mit der Formel:

=$A$1=ZEILE()

Hierzu wird noch ein VBA Code gebraucht:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$A$4:$Q$10000")) Is Nothing Then
Range("$A$1").Value = Target.Row
End If
End Sub

Resultat:
Die Zeile der aktiven Zelle wird nun farblich markiert.

Frage:
Mir ist nun aufgefallen, dass ja jedes mal wenn irgendwo geklickt wird der VBA Code abgespielt wird. Dementsprechend kann man die Vorwärts und Rückwärts Buttons nicht mehr verwenden :(

Dies ist leider sehr unpraktisch. Ich habe in die Zellen etwas eingefügt und wollte dann es rückgängig machen und nicht mal das geht.
Daher die Frage, gibt es hier ein Workaround? Oder eventuell eine ganz andere Lösung ohne VBA?

Danke vorab

3 Antworten

DanKirpan

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

16.12.2020, 08:37

Wie IchMalWiederXY bereits geschrieben hat, werden die Buttons unbrauchbar, wenn eine Zelle per VBA geändert wird. Man braucht in deinem Fall also eine Möglichkeit die Zeile der aktiven Zelle per Formel zu ermitteln. (Die Einfärbung kann weiter über die bedingte Formatierung erfolgen) Das was dem Auslesen der Zeile am Nächsten kommt ist:

in A1: =ZEILE(INDIREKT(ZELLE("adresse");1))

Sie funktioniert aber nur korrekt wenn das Blatt beim Auswählen neu berechnet wird, dazu reicht eine Anpassung deines bisherigen Codes:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, ActiveSheet.Range("A4:Q10000")) Is Nothing Then
 Calculate
End If

End Sub

Da keine Zelle mehr geändert wird, funktionieren Rückgängig und Wiederholen weiterhin.

abdun

Fragesteller

16.12.2020, 09:20

Ich habe nun folgendes gemacht:

Eine bedingte Formatierung erstellt über die Zellen A4:Q100000. Die Formel zur Ermittlung der zu formatierenden Zellen ist:

=$A$1=ZEILE()

2 . Wie du oben geschrieben hast, habe ich in Zelle "A1" folgendes eingefügt. Bitte beachte, dass ich "adresse" so belassen habe, da ich den Code nicht genau verstehe. Oder war gemeint, dass ich die "adresse" ausfüllen muss? Wenn ja, dann mit was? Mit der zur Formatierenden Zellen, also A4:Q100000?

 =ZEILE(INDIREKT(ZELLE("adresse");1))

3 . Den VBA Code genau so wie oben geschrieben eingefügt:

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, ActiveSheet.Range("A4:Q10000")) Is Nothing Then
 Calculate
End If

End Sub

Resultat: Wenn ich Zellen anklicke, passiert gar nichts. Wo ist mein Fehler?

DanKirpan

16.12.2020, 09:46

@abdun

Zelle("adresse") ist so richtig. ZELLE(Infotyp; Bezug) gibt Informationen zu einer Zelle aus, "adresse" ist der gewünschte Infotyp und ohne Bezugsangabe wird die zuletzt geänderte Zelle verwendet.

Da ich sonst keinen Fehler sehe (ich nehme an du hast den Code im richtigen Blatt eingefügt), habe ich es selbst nochmal getestet. Mit einem sehr seltsamen Ergebnis:

Es funktioniert in 2 Fällen korrekt

die aktive Zelle befindet sich unterhalb des benutzten Bereichs (Strg+Ende springt zur letzten Zelle in diesem)
die aktive Zelle liegt im benutzten Bereich und eine beliebige Zelle der Zeile wurde bereits irgendwann genutzt (also beschrieben, Farbe geändert, etc)

abdun

Fragesteller

16.12.2020, 13:49

@DanKirpan

Danke für deine Bemühung!

Meine Excelsheet schien schon zu vorbelastet zu sein. Ich habe es nun hingekriegt, wie du es beschrieben hast. Die Merkwürdigkeit ist mir ebenfalls zuvor aufgefallen. Stört jedoch weiter nicht. Denn sobald in der Zelle etwas steht, funktioniert es einigermaßen zuverlässig.

Der Rückgängig Button funktioniert nun auch. Echt super dein Workaround! :)

Nur eine Sache ist mir aufgefallen, welches ich beheben müsste, da ich hierauf nicht verzichten kann in der Tabelle. Undzwar kann ich nichts mehr einfügen. Sowohl mit Maus als auch mit STRG+V.
Kopieren geht jedoch.

DanKirpan

16.12.2020, 14:18

@abdun

Bitte :D

:? Das Aktualisieren bricht den Kopiermodus ab (wusste ich vorher auch noch nicht). Also fragen wir doch einfach nach ob der Kopiermodus aktiv ist, bevor wir aktualisieren und tun das dann nicht:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, ActiveSheet.Range("A4:Q10000")) Is Nothing Then
        If Application.CutCopyMode = False Then
            Calculate
        End If
    End If
End Sub

Das Hervorheben funktioniert dann natürlich nicht während du gerade kopierst, aber beides gleichzeitig zu ermöglichen wird komplizierter bis nicht möglich.

abdun

Fragesteller

23.01.2021, 14:51

@DanKirpan

Vielen Dank hierfür.
Hat alles funktioniert.

Wäre super wenn du ein Blick in meine folgende Frage reinwerfen könntest:

https://www.gutefrage.net/frage/excel--vba-zur-vorherigen-aktiven-zelle-springen

DanKirpan

25.01.2021, 08:50

@abdun

Hallo,

ich war am WE nicht aktiv und hab jetzt reingesehen. Die dort geschriebene Antwort sieht bereits nach einer guten Lösung aus. Es tritt lediglich ein Fehler auf wenn noch nicht mindestens 2 Felder aktiv gewesen sind, weil dann noch nicht beide Variablen gefüllt sind.

kragenweiter

15.12.2020, 17:19

Wenn man die Zeilenüberschrift anklickt, wird die Zeile auch farblich hervorgehoben. Weitere "einfache" Möglichkeiten sind mir nicht bekannt. Wenn es um die einfachere Orientierung geht, kann man auch die Tabelle abwechselnd farbig darstellen lassen. Hilft auch.

Ansonsten diese VBA-Beispiele testen:

https://docs.microsoft.com/de-de/office/vba/excel/concepts/cells-and-ranges/highlight-the-active-cell-row-or-column

abdun

Fragesteller

15.12.2020, 20:55

Danke, jedoch bringen die VBAs nichts. Denn immer wenn ein VBA Code abgespielt wird, verschwindet die "Rückgängig" Taste. Daher funktioniert das nicht.

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, VBA

15.12.2020, 21:37

Der Rückgängig Button verschwindet weil du etwas auf die Zeile schreibst. (oder ggf auch die Farbe veränderst)
Range("$A$1").Value = Target.Row
Du willst doch die Zeile einfärben, oder ?
==
Grundsätzlich kann man auch mit VBA Dinge rückgängig machen:
    Application.EnableEvents = False
    Call Application.Undo
    Application.EnableEvents = True

abdun

Fragesteller

16.12.2020, 09:33

Ja, ich möchte die Zeilenränder farbig darstellen, sobald eine Zelle in dieser Zeile ausgewählt ist. Dies dient halt zur besseren Orientierung. Die Ränder werden natürlich nicht fest auf die Farbe gesetzt, sondern nur solange die Zelle angeklickt ist.

Den VBA Code für Undo verstehe ich nicht. Habe diesen einfach mal auf ein Button gelegt, funktioniert jedoch nicht.

IchMalWiederXY

16.12.2020, 13:04

@abdun

wenn man per VBA eine Zelle ändert. z.B: Im ChangeEvent:
Range("A1").Value = "bla"
Dann kann man mit diesem Code:
Application.EnableEvents = False
Call Application.Undo
Application.EnableEvents = True
dies wieder rückgängig machen.
Wenn du den Eingabe Fokus auf der gewählten zeile haben willst dann könnte man auch per VBA die Zeilenhöhe von meist 12 auf 18 ändern.
Dies sollte den Rückgängig Knopf nicht beeinflussen.

IchMalWiederXY

16.12.2020, 13:31

@IchMalWiederXY

Schade. Rowheight Änderung macht den "Rückgängig Knopf auch blass.

abdun

Fragesteller

16.12.2020, 13:50

@IchMalWiederXY

Danke für deine Bemühung. Der "DanKarpin" hat zu meiner Frage eine interessante Antwort geliefert. Findest du weiter unten. Klappt auch ganz gut. Jedoch verschwindet da die "Einfügen" Option. Sowohl per Maus als auch per STRG+V.

Habe das Problem ihm geschildert, mal schauen ob er eine Lösung hat.

Hallo,

ich habe folgendes Anliegen: Ich möchte in Excel mit VBA etwas machen. Hier einmal der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j10")) Is Nothing Then
    Select Case Range("j10").Value
        Case "manuell"
            Range("s7:u7").ClearContents
        Case "Anfang & Ende"
            Range("s7").Value = Worksheets("PEPStauchung").Range("d2").Value
    End Select
End If
End Sub

Ich möchte, dass, wenn ich in Zelle S6 einen Wert ändere, das ganze erneut durchgeführt wird.

Wie binde ich das ein? Vielen Dank!!!

Syrena

...zur Frage

Excel VBA Code gebraucht - farbig markieren?

Wer kann mir für folgenden Fall einen VBA Code erstellen?

Bei Knopfdruck soll:
a) in der aktiven Zeile Zelle A bis Q grün eingefärbt werden
b) zusätzlich soll in der aktiven Zeile; Zelle B; +1 gerechnet werden
c) zusätzlich soll sich die aktive Zelle ändern. Also die neue aktive Zelle soll folgende sein: Eine Zeile runter; Zelle B soll aktiv/ausgewählt sein.

Dank im Voraus

...zur Frage

Excel Makro ausführen bei Änderung in einer Zelle in anderem Tabellenblatt?

Hallo zusammen,

ich habe ein Problem mit Excel, das vermutlich ganz leicht zu lösen ist, alleine komme ich aber nicht weiter.

Ich möchte gerne ein Makro immer bei einer Änderung in einer bestimmten Zelle ausführen lassen. Dazu habe ich bisher folgenden Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range) Set Target = Intersect(Target, Range("A1")) If Target Is Nothing Then Exit Sub Else FooterLeft End If End Sub

Der funktioniert auch, bloß soll jetzt die aktivierende Zelle nicht A1 auf diesem Tabellenblatt sondern beispielsweise Zelle A6 auf dem Tabellenblatt "Deckblatt" sein.

Was muss ich hier wie umformulieren damit das klappt, oder brauche ich grundsätzlich eine ganz andere Funktion dazu?

Vielen lieben Dank!

...zur Frage

VBA Code?

Hallo zusammen

Ich habe einen Excel Liste als Checkliste erstellt. Wenn man in ein bestimmtes Feld (grau) klickt soll ein "a" geschrieben werden damit es einen Haken ergibt. (Formatierung).

Ich habe das mit einem VBA Code gelöst. Allerdings kann ich nicht einzelne Spaltenbezüge eingeben. Dies müsste ich aber, da in den grünen Spalten einen WennDann Funktion ist die Bezug auf die jeweilige Zelle nimmt wenn ein "a" geschrieben ist.

Kann mir hier jemand helfen wie der Code aussehen müsste?

Der Code ist jetzt:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Application.Intersect(Target, Range("G4:P150")) Is Nothing Then

Exit Sub

End If

'More than 1 cell selected is a no no.

If Target.Cells.Count > 1 Then

Exit Sub

End If

Application.EnableEvents = False

With Target

If .Value <> "" Then

.Value = ""

Else

.Value = "a"

End If

End With

Application.EnableEvents = True

End Sub

...zur Frage

Datum in Zelle darf nicht Zukünftiges Datum enthalten und muss im Aktuellen Jahr sein?

Hallo,

verzweifelt wende ich mich an das Internet da ich leider nicht weiss wie ich dieses Problem lösen kann. Folgende Idee... / Ich möchte in der Lage sein Spalte A1-A30 ein Datum zu geben das sich nur im Aktuellen Jahr befindet und nicht in der Zukunft liegen kann. Sollte dies der Fall sein soll eine Fehlermeldung Erscheinen mit einem von mir angegebenen Text... Ich habe bereits einen Code mit verschiedenen Funktionen wie Z.B das Zelle A1-A30 die Heute Funktion anwenden jedoch editierbar ist. Leider weiss ich nicht wie ich die o.g. 2 Sachen noch in den code einbinden kann oder wie dies Funktioniert. Ich hoffe ihr könnt mir helfen mit evtl den vollständigen Code? :)

Anbei der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A3:A30")) Is Nothing Then
If Target.Value = "" Then Target.FormulaLocal = "=HEUTE()"
Else
If Intersect(Target, Range("D3:D30")) Is Nothing Then Exit Sub
If Target.Value = "" Then Target.Value = 1 End If End Sub

...zur Frage

Excel VBA Selection begrenzen?

Hallo zusammen.

Ich komme leider beim meinem Problem nicht alleine weiter.

In meiner Tabelle werden in Spalte 2 und Zeile 4 Zeichen angezeigt, sobald ein Bereich selektiert wird. Die Zeichen sollen sich allerdings nur auf die Range J7:OJ57 beschränken, auch wenn die Selektion über die Range hinausgeht.

Denn jetzt, wenn ich z.B. eine Spalte markiere, schreibt der Code mir alle Zeichen in jede Zeile der Spalte, was fatal ist.

Kann ein Profi kurz helfen? :)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("J6:OJ57")) Is Nothing Then
Dim cell As Range
  Application.Calculation = xlCalculationManual
  Application.ScreenUpdating = False
  Application.EnableEvents = False
   Range("B6:B57").ClearContents
   Range("J4:OJ4").ClearContents
For Each cell In selection
  With cell
   Range(cell(.Row, 2), Cells(.Row, 2)) = ">>"
   Range(cell(4, .Column), Cells(4, .Column)) = "V"
  End With
Next
   Application.ScreenUpdating = True
   Application.EnableEvents = True
   Application.Calculation = xlCalculationAutomatic
End If
End Sub

...zur Frage

Excel: Verbessertes Logging mit VBA Makro?

Hallo Zusammen

ich verwende im Moment ein kurzes Makro, um Änderungen in einem Tabellenblatt zu loggen.

Es registriert aber nur einzelne Änderungen, nicht multi-selektion oder Löschen von Spalten. Kann ich das mit separaten Privaten Subs übernehmen?

Und kann ich aufnehmen, was die Target- und "PreVal"-Adresse war (Offset 4+5)

Code:

Dim PreVal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
PreVal = Target.Value
 
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
  
    On Error GoTo 0
    
    If Target.Value <> PreVal Then
        With Sheets(2).Cells(Rows.Count, 1).End(xlUp)
            .Offset(1, 0) = Now
            .Offset(1, 1) = PreVal
            .Offset(1, 2) = Target.Value
            .Offset(1, 3) = Environ("Username")
        End With
    End If
 
End Sub

...zur Frage

Ich möchte in der ersten Spalte das aktuelle Datum automatisch eingetragen bekommen, sobald in der selben Zeile in den Spalten B-H etwas eingetragen wird?

diesen Vba Code hab ich schon gefunden:

Private Sub Worksheet_Change(ByVal Target As Range) 'Trägt akt. Datum und Uhrzeit ein A:A ein, wenn B:B nicht leer ist 
If Not Intersect(Target.Cells(1), ActiveSheet.Columns(2).Cells) Is Nothing Then 
If Not IsEmpty(Target.Value) Then If IsEmpty(Target.Cells(1).Offset(0, -1)) Then Target.Cells(1).Offset(0, -1) = Date + Time 'kann auch Date + Time (Datum+Uhrzeit) sein 
End If 
End Sub

...zur Frage

Brauche einen Excel Makro zum wechseln von Tabellen?

Kurzgefasst brauche ich einen Makro mit folgender Logik:

Wenn irgendeine Zelle angeklickt wird, worin die ersten drei Zeichen identisch sind wie mit einem Tabellenblatt, dann soll zu dem Tabellenblatt gewechselt werden.

Also Zelle A1 heißt zum Beispiel "AAA_Tabelle1".
Klickt man nun auf A1, soll Excel zum Tabellenblatt mit dem Namen "AAA" springen.
Und dies bitte automatisiert. Denn manuell könnte ich es auch machen, aber dann wären halt alle Werte fest und nicht variabel. Mein manueller/nicht flexibler Code lautet:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveCell Like "AAA*" Then
Sheets("AAA").Select
End If
End Sub

Vielen Dank im Voraus

...zur Frage

Excel if target.column?

Hallo zusammen,

habe mal wieder ein problem mit excel.... im nachfolgenden code geht alles soweit bis auf die zwei if cods bzw. der eine der sich auf die 4 ("D") Zeile bezieht geht. der code der auf zeile 9 gerichtet ist geht einfach nicht... wenn ich anstelle 9, 8 angebe und ändere gehts. es gehen alle spalten bis auf 8. dann is sense...

kann es sein, dass nur 8 zeilen irgendwie unterstützt werden oder hab ich da was falsch gemacht?

Option Explicit
Sub Worksheet_Change(ByVal Target As Range)
   
   If IsEmpty(Target) Then Exit Sub
   If Intersect(Target, Range("a2:h100")) _
      Is Nothing Then Exit Sub
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   Target = UCase(Target)
ERRORHANDLER:
   Application.EnableEvents = True

    If Target.Column = 4 Then Call Zelle11 ' Heim
    
    If Target.Column = 9 Then Call Zelle12 ' Gast
    
    
End Sub

...zur Frage

VBA | UserForm öffnen, sobald Excel-Zelle (die eine Formel enthält) = 2?

Hallo,

Excel-VBA....

ich benötige Hilfe beim Thema UserForm öffnen und ständige Abfrage.

Ich habe eine Zelle mit einer Formel, der Wert, welcher raus kommt soll verglichen werden und bei z.b höher als 2 soll eine User Form geöffnet werden.

Kann mir da wer helfen? Ich bin komplett auf dem Holzweg..

Der Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$T$6" Then
If UCase(Target.Value) > 2 Then NewUserForm.Show
End If

End Sub

Devo

...zur Frage

Excel VBA Private Sub Worksheet_Change(ByVal Target As Range)? Help Programm vom Kollegen Bearbeitet

Habe für einen Kollegen ein Programm geschrieben. Das Problem ist nun das er vorher als Change Bedienung einen Befehl drin hat denn ich nicht ganz verstehe(und mein Programm Stört). :/ Der Code hat seinen Sinn deswegen möchte ich ihn gerne drin lassen. Hier der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("A7:A100")) Is Nothing Then Exit Sub
   If Target.Value <> "" Then
      Target.Offset(0, 8).Value = Date
   Else
      Target.Offset(0, 8).ClearContents
   End If

End Sub

Ich denke der Code Funktioniert so. Er Speichert in der Variable "Target" die Range A7;A100 und guck nun dann ob sie leer sind wenn ja soll er das Sub Verlassen. Ist das gebiet 0,8 nicht "ungleich" Leer soll es in die Zelle 0,8 bzw "Offset"? Das Datum reinschreiben. Ist Target 0,8 leer? Löscht es die Komplette Zeile?...

So das Programm erzeugt immer wenn man in Spalte A in eine neue Zeile schreibt an der stelle 8/bzw. H das Datum.

Das Problem ist aber das der Debugger anspringt wenn man Zeilen per Rechtsklick Zeilen Löschen rauslöscht. Und da das wiederum unschön ist wäre hilfe wirklich schön :)

mfg Dennis

...zur Frage

Excel VBA Button Enable?

Hallo Freunde,

Ich habe einen Button in Excel implementiert, der sichtbar sein soll wenn meine Zelle A1 die Zahl 2 enthält.

Der Code dafür lautet:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
  On Error GoTo ErrHandler
  Dim rngButton1 As Integer
  rngButton1 = A1
  If rngButton1 = 2 Then
  CommandButton1.Enabled = False
  Else
  CommandButton1.Enabled = True
  End If
  Application.EnableEvents = True
Exit Sub
ErrHandler:
Application.EnableEvents = True
End Sub

Der Code funktioniert an und für sich, es kommt zu keiner Fehlermeldung.
Aber der Button bleibt egal was ich einstelle, Sichtbar.

Wo liegt der Fehler?

...zur Frage

Richtig Einfügen in Excel-VBA?

Ich bin mir auch nicht sicher ob ich Richtig in VBA einfüge, der Sub Kopieren funktioniert nicht.

Mein Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("E8")) Is Nothing Then

Cells.EntireRow.Hidden = False

If Range("E8").Value = "Rogo AC" Then

Columns("U:AH").Hidden = True

Columns("U").Hidden = False