Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Bedingte Formatierung

Bedingte Formatierung
10.02.2005 22:22:17
Walt
Guten Tag!
Folgendes Problem.
Ich suche nach einer Möglichkheit die Zeilenhöhe zu verändern, wenn bestimmte Bedingungen erfüllt sind(bedingte Formatierung erlaubt mir leider nicht den Schriftgrad zu verändern).
Sollte dies nicht machbar sein, suche ich eine Lösung, die mir erlaubt leere Zeilen automatisch ausblenden lassen.
Hat jemand eine Idee?
MfG
Walt
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung
Ulf
Was für eine Bedingung ist das und wodurch wird sie ausgelöst(Eingabe, Berechnung)?
Ulf
AW: Bedingte Formatierung
11.02.2005 08:31:12
werner
Beispiel für Range "B1" bis "Bxx"
Makro um die Zeilenhöhe automatisch zu verändern.
Wenn in dem Range" B1" - "Bxx" der Wert 1 eingetragen wird, dann wird die Zeilenhöhe verändert
Folgende Makros sind notwendig um die Zeilenhöhe in der Column "b" zu verändern

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Falls Column "B" (=2) verändert wird, dann Makro Zeilenhöhe aufrufen
If ActiveCell.Column = 2 Then Zeilenhöhe
End Sub

'Makro Module 1:
'Definitionen
Public intZeilenHöheCelleB As Integer
'bei Open die aktuelle Zeilenhöhe Zelle "B1" zwischenspeichern
Sub auto_open()

intZeilenHöheCelleB = Range("b1").RowHeight
End Sub
'wird aufgerufen wenn in derColumn "B" eine Veränderung auftritt
Sub Zeilenhöhe()

If ActiveCell = "1" Then 'prüfen auf Wert "1"
ActiveCell.RowHeight = 20.75
Else
ActiveCell.RowHeight = intZeilenHöheCelleB
End If
End Sub
(Falls interesiert so kann ich die Arbeitsmappe zusenden)
Anzeige
AW: Bedingte Formatierung
12.02.2005 00:04:02
Walt
Hallo Werner,
mein Problem habe ich ganz einfach mit einem AutoFilter gelößt.
Es werden nur "Nichtleere" Zeilen angezeigt.
Trotzdem Danke und schönen Tag noch.
Walt.
AW: Bedingte Formatierung
11.02.2005 19:28:04
Walt
Hallo Ulf!
Die Bedingung ist das Vorhandensein einer positiven Zahl größer 0 in einer Zeile.
Die Daten werden aus einer Tabelle übernommen und stehen grundsätzlich in einer Zeile. Zwischen den beschriebenen Zeilen entstehen Lücken aus mehreren Zeilen die keine Daten beibehalten, aber ich kann nicht vorhersagen wie groß diese Lücken sein werden. Beispiele: Zellen A7, A12, A14, A17, A251, A303.. .
Ich möchte gerne diese Daten übersichtlicher darstellen und auf ein Blatt packen.
MfG
Walt
Anzeige
AW: Bedingte Formatierung
11.02.2005 20:02:16
Walt
Guten Tag Werner,

Ich greife auf Dein Angebot zurück
"Falls interessiert so kann ich die Arbeitsmappe zusenden".
Hier ist meine E-Mail:
Gravitation2@freenet.de
Ich habe leider wenig Erfahrung mit dem Schreiben von Makros.
Meistens arbeite ich mit WENN, DANN Formel.
Kann man übrigens die Schriftfarben mit WENN-Bedingungen ändern?
(Die bedingte Formatierung erlaubt nur max 3 Bedingungen, WENN-Funktion bis zu 7).
So kann z.B. 7 Grundfarben ihre Farbe zuordnen.
MfG
Walt
Anzeige
;
Anzeige

Infobox / Tutorial

Bedingte Formatierung und Zeilenhöhe in Excel


Schritt-für-Schritt-Anleitung

Um die Zeilenhöhe in Excel basierend auf bestimmten Bedingungen zu ändern, kannst du ein Makro verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke im linken Bereich mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsm)".
    • Wähle "Einfügen" und dann "Modul".
  3. Füge den folgenden Code ein:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       If ActiveCell.Column = 2 Then Zeilenhöhe
    End Sub
    
    Public intZeilenHöheCelleB As Integer
    
    Sub auto_open()
       intZeilenHöheCelleB = Range("B1").RowHeight
    End Sub
    
    Sub Zeilenhöhe()
       If ActiveCell = "1" Then
           ActiveCell.RowHeight = 20.75
       Else
           ActiveCell.RowHeight = intZeilenHöheCelleB
       End If
    End Sub
  4. Speichere die Arbeitsmappe als Makro-fähige Excel-Datei (*.xlsm).

  5. Schließe den VBA-Editor und teste das Makro, indem du in die Spalte B eine "1" eingibst.


Häufige Fehler und Lösungen

  • Fehler: Das Makro wird nicht ausgeführt.

    • Lösung: Stelle sicher, dass die Makros in den Excel-Optionen aktiviert sind.
  • Fehler: Die Zeilenhöhe ändert sich nicht.

    • Lösung: Überprüfe, ob du in der richtigen Spalte arbeitest (Spalte B).
  • Fehler: Der Code funktioniert nur für eine Bedingung.

    • Lösung: Du kannst mehrere Bedingungen in dein Makro integrieren, indem du weitere If-Abfragen hinzufügst.

Alternative Methoden

Wenn du nicht mit Makros arbeiten möchtest, gibt es auch alternative Methoden:

  • AutoFilter: Du kannst den AutoFilter verwenden, um nur nicht-leere Zeilen anzuzeigen. Gehe zu "Daten" > "Filter" > "AutoFilter" und wähle die gewünschten Kriterien aus.

  • Bedingte Formatierung: Auch wenn die bedingte Formatierung in Excel nur maximal 3 Bedingungen unterstützt, kannst du die Schriftfarbe oder den Hintergrund ändern, um bestimmte Zellen hervorzuheben.


Praktische Beispiele

Hier sind einige praktische Beispiele, wie die genannten Methoden angewendet werden können:

  1. AutoFilter:

    • Gehe zu "Daten" > "Filter" > "AutoFilter".
    • Wähle die Spalte aus, die du filtern möchtest, und aktiviere den Filter für nicht-leere Zellen.
  2. Bedingte Formatierung:

    • Markiere die Zellen in Spalte B.
    • Wähle "Start" > "Bedingte Formatierung" > "Neue Regel".
    • Wähle "Zellen formatieren, die enthalten" und definiere deine Bedingungen.

Tipps für Profis

  • Du kannst die WENN-Funktion nutzen, um komplexe Bedingungen zu erstellen. Zum Beispiel:

    =WENN(B1 > 0; "Bedingung erfüllt"; "Bedingung nicht erfüllt")
  • Wenn du mehrere Schriftfarben basierend auf verschiedenen Bedingungen ändern möchtest, kannst du die bedingte Formatierung mit den WENN-Funktionen kombinieren, um mehr Kontrolle zu erhalten.


FAQ: Häufige Fragen

1. Kann ich die Schriftfarben mit WENN-Bedingungen ändern?
Ja, du kannst die Schriftfarben mit der bedingten Formatierung ändern. Du kannst jedoch maximal 3 Bedingungen gleichzeitig anwenden.

2. Was mache ich, wenn ich mit Makros nicht vertraut bin?
Es empfiehlt sich, Tutorials zu VBA-Programmierung zu lesen oder einfache Makros auszuprobieren, um ein besseres Verständnis zu bekommen.

3. Gibt es eine Möglichkeit, die Zeilenhöhe für mehrere Zellen auf einmal zu ändern?
Ja, du kannst das Makro anpassen, um die Zeilenhöhe für einen bestimmten Bereich zu ändern, anstatt nur für die aktive Zelle.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige