Office: (Office 365) Zeilen ausblenden

Helfe beim Thema Zeilen ausblenden in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, ich habe hier eine Tabelle wo ich gerne immer automatisch die ganze Zeile ausgeblendet habe wo F R E I L O S steht. Ich mache es momentan über... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von mleo08179, 18. März 2023.

  1. mleo08179 Neuer User

    Zeilen ausblenden


    Hallo,

    ich habe hier eine Tabelle wo ich gerne immer automatisch die ganze Zeile ausgeblendet habe wo F R E I L O S steht.

    Ich mache es momentan über ein Macro und einen Button bei jeder Änderung sind die F R E I L O S E wieder zu sehen und ich muss wieder per Button sortieren.

    Ist das möglich das die einfach immer ausgeblendet sind.

    LG
     
    mleo08179, 18. März 2023
    #1
  2. Klaus-Dieter Erfahrener User
    Hallo,

    nicht das ich etwas gegen die Verwendung von Makros habe. Aber in deinem Fall ist das mit Kanonen auf Spatzen geschossen, du kannst dein Problem ganz einfach mit dem Autofilter lösen.
     
    Klaus-Dieter, 18. März 2023
    #2
  3. mleo08179 Neuer User
    Hallo Dieter,

    danke für die schnelle Antwort. Habe es mit dem Autofilter auch schon versucht aber da muss ich auch immer wieder manuell Filtern wenn neue Einträge kommen bzw die Tabelle sich ändert oder mache ich da was falsch und das sollte automatisch gehen wie der Name eigentlich schon sagt.

    Lg
     
    mleo08179, 18. März 2023
    #3
  4. d'r Bastler
    d'r Bastler hat Ahnung

    Zeilen ausblenden

    Moin mleo,

    so ganz von allein kommen ausgeblendete Zeilen nicht wieder.
    Das Makro in Deiner Beispielmappe funktioniert schon mal deshalb nicht, weil ein Syntaxfehler vorliegt. Hast Du irgendein zweites Makro, das z.B. auf einen Change-Event reagiert?

    Grüße
     
    d'r Bastler, 18. März 2023
    #4
  5. mleo08179 Neuer User
    Hallo,

    hmm ja das hab ich noch laufen, bzw hab ich probiert funktioniert aber nicht.

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
       Sheets("Statistik").AutoFilter.ApplyFilter
    End Sub
    und mit diesem hier kann ich die Zeilen über einen Button ausblenden

    Code:
    Sub UnhideCells()
        Dim cell As Range
        For Each cell In ActiveSheet.UsedRange
            If cell.EntireRow.Hidden = True Then
                cell.EntireRow.Hidden = False
            End If
        Next cell
    End Sub
    
    Lg
     
    mleo08179, 18. März 2023
    #5
  6. Klaus-Dieter Erfahrener User
    Hallo,

    wenn es schon Makros sein müssen, dann versuche es mal damit:

    Code:
    Option Explicit
    
    Private Sub Worksheet_Change(ByVal Target As Range)
        If Cells(Target.Row, 8) = "F R E I L O S" Then Rows(Target.Row).Hidden = True
    End Sub
    
    
    Sub einblenden()
        Cells.EntireRow.Hidden = False
    End Sub
    Wobei du das zweite Makro (einblenden) auf eine Schaltfläche legen kannst. Das erste reagiert auf die Eingabe direkt im Tabellenblatt. Warum du dir das Leben mit dem gesperrt geschriebenen Wort unnütz erschwerst, kann ich nicht nachvollziehen.
     
    Klaus-Dieter, 18. März 2023
    #6
  7. d'r Bastler
    d'r Bastler hat Ahnung
    Dann versuchs mal damit:
    Code:
    Option Explicit
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i As Integer, r As Integer
    Dim sKey As String
    
    With ActiveSheet
        r = .UsedRange.Rows.Count
        sKey = "Freilos" 'ANPASSEN
    
        For i = 1 To r
            If .Cells(i, 1) = sKey Then 'SPALTE ANPASSEN
                .Rows(i).EntireRow.Hidden = True
            End If
        Next i
    End With
    End Sub
    Grüße
     
    d'r Bastler, 18. März 2023
    #7
  8. Klaus-Dieter Erfahrener User

    Zeilen ausblenden

    Hallo,

    versuche es mal so:

    Code:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i As Integer
    Dim sKey As String
    sKey = "F R E I L O S" 'ANPASSEN
    
    With ActiveSheet
        For i = 1 To .UsedRange.Rows.Count
            If .Cells(i, 8) = sKey Then 'SPALTE ANPASSEN
                .Rows(i).EntireRow.Hidden = True
            End If
        Next i
    End With
    End Sub
    
     
    Zuletzt bearbeitet: 18. März 2023
    Klaus-Dieter, 18. März 2023
    #8
    1 Person gefällt das.
  9. d'r Bastler
    d'r Bastler hat Ahnung
    Ach KD ... Wenn Du solche Spitzfindigkeiten zur Profilierung brauchst ... LOL
     
    Zuletzt bearbeitet: 18. März 2023
    d'r Bastler, 18. März 2023
    #9
  10. mleo08179 Neuer User
    Danke für eure Hilfe :-) aber ich glaub ich bin zu blöd dafür.

    Ich hab jetzt beide Codes probiert. Tut sich nichts.

    Hab mit rechter Maus auf das Tabellenblatt geklickt -> Code anzeigen und ihn dort eingefügt.
     
    mleo08179, 18. März 2023
    #10
  11. d'r Bastler
    d'r Bastler hat Ahnung
    Auch angepasst? Mein Code sucht in Spalte 1 nach "Freilos", was in Deiner Tabelle natürlich nicht gefunden wird. Klaus-Dieter hat das in seinem Code schon für Dich getan.

    Das mit den gesperrten Großbuchstaben ist auch meiner Ansicht ein unnötige Hürde, die Du vermeiden solltest. Oder ganz anders: Hier gibt es eine Benutzer-freundliche Technik, die ebenfalls zielführend ist.

    Grüße
     
    d'r Bastler, 18. März 2023
    #11
    1 Person gefällt das.
  12. d'r Bastler
    d'r Bastler hat Ahnung
    Bekommst Du eine Fehlermeldung oder passiert garnichts? Beide Codes hier reagieren auf SelectionChange und fragen Deine Suchwörter ab. Der Code hinter meinem Link von eben reagiert einfach auf Doppelklick.

    Grüße
     
    d'r Bastler, 18. März 2023
    #12
  13. mleo08179 Neuer User

    Zeilen ausblenden

    Dankeschön, werde ich dann gleich testen.

    lg
     
    mleo08179, 18. März 2023
    #13
  14. Klaus-Dieter Erfahrener User
    Hallo,

    wenn du die Quelltexte von mir in das Modul des Tabellenblattes eingefügt hast, müsste das erste Makro auf die Eingabe:
    F R E I L O S in die Spalte H reagieren. Das heißt, die Eingabe müsste durch [Enter] abgeschlossen werden.
    Das zweite Makro müsste mit einer Schaltfläche oder einen anderen Objekt verbunden sein, das bei Mausklick das Makro an startet.
     
    Klaus-Dieter, 18. März 2023
    #14
  15. mleo08179 Neuer User
    Danke für deine Hilfe aber glaub bei mir funktioniert das nicht, weil ich dort Formeln drin habe und wenn ich dort rein klicke sind die weg. und den anderen Code hab ich auch probiert :-(

    lg
     
    mleo08179, 18. März 2023
    #15
Thema:

Zeilen ausblenden

Die Seite wird geladen...
  1. Zeilen ausblenden - Similar Threads - Zeilen ausblenden

  2. Zeilen ein/ausblenden mit Checkbox

    in Microsoft Excel Hilfe
    Zeilen ein/ausblenden mit Checkbox: Guten Tag, in einem Excel sollen je nach aktivierter Checkbox die Zeilen mit bestimmten Inhalten ein- bzw. ausgeblendet werden. Die Abkürzungen stehen für Niederlassungen / Bereiche. Für alle...
  3. Zeile ausblenden anhand bestimmter Werte

    in Microsoft Excel Hilfe
    Zeile ausblenden anhand bestimmter Werte: Hallo Community! Ich habe mal wieder ein Excel- bzw. VBA-Problem *:)* Da ich mithilfe von Google leider nicht weitergekommen bin, habe ich mich entschlossen, mich in diesem Forum anzumelden *:)*...
  4. Pivot - einzelne Zeilen ausblenden

    in Microsoft Excel Hilfe
    Pivot - einzelne Zeilen ausblenden: Moin zusammen, ich arbeite aktuell an einer Kontaktliste (bspw.: Name, Telefonnummer, Fax, Adresse in der Reihenfolge). Nun stellt sich mir folgendes Problem: Ich hab Kontakte, die haben keine...
  5. Zeile Ausblenden wenn Bedingung erfüllt ist

    in Microsoft Excel Hilfe
    Zeile Ausblenden wenn Bedingung erfüllt ist: Guten Morgen, ich habe mir schon vieles durchgelesen - finde aber leider nicht das passende für mich. Ich habe auch eine Excel Mappe mit Kundenanfragen. Um die Mappe übersichtlich zu halten...
  6. Zeilen an Bedingung geknüpft ein- oder ausblenden

    in Microsoft Excel Hilfe
    Zeilen an Bedingung geknüpft ein- oder ausblenden: Guten Morgen zusammen, ich bin seit dieser Woche etwas am Verzweifeln.. Ich bin dabei für meine Kollegen eine neue Eingabemaske für ein Prüfprotokoll in Excel zu bauen, bzw. die meines Vorgängers...
  7. Zeile ausblenden wenn bestimmter Wert in Spalte

    in Microsoft Excel Hilfe
    Zeile ausblenden wenn bestimmter Wert in Spalte: Hey, Ich bin gerade dabei ein Excel zu bearbeiten, dass alle Zeilen zwischen 15 und 100 ausblenden soll, welche in Spalte 3 jeweils ein Nein haben. Leider habe ich keinen Code bisher gefunden...
  8. Zeilen ausblenden bei bestimmten Wert

    in Microsoft Excel Hilfe
    Zeilen ausblenden bei bestimmten Wert: Hallo, über VBA lasse ich Zeilen ausblenden, wenn in einer Zelle ein bestimmter Wert steht. In meinem Fall Ausblenden bei <60000. Prinzipiell funktioniert der verwendete Code: Private Sub...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden