EXCEL Zellfarbe mit CommandButton durch Klick ändern?

Hallo, ich würde gerne die Hintergrundfarbe beliebig markierter Zellen durch einen Klick auf den CommandButton ändern. ZB ich markiere die Zelle A1:B1, klicke auf den Button und die Farbe der Zellen wird zb Rot.

Wer kann mir bitte den Code hierfür geben? Ich bin im Internet leider nicht fündig geworden.

2 Antworten

airfun

24.10.2019, 15:28

Wie Du im Sheet einen CommandButton hinzufügst, weißt Du offenbar schon?

In die zugehörige ButtonClick Subroutine muss (für "rot") die folgende Anweisung:

Selection.Interior.Color = RGB(255, 0, 0)

--> Mit Makro-Aufzeichnen, hättest Du das (und vieles Weitere) leicht selbst rausgefunden!

augsburgchris

Nutzer, der sehr aktiv auf gutefrage ist

im Thema Microsoft Excel

24.10.2019, 17:32

Sub farbe()
Selection.Interior.ColorIndex = 3
End Sub

Hallo Zusammen,

ich möchte gerne eine Zellfarbe bzw. Hintergrund als Wert ausgegeben haben.

Beispiel:

Zelle A1 Hintergrundfarbe Weiß = Wert 0 (Dachte an so etwas =WENN(ZELLE("farbe";A1)=0;0;"X")
Zelle A1 Hintergrundfarbe Grün = Wert 1
Zelle A1 Hintergrundfarbe Gelb = Wert 2
Zelle A1 Hintergrundfarbe Rot = Wert 3

Bisher habe ich dazu nur die Funktion Zelle mit dem Infotyp Farbe gefunden.

Allerdings kann dieser imho nur ausgeben ob eine Zelle farbig ist oder nicht.

Gibt es die Möglichkeit überhaupt die Zellfarbe als Wert (ohne VBA) zu ermitteln?

...zur Frage

VBA Intersect Bereich in Bereich überprüfen statt Zelle in Bereich?

Hallo,

wie kann ich mit der Methode Application.Intersect zwei Bereiche miteinander Vergleichen?

Normalerweise kann ich ja z.b. mit :

If Not Application.Intersect(Target, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

Überprüfen ob eine Zelle in einem benannten Bereich ausgewählt oder sontiges ist.

Das klappt mit:

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

leider nur mittelmäßig.

Beispiel:

'''''''''''''''''''''''''''''''''''''1.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B2 

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = Keine MsgBox - richtig

'''''''''''''''''''''''''''''''''''''2.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis A10  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = MsgBox erscheint - richtig

'''''''''''''''''''''''''''''''''''''3.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis B1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis C1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B15  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

Wie schaff ich es, dass die MsgBox immer dann auftaucht, wenn mindestens eine Zelle nicht im Bereich ist?
Also der Markierte Bereich MUSS mit jeder Zelle im Definierten Bereich liegen.

Und eine Lösung ohne 'Split' oder Umwege wäre mir lieb, außer es gibt halt keine andere xD

...zur Frage

Excel VBA: wie kann ich in einer Spalte Zellen nach dem entsprechenden Muster selektieren - erste Zelle mit einem Wert bis nächste Zelle mit einem Wert minus 1?

Excel VBA: wie kann ich in einer Spalte Zellen nach unten mit dem entsprechenden Muster selektieren - erste Zelle mit einem Wert bis zur nächste Zelle mit einem Wert minus einer Zelle: es soll B1+B2 durch das Makro selektiert werden, dann sollen diese Zellen merged werden; danach soll B3 gewält werden und gemergered werden; danach dann B4+B5+B5 markiert werden und ebenfalls merged werde usw bis zum Ende der Spalte B

Reihe A B C D

Reihe 1 1 da er we

Reihe 2 2

Reihe 3 1 be de oi

Reihe 4 1 as sa ds

Reihe 5 2

Reihe 6 3

Reihe 7 1 dw

Vielen Dank für Hilfe und Anregungen

Grüße Sascha

...zur Frage

Excel Button klicken und Zählung?

Moin.

Ich brauche mal die Hilfe von einem Excel-Experten.

Hab es mithilfe von Google zwar geschafft ein Makro zu erstellen, dass ich, wenn ich auf den Button klicke er in Zelle "B2" zählt, allerdings geht es nur bis 1.

Und ich würde es gern ohne Begrenzung haben. Also wenn man 2x klickt, dass da ne 2 steht, wenn man 3x klickt ne 3 usw.

Was müsste ich denn dafür ändern?

Ich selbst hab ja keine Ahnung und das Ding nur so aus Google übernommen und n bisschen rumgespielt bis die Zelle B2 aktiv ist. Jetzt muss nur noch diese blöde Begrenzung weg.

Ich danke euch für eure Hilfe- =)

...zur Frage

Excel VBA - Zelle auswählen, dann F2

Hallo erneut Excel-Freunde,

mein Titel verrät es bereits. Eine Zelle soll markiert werden, daraufhin soll "F2" und dann "Enter" gedrückt werden.

Mein Makro sieht bisher so aus:

'Ans Ende der Tabelle springen

ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Select

ActiveCell.Offset(1, 0).Select

' Eingabeaufforderung 1 Datum

Eingabe = InputBox("Bitte Datum angeben, wann die Ware eingetroffen ist!" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _ "Bitte schreiben Sie in: tt:mm:jjjj" & Chr(13) & Chr(10) & _ "" & _ "", _ "Zugang [Datum]", ActiveSheet.Range("B1") _ & "_", 7000, 5000)

If StrPtr(Eingabe) = 0 Then ' MsgBox ("Die Schaltfläche Abbrechen wurde gewählt. Der Vorgang wird abgebrochen.") End Else

End If

ActiveCell.Offset(0, 0).Value = Eingabe

Wie man sieht, sucht er sich selbst die letzte Zelle in meiner Tabelle um dort mit einer Eingabeaufforderung das Datum anzugeben.

Nun möchte ich als nächsten Schritt, genau diese Zelle, wo man eben das Datum eingegeben hat mittels dem Makro da oben, ... das er diese Zelle auswählt, "F2" und dann "Enter" drückt.

Alle Versuche dies zu bewerkstelligen, schlugen bisher fehl.

Habt ihr eine Idee?

Viele Grüße,

David :) ... Pixelschubster :D

...zur Frage

Zellen per VBA markieren und löschen?

Hallo,

ich bin gerade dabei ein kleines Lagerverwaltungssystem per Excel zu schreiben und ich hänge an einer Stelle. Ich will, dass wenn ich in meiner Eingabemaske einen bestimmten Button drücke, sich nochmal ein Fenster öffnet in dem ich eine Zahl eingebe (z.B. 4). Darauf sollen dann 4 Zellen in der Spalte A markiert und gelöscht werden, die einen bestimmten Inhalt haben.

Kann mir jemand weiterhelfen? :(

...zur Frage

Exel Nachbarzelle mit gleicher Hintergrundfarbe

Hallo zusammen, ich möchte gerne die Farbe der Nachbarzelle übernehmen , kleines Beispiel: Zelle B1= "Hund" Farbe durch bedingte Formatierung in B1 grün. Zelle B1= " Pferd" Farbe braun Zelle B1= " Fisch" Farbe blau
etc.etc. A1 soll nun immer die selbe Farbe bekommen wie B1, ohne eine Formatierung nach "Hund;Pferd,Fisch". Quasi einfach die Farbe aus B1 kopieren sobald sich diese ändert. Wie geht das , und wenn möglich ohne VBA.

Danke im vorraus

...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 - Variable Zelleneingabe im Blatt suchen?

Hallo, ich suche seit gut 8 Monaten (ja.. eine lange Zeit bis dato ohne Lösung) einen Weg um folgendes Umzusetzen:

Makro-Ausführung:

In eine Zelle soll ein Buchstabe eingegeben werden, diese Zelle soll vom Makro kopiert werden, den Textinhalt in die Suche eingefügt werden, das Blatt nach dem Text durchsuchen und die Zelle bei einer Liste finden, mit den Pfeiltasten einmal auf die Zelle rechts davon springen, diesen Text kopieren und in eine andere Zelle einfügen.

Makro-Aufnahme:

Zum aufnehmen des Makros gebe ich vor der Aufnahme in die gewisse Zelle (siehe Bild unten) einen Buchstaben (B) ein. Dann starte ich das Makro.

Die Zelle mit dem Buchstaben "B" wird kopiert, die normale Excel-Suche wird geöffnet, der Textinhalt wird bei der Suche eingefügt, Suche gestartet. Buchstabe "B" wird im aktuellen Blatt (Liste) gefunden. Ich springe mit der Pfeiltaste rechts in die benachbarte Zelle ("Baum") kopiere die Zelle und füge sie wo anders als "Ausgabe" ein. Ich beende die Aufnahme.

Problem:

Wenn ich dann in die gewisse Zelle den Buchstaben "A" eingebe, und aus "Ausführen" klicke, wird das vorherige aufgezeichnete Makro gestartet. Dann soll in der Suche der Buchstabe A eingefügt werden und nach "A" gesucht werden.

Aufgrund eines eigenartigen Fehlers wird aber der WIRKLICHE BUCHSTABE VON DER MARKO-AUFZEICHNUNG ("B") EINGEFÜGT - UND NICHT A.

(Ich habe beim Aufzeichnung natürlich über die Einfüg-Funktion den Zellinhalt ("B") eingefügt und nicht manuell eingetippt.)

Ich muss es schaffen, dass die Suche immer einen anderen Buchstaben einfügt, welcher von der Zelle kopiert wurde.

Wenn möglich, nur Methoden zur Aufzeichnung angeben, keine VBA Befehle - da ich davon nichts verstehe :P Ausser es ist wirklich anders nicht umsetzbar.

Bitte um dringende Hilfe, mit läuft die Zeit davon :p Ich hab das sicher schon 25 Mal neu gemacht, immer etwas anders und andere Methoden gesucht, ich werden nicht fündig.

Hier ein Bild darunter, für besseres Verständis. Ich freue mich über jede Hilfe!

Danke Danke Danke!

Bild in groß öffnen

...zur Frage

gesuchte zellen automatisch in excel markieren

eine frage an die excel experten hier:

ich habe eine Tabelle mit ca. 1000 Bestellnummern in der Spalte. Um diese abzugleichen, klicke ich auf Menü Bearbeiten -- Suchen -- gebe die entsprechende Nummer ein und er springt in die richtige Zelle. Dann markiere ich die Zelle mit Füllfarbe, damit ich weiss, dass die Zelle bereits gefunden worden ist. So weit so gut. Aber gibt es eine Möglichkeit, vielleicht ein VBA Script, mit dem die gesuchten Zellen automatisch farblich markiert werden? Das heisst: beispielsweise: Bestellnummer in A5 gefunbden grün markieren, dann 2. Bestellnummer in A10 gefunden und auch automatisch markieren. Die Zellen in diesem Fall a5 und a10 sollen auch nach der nächsten Suchanfrage markiert bleiben. Hat jemand dafür eine Lösung?

...zur Frage

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

...zur Frage

Excel Makro Spalten Markieren wenn Zelle bestimmten Inhalt hat

Hallo liebe Excel Freunde,

ich habe folgende Frage. Ich habe eine Tabelle mit einer Reihe von Tagen. Nun möchte ich in meinem Makro aber prüfen, dass wenn in der Zeile eine Zelle mit Sa oder So steht, dass es mit dann Die Spalte der Zelle farbig markiert. Weiß jemand wie dass geht, und gibt mir mal nen kleinen Denkanstoß?

...zur Frage

Excel Wenn Wert in Spalte dann kopieren Zelle Makros ?

Hallo liebe Leute,

ich hoffe mir kann jemand weiterhelfen mit meinem Problem.

Ich habe folgendes Problem:

Ich habe in verschiedenen Worksheets Tabellen in denen ein Wert X steht oder Y.

Ich würde hierfür einen Durchlaufmakros benötigen der die Tabellen durchsucht und mir immer bei Wert X die ganze Zeile zb. von B1 bis M1 in die erste Arbeitsmappe kopiert.

Veranschaulichung:

Mappe1 Mappe2 Mappe 3 Mappe4

In Mappe1 befinden sich von B34:M81 leere Zellen in denen später die kopien kommen sollen.

In den restlichen Mappen soll die Spalte M auf Wert U abgefragt werden, ist dieser U sollen die davorliegenden Zellen A:J in den Bereich der ersten Mappe kopiert werden.

Ich hoffe mir kann jemand helfen.

...zur Frage

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

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen