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

1 Antwort

Vom Beitragsersteller als hilfreich ausgezeichnet

DanKirpan

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

11.12.2020, 15:30

Hallo,

dazu kannst du diesen Code verwenden, den genauen Grünfarbton kannst du ja noch anpassen:

Dim aktZeile As Long

aktZeile = ActiveCell.Row
'a) in der aktiven Zeile Zelle A bis Q grün eingefärbt werden
ActiveSheet.Range("A" & aktZeile & ":Q" & aktZeile).Interior.Color = RGB(0, 255, 0)

'b) zusätzlich soll in der aktiven Zeile; Zelle B; +1 gerechnet werden
ActiveSheet.Range("B" & aktZeile) = ActiveSheet.Range("B" & aktZeile) + 1

'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.
ActiveSheet.Range("B" & aktZeile + 1).Activate

abdun

Beitragsersteller

15.12.2020, 21:04

Danke im Voraus

abdun

Beitragsersteller

15.12.2020, 20:59

Vielen lieben Dank. Es klappt einwandfrei ohne jegliche Probleme. Suuuper :)

Kannst du eventuell ein Blick auf meine folgende Frage werfen? Danke im Voraus:

Link

Oubyi, UserMod Light

11.12.2020, 18:45

DH!

abdun

Beitragsersteller

15.12.2020, 21:03

@Oubyi, UserMod Light

Was heißt "DH!".
Kannst du falls du Zeit findest ein Blick auf meine folgende Frage werfen:

Link

Oubyi, UserMod Light

15.12.2020, 22:11

@abdun

DH! steht hier für "Daumen hoch", also hilfreich.

abdun

Beitragsersteller

20.11.2021, 16:06

@Oubyi, UserMod Light

Hi, wäre cool wenn du bei meiner neuen Excel Frage mal vorbeischauen könntest :)

https://www.gutefrage.net/frage/excel-vba---springe-zu-zelle-mit-inhalt-befehl

Ähnliche Beiträge

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

...zum Beitrag

Excel / VBA zur vorherigen aktiven Zelle springen?

Hallo,

folgende Logik soll umgesetzt werden:

Wenn Zelle A1 angeklickt wird, dann springe zur letzten aktiven Zelle im aktiven Tabellenblatt.

Habe im Internet "ActiveCell.Previous.Select" diesen Befehl gefunden, jedoch denke ich, dass es nicht dafür ist.

Hat jemand eine Idee wie ich dies umsetzen kann?

...zum Beitrag

Hallo, ich möchte in einer Excel Datei per vba code bis zur ersten leeren zeile gehen, wie tue ich das?

ich möchte zur ersten leeren Zeile gehen und dann den rest markieren und löschen, also den kompletten Bereich ab da? BSp. A10 ist leer, dann möchte ich ab A10:z10 und abwärts alles markieren und löschen

Wie??

Sub FIND_EMPTY_CELL()

    Dim zeil As Integer
    Dim z As Integer
    Dim leerAbWo As Long

    zeil = ActiveSheet.UsedRange.Rows.Count 'letzte ausgefüllte Zeile

    For z = 8 To zeil

            If Cells(z, 1) = "" Then
                'leere Zelle gefunden
                leerAbWo = Cells(z, 1).Select 'gefundene Zelle selektieren
                'jetzt ab da an bis AA markieren und rest löschen!!!
                MsgBox leerAbWo
                Exit Sub
            End If
    Next z
End Sub

...zum Beitrag

VBA Zellen durchsuchen und entsprechend ausblenden/einblenden?

Hallo,

ich möchte gerne einen VBA erstellen mit folgendem Ziel:

Zelle A2 enthält "nein"

Zelle A2 mit "nein" führt zum Ausblenden der Inhalte von Zeilen 5-8. Soweit verstehe ich den Makro.

Jetzt zu meinen Problemn:

Ich lösche Zeile 1 und der o.s. Befehl soll über Zelle A1 ausgeführt werden
Ich füge eine weitere Zeile in Zeile 4 ein und nur die Inhalte aus Zeilen 5-8, was jetzt neuerdings 6-9 ist, wird ausgeblendet. Ich möchte jetzt nicht mehr Zeile 5-8 ausblenden.

Sprich, ich möchte gerne die Range im VBA verschieben, wenn ich im Blatt Zeilen hinzufüge/lösche.

Danke vorab!

...zum Beitrag

EXCEL - Zeitstempel (VBA)?

Ich benötige eine (VBA) Lösung für folgende Anforderung

In Spalte A:A soll JE ZEILE ein Zeitstempel gesetzt werden, wenn in Spalte B:B in gleicher Zeile ein Eintrag erfolgt. Der Zeitstempel soll TT.MM.JJ hh:mm formatiert sein und fix bleiben Also Eintrag in Zelle B10 = Zeitstempel 07.10.16 10:45 in A10 Eintag in Zelle B11 = Zeitstempel 07.10.16 10:47 in A11 usw

...zum Beitrag

Bestimmte Spalten von aktiver Zelle markieren?

Hey :) Eine kurze Frage zu Excel. Und zwar möchte ich ein Makro erstellen, welches bei Ausführung die Spalten A-E der aktiven Zeile markiert. Wenn ich also zum Beispiel die Zelle E26 markiert habe und das Marko ausführe, sollen die Zellen A26 - E26 rot markiert werden.

Idealerweise ware dann noch ein zusätzliches Makro, welches diese Markierung wieder aufhebt.

Vielen Dank für eure Vorschläge und Lösungen :)

...zum Beitrag

Excel (VBA) farbig Markieren und anschließend kopieren?

Hi liebe Leute, ich benötige bei meiner Excel-Datei eure Hilfe.

Die Datei hat zwei Tabellenblätter "Ermittlung" und "Markierung"

In dem Tabellenblatt "Ermittlung" steht untereinander genaue Zellenpositionen: A4, A1517, A119, A1831 usw. Nun möchte ich, dass dies gerne mittels VBA Makro alle diese Positionen erkennt und auf dem anderen Tabellenblatt "Markierung" farbig markiert.

Dann im nächsten Makro, dass Excel diese farbigen Zeilen kopiert und auf das dritte Tabellenblatt "Prüfung" kopiert. Aber er soll nicht einfach die komplette Zeile kopieren, sondern nur den Bereich Spalte A bis R und genau auch nur in Spalte A bis R diese wieder einfügen.

Gerne seprate in zwei verschiedenen Makros. Ich habe schon gesucht und probiert, aber nichts hat geholfen. Habt Ihr eine Idee? Danke

...zum Beitrag

Excel VBA - Zeile unter Bedingung ausblenden?

Hallo Community,

ich habe folgende Frage:

Wenn ich beim öffnen des Sheets überprüfen lassen will,

ob in der Zelle B1 die Zahl "5" oder "6" steht, dann sollen die Zeilen "1" bis "5" eingeblendet werden, sollten die Zahlen nicht vorkommen, dann sollen die Zeilen ausgeblendet werden.

Kann man das einfach umsetzen mittels VBA Code?

Sofern das nicht so einfach ist, dann habe ich in den Zeilen A1, A2, A3, A4 und A5 auch eine WENN Funktion...

Diese WENN Funktion zeigt das Wort "SHOW" wenn die Zahl "5" oder "6" in der Zelle B1 vorkommt, wenn eine andere Zahl vorkommt, dann schreibt die WENN Funktion das Wort "HIDE".

Also je nachdem, was einfacher wäre um die Zeilen ausblenden zu lassen - über jeden Tipp bin ich dankbar. :)

Benny

...zum Beitrag

Ich möchte gerne erlauben eine Zeile zu löschen, obwohl in der Zeile enzelnen Zellen gesperrt sind und ein Blattschutz aktiv ist. Könnt Ihr mir weiterhelfen?

Hey,

also in einer Zeile befinden sind gesperrte Zellen und ungesperrte Zellen. Zudem ist auch dem gesamten Tabellenblatt ein Blattschutz.

Ich möchte gern den Nutzer des Blattes erlaube, dass dieser einfach eine Zeile löschen kann, ohne das die gesperrten sondern ausschließlich die ungesperrten Zellen gelöscht werden.

Soweit ich mich bereits eingelesen habe, kann man da was in VBA machen?!

Vielen Dank

...zum Beitrag

Makro VBA Excel Zeile markieren wenn in Spalte zahl x steht?

Hallo ,

Ist es möglich mit Hilfe eines Makros eine Zeile zu markieren, wenn in spalte A eine bestimmte zahl steht.

Z.b, Markiere Zeile wenn in spalte A die zahl 8 steht.

Vielen Dank !

...zum Beitrag

Excel VBA eine große Menge leere Zeilen löschen?

Hallo, ich lade eine menge Datensätze in eine Tabelle rein und dabei werden auch die leeren Zeilen zwischendurch mal reinkopiert. Diese möchte ich nun entfernen. Das gelingt mir mittlerweile auch. Das Problem ist, dass es zu lange dauert bei ca. 2800 leere Zeilen, da diese einzeln angeschaut werden und gelöscht. Mein bisheriger Code:

Function loescheLeerenBereichn()

Dim Zelle As Long
Dim LetzteZeile As Long
LetzteZeile = Sheets("Lieferung").UsedRange.SpecialCells(xlCellTypeLastCell).Row
For Zelle = LetzteZeile To 7 Step -1 ' In Range(Cells(7, 4), Cells(LetzteZeile, 4))
If Cells(Zelle, 3) = "" Or Cells(Zelle, 3) = "." Then
Rows(Zelle).EntireRow.Delete Shift:=xlUp 
End If
Next Zelle

End Function

Wie kann man das schneller programmieren?

...zum Beitrag

VBA Code Zelle +1 addieren?

Guten Morgen. Habe ein falsches Ergebnis mit folgender Formel. Es sind ca. 250 Zeilen worauf die Formel angewendet wird. Dabei wird immer ein Datensatz zu wenig addiert. Kann und wenn ja wie die Gausche Formel etwas bewirken. Habe darüber gelesen, kann sie aber nicht korrekt einfügen. Hat da vielleicht jemand eine Lösung parat. Gruß Emilian

...zum Beitrag

Problem mit VBA Excel: Wert Finden und Zeilen daneben ersetzen.

Hallo zusammen,

Ich versuch mich grade mit VBA und stoß so langsam an meine Grenzen.

Ich möchte mit mit einem Formular einen Wert aus Tabelle1 nehmen, diesen in Tabelle2 suchen und markieren. Außerdem soll zusätzlich in den Zeilen daneben Werte aus Tabelle1 eingetragen werden.

Das switchen zwischen den Tabellen, das Finden und Markieren klappt soweit, nur funktioniert das Kopieren aus den Zellen in Tabelle1 in die neben den gefundenen Wert aus Tabelle2 befindlichen Zellen nicht. Anscheinend selektiert mein Makro die Markierte Zelle nicht, weshalb ich mit "ActiveCell" nicht weiter komme.

Wäre cool wenn jemand mir da weiterhelfen könnte :)

Sheets("Tabelle2").Select
Cells.Find(What:=Worksheets("Tabelle1").Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Interior.Color = vbRed                 

    If ActiveSheet.Name = "Tabelle2" Then                             Sheets("Tabelle1").Select                                           Else                                                                Sheets("Tabelle2").Select                                             End If

...zum Beitrag

VBA-Script - Kommentartext finden und Zelle durch bedingte Formatierung einfärben?

Ich suche ein VBA-Script mit deren Hilfe ich einen Bereich in meiner Tabelle nach einem Kommentar durchsucht, der den Inhalt von Zelle XY enthält. Die Zellen, sollen dann durch bedingte Formatierung eingefärbt werden. (Damit in Zelle XY dann etwas anderes reingeschrieben werden kann und die bedingte Formatierung darauf eingeht.)

Kann mir da jemand weiterhelfen? Ich versuche soetwas mit der Aufzeichnungsfunktion hinzubekommen, aber das klappt nicht!

Danke!

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen