VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Über bedingte Formatierung Hintergrundfarbe bei Zelleingabe ändern

Gruppe

Feature

Bereich

Bedingt

Thema

Über bedingte Formatierung Hintergrundfarbe bei Zelleingabe ändern

Problem

Bei der Eingabe einer 7 in Spalte A sollen die sieben Zellen rechts der Eingabezelle mit der Hintergrundfarbe gelb belegt werden.

Lösung

Formel für die bedingte Formatierung: =$A1=7




StandardModule: basMain

Sub MehrSeitenDruck()
   Dim rngSource As Range, rngTarget As Range
   Dim iPage As Integer
   Set rngSource = Worksheets("Quellblatt").Range("A1").CurrentRegion
   Set rngTarget = Range("A2:F59")
   For iPage = 1 To rngSource.Rows.Count Step 58
      rngTarget.ClearContents
      rngTarget.Value = rngSource.Range( _
         rngSource.Cells(iPage, 1), _
         rngSource.Cells(iPage + 58 - 1, 6)).Value
      ActiveSheet.PrintPreview
   Next iPage
   rngTarget.ClearContents
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Feature und Bedingt