Excel - Makro (Hintergrundfarbe)

Dieses Thema im Forum "Anwendungssoftware" wurde erstellt von thug-life, 3. November 2010 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 3. November 2010
    Hallo,
    wollte euch fragen, ob einer von euch eventuell einen Makro für
    Excel kennt, der folgendes bewerkstelligen kann.

    Ich habe eine Tabelle mit mehreren Spalten und Zeilen, und sobald
    ein bestimmtes Wort: "Testversion" in einer Spalte vorkommt, soll die
    gesamte Zeile mit der Hintergrundfarbe gelb gefüllt werden.

    Kann da einer helfen ?

    - Danke !

    greezes: thug-life
     
  3. 3. November 2010
    AW: Excel - Makro (Hintergrundfarbe)

    Bei Excel 2007 musst du dafür die Spalte markieren und dann unter Formatvorlagen -> Bedingte Formatierung kannst du Regeln erstellen unter welchen Umständen was geändert werden soll, u.a. auch die Hintergrundfarbe. Denke bei anderen Excelversionen sollte das so ähnlich sein.

    Hoffe das hilft dir weiter

    //Edit: http://www.tippscout.de/excel-bedingte-formatierung-nutzen_tipp_1389.html
    hier ist es nochmal etwas ausführlicher beschrieben, zwar mit Schriftfarbe anstatt Hintergrundfarbe aber das kannst du ja nach belieben in der Formatierung ändern.
     
  4. 4. November 2010
    AW: Excel - Makro (Hintergrundfarbe)

    Danke, jedoch benutze ich Excel 2003 und wollte auch einen Makro, da ich die Excel-Liste
    Tag für Tag neu ziehe und dann immer diese Einstellung tätigen müsste und alle anderen
    auch ... ist sehr umständlich, desweiteren kann man wie ich gesehen habe nur die Schriftfarbe
    und nicht den Hintergrund damit ändern.

    Jemand der eventuell helfen kann ?

    greezes: thug-life
     
  5. 4. November 2010
    AW: Excel - Makro (Hintergrundfarbe)

    Ich hab jetzt einen Makro gefunden der das tut, wollte nun jedoch noch folgendes hinzufügen:

    - Das noch nach einem Wort in den Spalten gesucht wird und diese Zeile dann mit einer anderen
    Farbe hinterlegt wird.

    Code:
    Sub Prepare_Open_Problem_Report()
 Dim iZeile As Long
 
 Application.ScreenUpdating = False
 
 FirstDelimeter = InStr(1, Range("H2").Value, "-")
 SecondDelimeter = InStr(FirstDelimeter + 1, Range("H2").Value, "-")
 
 If SecondDelimeter = 0 Then
 SecondDelimeter = Len(Range("H2").Value) + 1
 End If
 
 If SecondDelimeter - FirstDelimeter - 1 < 1 Then
 Result = MsgBox("Die Eingabedatei entspricht nicht dem erwarteten Format." + vbCrLf + vbCrLf + "Das Macro wird beendet.", vbCritical + vbOKOnly)
 End
 End If
 
 Area = Mid(Range("H2").Value, FirstDelimeter + 1, SecondDelimeter - FirstDelimeter - 1)

 'Anpassen des Dateinamens Zusatzes Shop, wenn zuerst ein Shared Service Problem gefunden wird.
 If Area = "SHARED SERVICES" Then
 Area = "PARCEL"
 End If
 
 On Error GoTo Finish
 
 ActiveWorkbook.SaveAs Filename:= _
 "C:\temp\Offene Probleme " + Area + " " + Format(Now, "YYMMDD") + ".xls", FileFormat:= _
 xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
 , CreateBackup:=False
 
 On Error GoTo 0
 
 CurrentRow = 2
 
 While Range("A" + Format(CurrentRow)).Value <> ""
 CurrentRow = CurrentRow + 1
 Wend
 
 NumberOfRows = CurrentRow - 1
 
 Columns("B:B").Select
 Selection.Insert Shift:=xlToRight
 
 Columns("L:L").Select
 Selection.Cut
 
 Columns("B:B").Select
 ActiveSheet.Paste
 
 Columns("L:L").Select
 Selection.Delete Shift:=xlToLeft
 
 Columns("F:F").Select
 Selection.Insert Shift:=xlToRight
 
 Columns("H:H").Select
 Selection.Insert Shift:=xlToRight
 
 Range("F1").Select
 ActiveCell.FormulaR1C1 = "Tage seit Aufnahme"
 
 Range("H1").Select
 ActiveCell.FormulaR1C1 = "Tage seit letzter Aenderung"
 
 Range("F2").Select
 
 ActiveCell.FormulaR1C1 = _
 "=TODAY()-(DATE(YEAR(RC[-1]),Month(RC[-1]),DAY(RC[-1])))"
 
 Selection.AutoFill Destination:=Range("F2:F" + Format(NumberOfRows)), Type:=xlFillDefault
 
 Range("F2:F" + Format(NumberOfRows)).Select
 
 Range("H2").Select
 
 
 ActiveCell.FormulaR1C1 = _
 "=TODAY()-(DATE(YEAR(RC[-1]),Month(RC[-1]),DAY(RC[-1])))"
 
 Selection.AutoFill Destination:=Range("H2:H" + Format(NumberOfRows)), Type:=xlFillDefault
 
 Range("H2:H" + Format(NumberOfRows)).Select
 
 Rows("1:1").Select
 Selection.Font.Bold = True
 Selection.AutoFilter
 
 Cells.Select
 Selection.Columns.AutoFit
 
 Selection.Sort Key1:=Range("F2"), Order1:=xlDescending, Key2:=Range("H2") _
 , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
 False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
 :=xlSortNormal
 
 Columns("Q:Q").Select
 Selection.Delete Shift:=xlToLeft
 
 'Spalten mit Zeitangeben in Tagen formatieren
 Columns("F:F").Select
 Selection.NumberFormat = "0"
 Columns("H:H").Select
 Selection.NumberFormat = "0"
 Range("A1").Select
 
 'Zeilen mit nicht zu besprechenden Inhalten
 iZeile = 1
 While iZeile < ActiveSheet.UsedRange.Rows.Count
 If Selection.Offset(iZeile, 2).Value = "Verarbeitet" Then
 Rows(iZeile + 1).Interior.ColorIndex = 35
 ElseIf Selection.Offset(iZeile, 2).Value = "In Auftrag" Then
 Rows(iZeile + 1).Interior.ColorIndex = 4
 ElseIf Selection.Offset(iZeile, 10).Value = "Gekauft" Then
 Rows(iZeile + 1).Interior.ColorIndex = 15
 End If
 iZeile = iZeile + 1
 Wend
 
Finish:
 
 Application.ScreenUpdating = True
 
End Sub
    Kann eventuell da einer helfen ?
     
  6. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.