ich würde gerne mit einem Makro die Zeile 25 ausblenden, wenn in der Zelle B27 ein Wert drinnen steht der größer als 0 ist.
Leider habe ich keine Ahnung wie ich das machen kann.
Vielen lieben Dank im Voraus für eure Hilfe
Grüße
Patricia
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Rows("25:25").EntireRow.Hidden = Range("B25")
nur das einblenden der Zeile mus wieder von Hand erfolgen.
Gruß Hajo
Sub T()
If IsNumeric(Range("B27")) and Range("B27").Value > 0 Then
Rows(25).Hidden = True
Else
Rows(25).Hidden = False
End if
End Sub
Gruß
Chris
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$27" Then
If IsNumeric(Target.Value) And Target.Value > 0 Then
Rows(25).Hidden = True
Else
Rows(25).Hidden = False
End If
End If
End Sub
Das Makro kommt in das entsprechende Tabellenmodul im VBA-Editor (Alt+F11) (z.B. Tabelle1, da wo es eben laufen soll)
Gruß
Chris
Um in Excel eine Zeile auszublenden, wenn in einer bestimmten Zelle ein Wert größer als 0 steht, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
Öffne den VBA-Editor:
Alt + F11 in Excel.Finde das richtige Tabellenmodul:
Füge den folgenden Code ein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$27" Then
If IsNumeric(Target.Value) And Target.Value > 0 Then
Rows(25).Hidden = True
Else
Rows(25).Hidden = False
End If
End If
End Sub
Schließe den VBA-Editor:
Code funktioniert nicht: Stelle sicher, dass du den Code im richtigen Tabellenmodul eingefügt hast. Der Code sollte in dem Modul der Tabelle stehen, wo sich die Zelle B27 befindet.
Zeile wird nicht ausgeblendet: Überprüfe, ob der Wert in B27 tatsächlich größer als 0 ist und ob die Zelle als Zahl formatiert ist.
Eingabe in ausgeblendeter Zeile: Wenn du in einer ausgeblendeten Zeile Werte eingeben möchtest, musst du die Zeile zuerst wieder einblenden, um die Eingabe vorzunehmen.
Wenn du keine VBA-Lösungen verwenden möchtest, kannst du auch bedingte Formatierungen nutzen, um den Inhalt einer Zeile visuell auszublenden:
Markiere die Zeile:
Gehe zu „Bedingte Formatierung“:
Gib die Formel ein:
=B27>0
Wähle die Formatierung:
Diese Methode blendet die Zeile nicht physisch aus, sondern macht sie nur unsichtbar.
Hier ist ein praktisches Beispiel für das Ausblenden von Zeilen in Excel:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$27" Then
If IsNumeric(Target.Value) And Target.Value > 0 Then
Rows(25).Hidden = True
Else
Rows(25).Hidden = False
End If
End If
End SubAutomatisierung: Du kannst den VBA-Code erweitern, um mehrere Zeilen basierend auf verschiedenen Zellen auszublenden.
Fehlerbehandlung: Füge eine Fehlerbehandlung im VBA-Code hinzu, um mögliche Laufzeitfehler abzufangen.
Zeilen nach Inhalt ausblenden: Verwende ähnliche Logik, um Zeilen mit bestimmten Inhalten auszublenden, indem du den Zellinhalt überprüfst.
1. Wie kann ich mehrere Zeilen gleichzeitig ausblenden?
Du kannst die Zeilen in der Rows-Anweisung angeben, wie Rows("25:30").Hidden = True.
2. Funktioniert das auch in Excel Online?
VBA ist in Excel Online nicht verfügbar. Du musst die Desktop-Version verwenden.
3. Was passiert, wenn ich eine Formel in B27 eingebe?
Wenn B27 eine Formel enthält, die einen Wert größer als 0 zurückgibt, wird die Zeile ebenfalls ausgeblendet.