Wie kann man in Excel eine Zeile einfärben, wenn in zwei anderen Teilen zwei mal True ist?

Hallo Leute,

ich habe folgende Tabelle:

            G             H                    K  
K2        Montage       Konfiguriert        Erledigt
K3        True          True                FARBE:GRÜN
K4        True          False               FARBE:GELB
K5        False         False               FARBE:ROT
...

Wenn in Montage und Konfiguration gleich True --> Zelle K2 Grün färben

Wenn in Montage gleich True und in Konfiguration gleich False -->K3 GELB färben

Wie kann man dies in Excel umsetzen?

1 Antwort

Von Experte GutenTag2003 bestätigt

Asardec

12.01.2022, 09:39

Je nach Excel die gewünschte Zelle markieren und dann unter "Formatvorlage" --> "Bedingte Formatierung" --> auf "Neue Regel" gehen.

Hier unter "Regeltyp auswählen" die Funktion "Formel zur Ermittlung der zu formatierenden Zelle verwenden" auswählen.

Unter "Regelbeschreibung bearbeiten" kannst du dann die Bedingungen angeben und unter "Formatieren" einstellen, welche Farbe die Zelle bekommen soll.

Ähnliche Fragen

Excel Solver - Stückzahlen?

• Wieviele Kühlschränke können Sie herstellen, wenn Sie zur Verfügung haben:

o 3 Montagearbeiter (je 165 Std/Monat)

o 400 Einheiten Isolationsmaterial

· mindestens 25% vom Typ K1 sein, · mindestens 30% vom Typ K2 und · mindestens 25% vom Typ K3 sein

...zur Frage

Word: Seriendruck - große Anzahl von Seriendruckfeldern einfügen?

Hallo,

ich habe eine Excel-Datei mit den Spaltenüberschriften K1, K2, K3..... bis wahrscheinlich K100.

Diese sollen als Serienbriefgrundlage in ein Word-Dokument der Reihe nach von oben nach unten in eine Tabelle eingefügt werden. Ist das möglich, ohne jedes Serienfeld K... einzeln anzuklicken und einzufügen?

Das würde mir die Arbeit sehr erleichtern.

Vielen Dank und liebe Grüße

...zur Frage

Kaskadenschaltung mit 4 Schütze

Hallo Leute. Ich habe folgendes Problem. Ich sollte eine Schaltung zeichnen und habe nur folgenden Text bekommen:"Schütz1 soll durch Taster S2 in Selbsthaltung gebracht werden. Wenn Schalter S1 betätigt wird, wird Schütz K2 angesteuert und K1 fällt ab. Wird Schalter 1 nochmal betätigt, so Fällt K2 ab und K3 zieht an. Wird S1 nochal betätigt fällt K3 ab und K4 zieht an. Über den Schalter S3 soll K4 abfallen um den ursprungszustand zu erhalten." Saß schon mehr als 3h an der Schaltung drann aber ich habe sie nicht hin bekommen. Wär gut wenn mir jemand villt erstmal einen Tipp geben könnte und falls ich es nicht hin bekomme nen Link mit nem Schaltplan

Vielen dank schonmal!

...zur Frage

Visual Basic Makro auf weitere Zeilen anwenden?

An alle Visual Basic Experten :P

Habe in Excel ein Makro geschrieben, das mir in verschiedenen Spalten Inch in mm umrechnet und die nicht gewünschte Einheit ausblendet.

Nun habe ich die Funktion aber nur für die Zeile A... :( Kann mir jemand sagen wie ich sich die Funktion nun auf die anderen Zeilen übertragen lässt ?

Mein Makro sieht wie folgt aus:

Sub Schaltfläche1_KlickenSieAuf()

Range("T3") = (Range("S3").Value * (254 / 10))

Range("V3") = (Range("U3").Value * (254 / 10))

Range("R3") = (Range("Q3").Value * (254 / 10))

Range("O3") = (Range("N3").Value * (254 / 10))

Range("J3") = (Range("I3").Value * (254 / 10))

Range("H3") = (Range("G3").Value * (254 / 10))

Range("F3") = (Range("E3").Value * (254 / 10))

Columns("U").Hidden = True

Columns("S").Hidden = True

Columns("Q").Hidden = True

Columns("N").Hidden = True

Columns("I").Hidden = True

Columns("G").Hidden = True

Columns("E").Hidden = True

Columns("F").Hidden = False

Columns("H").Hidden = False

Columns("J").Hidden = False

Columns("O").Hidden = False

Columns("R").Hidden = False

Columns("T").Hidden = False

Columns("V").Hidden = False

End Sub

Bin für jede Antwort dankbar. PS: ist mein erstes Makro :) wäre also nett , wenn die Lösung verständlich wäre :D

...zur Frage

WAHR/FALSCH bzw. FALSE/TRUE Problem mit deutsch/englisch in Excel VBA?

Guten Morgen,

habe eine Userform (6 Textfelder + 1 Checkbox) zur einfachen Eingabe von Datensätzen

die Checkbox legt korrekt den jeweiligen Wert WAHR/FALSCH (in deutsch) in der Tabelle ab

sobald man speichert ist die Checkbox ausgegraut (nutzen könnte man die Checkbox schon)

ich bin jetzt draugekommen, das die Checkbox den Wert TRUE/FALSE (englisch!!) erwartet, damit der Haken der Checkbox angezeigt wird

das Ganze funktioniert also nur, wenn ich die Werte in der Spalte der Checkbox selbst auf enlisch ändere

getestet mit verschiedenen Office-Versionen (2010 - 365)

hat jemand vielleicht eine Idee woran das liegen könnte ?

und bitte Nachsichtig sein, ich bin Anfänger in VBA

...zur Frage

Excel VBA Button per doppelklick?

Moinsen,

Ich würde gerne einen versteckten Button erstelln, der folgendes Kann:

Sub CommandButton1_Click()

If ActiveSheet.ProtectContents = False Then

ActiveSheet.Protect Password:="+1516", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True

Else

ActiveSheet.Unprotect

End If

Jedoch würde ich ihn gerne nur per Doppelklick aktivieren lassen, da man sonst evt ausversehen drauf kommt.

...zur Frage

STORNO - Excel - auf einen Wert mehrere Prozente addieren aus weiteren Feldern?

Hallo,

ich möchte gerne in Excel bei einem Wert mehrere Zuschläge addieren in einem Feld, ohne weitere Felder zu haben.

Folgendes Szenario:

Ich habe in Feld F5 den Wert "100€" stehen.

Dieser Wert soll mit aufeinanderfolgenden Zuschlägen in Feld E5 angezeigt werden.

Die Zuschläge sehen wie folgt aus: 20,00% Materialgemeinkosten (Feld K1), darauf folgen dann noch 10,00% Verwaltungskosten (Feld K2) und zum Schluss noch 5,00% Gewinnzuschlag (Feld K3).

Sprich: E5*1,2 (K1 20%) = 120€ * 1,1 (K2 10%) = 132€ * 1,05 (K3 5%) = 138,60€

Das Ergebnis "138,60€" soll in Feld E5 ausgegeben werden.

Welche Formel muss dazu im Feld E5 eingetragen werden?

Vielen Dank vorab für eure Hilfe!! :-)

...zur Frage

VBA Automatisierungsfehler?

Guten Tag zusammen,

ich habe folgendes Problem: Wenn ich aus der Excel-Datei per Makro eine PDF erstellen möchte, kommt seit kurzem folgender Fehler:

Laufzeitfehler -2147417848 (80010108):
Automatisierungsfehler
Das aufgerufene Objekt wurde von den Clients getrennt.

Lt. Debugger ist folgender Zeile betroffen:

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     DateiName, Quality:=xlQualityStandard, _
     IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
     False

Der Fehler tritt nur bei Excel 2016 auf. Bei der Verson 2010 gibt es keine Probleme. Kann es daran liegen, das Excel 2016 noch nicht gekauft wurde sondern nur die Testversion ist? Jedoch halte ich dieses für unwahrscheinlich..

Der Fehler ist auch im Internet bereits bekannt, jedoch habe ich bisher noch keine Lösung gefunden.

Gruß

...zur Frage

Excel Arbeitsmappe separat speichern mit VBA?

Hallo,

habe bei meiner Exceldatei 10 Arbeitsmappen und ich möchte eine Arbeitsmappe davon separat als Datei abspeichern sodass ich unten nur mehr eine Arbeitsmappe stehen habe.

Habe mir hierfür einen einen Knopf erstellt und mit VBA den Knopf programmiert. Wenn ich ihn drücke, dann habe ich es bereits geschafft, dass die Mappe sich als PDF exportiert aber als Excel ist nicht möglich. Hier ist mein Code:

Sub EXCEL_erstellen()

Dim DateiName As String

DateiName = Range("AB3") & Range("AB2")

Range("A1:T61").ExportAsFixedFormat Type:=xlTypeXPS, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

...zur Frage

In Excel Spaltenbreite mittel VBA Code?

Hallo, ich habe einen VBA Code wo ich Spalten aus einer Excel- Datei nach Word kopiere. Jetzt möchte ich den Spalten unterschiedliche Längen vorgeben.

Den Code zum kopieren ist folgender:

    With liO.Range
      .Columns.Hidden = True                'jetzt werden erst mal alle Spalten ausgeblendet
      .Columns(2).Hidden = False    'Nummer           'und hier die Spalten die du brauchst wieder eingeblendet
      .Columns(4).Hidden = False    'Name
      .Columns(5).Hidden = False    'Vorname
      .Columns(13).Hidden = False   'gen_bis
      .Columns(14).Hidden = False   'Gruppe
      .Columns(19).Hidden = False 'Krankenkasse
      .Columns(21).Hidden = False  'Bemerkung
      
       '.Columns("B:O").EntireColumn.AutoFit 'geht so nicht
      
    End With

Wie muss ich den Code veräandern/ergänzen um für jede Zelle eine individuelle länge der Zelle zu erhalten? Gruß

...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

Wie kann man in Excel per VBA abhängig von einem Wert Spalten aus-/einblenden?

Hey. Ich weiß zu diesem Thema gibt es schon ein paar Einträge im Netz. jedoch habe ich es nie für mich umformuliert bekommen. Vielleicht kann mir hier jemand helfen?

In Zelle G6 steht ein Wert von 1-6. Abhängig davon sollen dann immer andere Spalten ausgeblendet werden. Mein Code zur Zeit:

Sub Ausblenden()
'
' Ausblenden Makro
'
' Tastenkombination: Strg+a
'
    If "G6" = "1" Then
                Columns("v:bn").EntireColumn.Hidden = False
                Columns("v:bn").EntireColumn.Hidden = True
            Else
                If "G6" = "2" Then
                    Columns("v:bn").EntireColumn.Hidden = False
                    Columns("ae:bn").EntireColumn.Hidden = True
                Else
                    If "G6" = "3" Then
                        Columns("v:bn").EntireColumn.Hidden = False
                        Columns("an:bn").EntireColumn.Hidden = True
                    Else
                        If "G6" = "4" Then
                            Columns("v:bn").EntireColumn.Hidden = False
                            Columns("aw:bn").EntireColumn.Hidden = True
                        Else
                            If "G6" = "5" Then
                                Columns("v:bn").EntireColumn.Hidden = False
                                Columns("bf:bn").EntireColumn.Hidden = True
                            Else
                                If "G6" = "6" Then
                                    Columns("v:bn").EntireColumn.Hidden = False
                                End If
                            End If
                        End If
                    End If
                End If
    End If
End Sub

Ich bin ein VBA anfänger, also bitte seit nachsichtig x). Danke schon einmal im voraus!

...zur Frage

Bestimmte Excel Spalten mittels Toggle Button ein/ausblenden?

Hallo,

gibt es die Möglichkeit mittels Excel Makro alle Spalten außer folgende mittels eines Buttons auszublenden:

A – E

H – J

M – R

W – Y

AZ – BF

Habe bereits etwas ähnliches, funktioniert aber klarerweise nur mit dem bereich von bis:

rivate Sub ToggleButton1_Click()

If Columns("D:E").EntireColumn.Hidden = False Then

Columns("D:E").EntireColumn.Hidden = True

ElseIf Columns("D:E").EntireColumn.Hidden = True Then

Columns("D:E").EntireColumn.Hidden = False

End If

End Sub

Danke

...zur Frage

Excel VBA Blattschutz Passwort umgangen?

Hallo,

Ich habe folgendes Problem.

Ich habe einen Button mit dem man den Blattschutz de/aktivieren kann.

Jedoch kann man das PW umgehen, indem man einfach das Fenster schliest, indem man das PW eingibt.

Hat da jemand eine ahnung, wie ich das ausbessern kann?

Macro:

Private Sub CommandButton1_Click()

If MsgBox("Blattschutz aufheben/aktivieren?", vbYesNo) = vbYes Then

Else: Exit Sub

[...Aktion ausführen...]

End If

On Error GoTo PW

If ActiveSheet.ProtectContents = True Then

ActiveSheet.Unprotect

' einblenden:

ActiveWindow.DisplayHeadings = True

Else

ActiveSheet.Protect Password:="+1516", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True

' ausblenden:

ActiveWindow.DisplayHeadings = False

End If

Exit Sub

PW:

MsgBox "Falsches Passwort"

End Sub

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen