Office: (Office 2010) VBA Makro - Zeilen je nach Listeneintrag ausblenden

Helfe beim Thema VBA Makro - Zeilen je nach Listeneintrag ausblenden in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hi, ich habe eine kurze Frage, da ich ein totaler Anfänger mit Makros bin. Für die Arbeit habe ich eine Excel Sheet mit Dropdown Auswahllisten... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von cestbeau, 1. November 2015.

  1. VBA Makro - Zeilen je nach Listeneintrag ausblenden


    Hi,

    ich habe eine kurze Frage, da ich ein totaler Anfänger mit Makros bin. Für die Arbeit habe ich eine Excel Sheet mit Dropdown Auswahllisten erstellt. Je nach Auswahl sollen andere Zeilen ein- oder ausgeblendet werden. Hier der Code:

    Jetzt ist aber das Problem, das bei jeder Änderung einer Zeile die komplette Befehlsliste durchgegangen wird. Was für einen Code gibt es, dass wirklich immer nur das eine Feld geprüft wird und nur die entsprechenden Änderungen für die relevanten Felder vorgenommen wird? Sobald man etwas ändert, dauert es ein paar Sekunden eh man was machen kann, weil einfach alles geprüft wird.

    Vielen Dank für eure Ratschläge.
     
    cestbeau, 1. November 2015
    #1
  2. Beverly
    Beverly Erfahrener User
    Hi,

    falls ich dich richtig verstanden habe:

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
        Select Case Target.Address(False, False)
            Case "A12"
                If Target.Value = "Please select a selection method…" Then
                    Rows(13).EntireRow.Hidden = True
                    Target.Offset(1, 0) = "Please select a selection method…"
                Else
                    Rows(13).EntireRow.Hidden = False
                End If
            Case "A15"
                If Target.Value = "Please select a selection method…" Then
                    Rows(16).EntireRow.Hidden = True
                    Target.Offset(1, 0) = "Please select a selection method…"
                Else
                    Rows(16).EntireRow.Hidden = False
                End If
            Case "A21"
                If Target.Value = "Please select a selection method…" Then
                    Range("A22:A25") = "Please select a selection method…"
                    Rows("22:25").EntireRow.Hidden = True
                Else
                    Rows(22).EntireRow.Hidden = False
                End If
            Case "A22", "A23", "A24"
                Rows(Target.Offset(1, 0).Row).EntireRow.Hidden = _
                    Target.Value = "Please select a selection method…"
                If Target.Address(False, False) = "A24" Then Range("A25").ClearContents
            Case "A27"
                If Target.Value = "Please select a selection method…" Then
                    Rows(28).EntireRow.Hidden = True
                    Target.Offset(1, 0) = "Please select a selection method…"
                Else
                    Rows(28).EntireRow.Hidden = False
                End If
        End Select
    End Sub
    
    
    
    

    Sobald eine Zeile ausgeblendet wird, wird auch in die Folgezelle(n) wieder "Please select a selection method…" eingetragen.

    Bis später,
    Karin
     
    Beverly, 2. November 2015
    #2
Thema:

VBA Makro - Zeilen je nach Listeneintrag ausblenden

Die Seite wird geladen...
  1. VBA Makro - Zeilen je nach Listeneintrag ausblenden - Similar Threads - VBA Makro Zeilen

  2. VBA Makro abbrechen durch Inputbox

    in Microsoft Word Hilfe
    VBA Makro abbrechen durch Inputbox: Hallo zusammen, dank Gerhard H aus diesem Forum habe ich das folgende Makro im Einsatz, bei dem eine Spalte einer Tabelle in Word auf einen vom Anwender eingegebenen Begriff durchsucht wird und...
  3. Outlook Termineinladung an festen Kontakt

    in Microsoft Outlook Hilfe
    Outlook Termineinladung an festen Kontakt: Hallo zusammen, ich muss einen bestimmten Kontakt häufig zu einem Termin einladen und würde mir gerne ein paar Klicks sparen. Kann man eine Art Schnellsprung oder vielleicht ein Makro erstellen,...
  4. Blattschutz VBA mit PW und Bedingungen

    in Microsoft Excel Hilfe
    Blattschutz VBA mit PW und Bedingungen: Hallo VBA'ler Kenne mich nicht wirklich mit VBA aus, habe es aber geschafft, eine mit PW geschützte Tabelle via Button zu entsperren und wieder zu sperren. Der Button dient dazu, die gesetzten...
  5. Makro Problem nach Wörtern filtern und Zeilen löschen

    in Microsoft Excel Hilfe
    Makro Problem nach Wörtern filtern und Zeilen löschen: Hallo zusammen! Ich habe ein Makro, dass ich erweitern möchte. Dabei soll in den Daten in der ersten Zeile ein Filter aktiviert werden und alle Datenzeilen löschen, die in Spalte 10 eines von 4...
  6. User Defined Functions (UDF) auch ohne VBA / Makro möglich ?

    in Microsoft Excel Hilfe
    User Defined Functions (UDF) auch ohne VBA / Makro möglich ?: Moin, Ich hab ne ganz einfache Frage, die sich wohl direkt mit Ja oder Nein beantworten läßt. Meine Tabelle ist 450 Zeilen hoch und 365 Spalten breit. *eek.gif* In jeder Zelle ist die gleiche...
  7. VBA Komplette Zeilen löschen mit Autofilter mit Makro

    in Microsoft Excel Hilfe
    VBA Komplette Zeilen löschen mit Autofilter mit Makro: Hallo, ich möchte einen Autofilter in der ersten Zeile anweden, dann in der 12 Spalte nach "B" filtern und anschließend die gefundenen Zeilen entfernen. Bei meinem Versuch löscht mir der Code...
  8. VBA makro - sortieren von Zeilen in 3er Schritten

    in Microsoft Excel Hilfe
    VBA makro - sortieren von Zeilen in 3er Schritten: Hallo, weil sich Anforderungen geändert haben muss ich eine umfangreiche Mappe mit vielen Makros überarbeiten und anpassen. (ich bin schon weit gekommen, aber hier stecke ich fest) In einem...
Schlagworte:
  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