Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1656to1660
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1656to1660
1656to1660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen in Abgängigkeit von DropDown ein-/ausblende

Zeilen in Abgängigkeit von DropDown ein-/ausblende
09.11.2018 16:49:28
DropDown
Hallihallo alle,
gibt es eine Möglichkeit Zeilen und/oder Spalten in Abhängigkeit von einer DropDownListe ein- oder auszublenden?
Ich habe in der Spalte E von Zeile 13 bis 102 eine Formel hinterlegt die mir in Abhängigkeit des gewählten Begriffs in der DropDownListe Werte anzeigt. Wenn ich jetzt einen Begriff aussuche werden mir z.B. in Zeile 13 bis 40 Werte angezeigt wegen der Übereinstimmung aber die restlichen bleiben leer. Und genau diese restlichen würde ich sehr gerne ausblenden.
Geht daS?

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen in Abgängigkeit von DropDown ein-/ausblende
09.11.2018 21:13:51
DropDown
Hallo Marc,
ja das geht, lade doch eine aussagekräftige Beispieldatei hoch.
 ABCDEF
1Gruß Sepp
2
3

Anzeige
Beispiel Datei
11.11.2018 13:40:23
Marc
Hi Sepp,
ich habe eine Beispiel Datei angehängt. Wenn jetzt in der Spalte D ab Zeile 13 eine Zeile bis 102 leer sein sollte (ich habe immer 3 Zeilen zusammengefasst), dann soll die Zeile die leer ist und alle nachfolgenden bis 102 ausgeblendet werden. Ich muss noch dazu sagen dass das Blatt gesperrt, aber für Buttons, DropDownListen usw.. offen ist.
https://www.herber.de/bbs/user/125329.xlsx
AW: Beispiel Datei
11.11.2018 14:45:29
Sepp
Hallo Marc,
"Ich habe in der Spalte E von Zeile 13 bis 102 eine Formel hinterlegt die mir in Abhängigkeit des gewählten Begriffs in der DropDownListe Werte anzeigt. Wenn ich jetzt einen Begriff aussuche werden mir z.B. in Zeile 13 bis 40 Werte angezeigt wegen der Übereinstimmung aber die restlichen bleiben leer. Und genau diese restlichen würde ich sehr gerne ausblenden."
Deine Beispieldatei hat damit nun überhaupt nichts zu tun!
Weder Formeln noch Dropdown sind enthalten.
 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: Beispiel Datei
11.11.2018 16:27:37
Sepp
Hallo Marc,
in das Modul der Tabelle.
Microsoft Excel Objekt Tabelle1 
Option Explicit 
 
Private Sub ComboBox1_Change() 
  Dim rngHide As Range, lngRow As Long 
 
  On Error GoTo ErrorHandler 
  Application.ScreenUpdating = False 
   
  With Range("D13:D102") 
    If ComboBox1.Text = "leer" Then 
      .EntireRow.Hidden = False 
      Exit Sub 
    End If 
    .EntireRow.Hidden = True 
    For lngRow = 1 To .Rows.Count Step 3 
      If .Cells(lngRow, 1) <> "" Then 
        If rngHide Is Nothing Then 
          Set rngHide = .Cells(lngRow, 1).MergeArea 
        Else 
          Set rngHide = Union(rngHide, .Cells(lngRow, 1).MergeArea) 
        End If 
      End If 
    Next 
  End With 
   
  If Not rngHide Is Nothing Then rngHide.EntireRow.Hidden = False 
   
ErrorHandler: 
  Application.ScreenUpdating = True 
  Set rngHide = Nothing 
End Sub 


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: Beispiel Datei
11.11.2018 17:07:50
Marc
Vielen Dank Sepp das klappt und es viel schneller als meine eigene Lösung mit der bedingten Formatierung. Ich habe mit einer BedingtenFormatierung alles weiß machen lassen aber dabei hat der Rechner viel gearbeitet. Danke
Kann man das auch auf Spalten erweitern? Wenn ich nämlich in der Dropdown ein Produkt auswähle wird mir in der Zeile D ein vorher definierter Text angezeigt wie es auch aktuell ist. In der Zelle J1 wird mir dazu noch eine Zahl angezeigt die sich je nach Dropdown wahl ändert. Aktuell steht 4 da, wenn das der Fall ist sollen mir 4 Blöcke angezeigt und die anderen ausgeblendet werden.
https://www.herber.de/bbs/user/125335.xlsm
Anzeige
AW: Beispiel Datei
11.11.2018 17:27:42
Sepp
Hallo Marc,
Microsoft Excel Objekt Tabelle1 
Option Explicit 
 
Private Sub ComboBox1_Change() 
  Dim rngHide As Range, rngColHide As Range, lngRow As Long, lngCount As Long 
  
  On Error GoTo ErrorHandler 
  Application.ScreenUpdating = False 
    
  With Range("D13:D102") 
    If ComboBox1.Text = "leer" Then 
      .EntireRow.Hidden = False 
      Range("K1:CB1").EntireColumn.Hidden = False 
    Else 
      .EntireRow.Hidden = True 
      For lngRow = 1 To .Rows.Count Step 3 
        If .Cells(lngRow, 1) <> "" Then 
          If rngHide Is Nothing Then 
            Set rngHide = .Cells(lngRow, 1).MergeArea 
          Else 
            Set rngHide = Union(rngHide, .Cells(lngRow, 1).MergeArea) 
          End If 
        End If 
      Next 
      Range("K1:CA1").EntireColumn.Hidden = True 
      lngCount = Range("J1") * 7 
      Range("K1").Resize(1, lngCount).EntireColumn.Hidden = False 
    End If 
  End With 
    
  If Not rngHide Is Nothing Then rngHide.EntireRow.Hidden = False 
    
ErrorHandler: 
  Application.ScreenUpdating = True 
  Set rngHide = Nothing 
End Sub 
 


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
Besser so!
11.11.2018 17:28:42
Sepp
Microsoft Excel Objekt Tabelle1 
Option Explicit 
 
Private Sub ComboBox1_Change() 
  Dim rngHide As Range, rngColHide As Range, lngRow As Long, lngCount As Long 
  
  On Error GoTo ErrorHandler 
  Application.ScreenUpdating = False 
    
  With Range("D13:D102") 
    If ComboBox1.Text = "leer" Then 
      .EntireRow.Hidden = False 
      Range("K1:CB1").EntireColumn.Hidden = False 
    Else 
      .EntireRow.Hidden = True 
      For lngRow = 1 To .Rows.Count Step 3 
        If .Cells(lngRow, 1) <> "" Then 
          If rngHide Is Nothing Then 
            Set rngHide = .Cells(lngRow, 1).MergeArea 
          Else 
            Set rngHide = Union(rngHide, .Cells(lngRow, 1).MergeArea) 
          End If 
        End If 
      Next 
      If IsNumeric(Range("J1")) Then 
        Range("K1:CA1").EntireColumn.Hidden = True 
        lngCount = Range("J1") * 7 
        Range("K1").Resize(1, lngCount).EntireColumn.Hidden = False 
      End If 
    End If 
  End With 
    
  If Not rngHide Is Nothing Then rngHide.EntireRow.Hidden = False 
    
ErrorHandler: 
  Application.ScreenUpdating = True 
  Set rngHide = Nothing 
End Sub 
 


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
Besten Dank Sepp
11.11.2018 17:57:55
MaRc
Danke Sepp =) ich weiß zwar nicht was anders sein soll als bei dem ersten Code aber beides funktioniert super ^^

299 Forumthreads zu ähnlichen Themen

Dropdown in Exel
Johannes

Moin moin,
vielleicht kann mir jemand helfen, das folgende Problem zu lösen:
in eine Excel-Dateileiste soll eine Dropdown-Funktion in die Felder der obersten Leiste eingefügt werden.
Z. B. bei Mitarbeiter: a) männlich
b) weiblich
und
z. B. Schulabschluss a) Hauptsch...
22.08.2008 12:42:00
Thread-ID: 1003814
3 Beiträge
Anzeige
DropDown Auswahl in Zelle
Lars

Hallo,
ich würde gerne in einer Zelle eine DropDown-Auswahl zur verfügung stellen, wenn die Zelle aktiviert wird. Die Liste soll enthalten "Wartung", "Stillstand" sowie ein Feld zur Freitexteingabe.
Irgendwie stehe ich gerade vor einem Rätsel.
kann mir jemand helfen?
Danke
G...
01.10.2008 13:01:00
Thread-ID: 1013606
6 Beiträge
Dropdown Auswahlfeld über INDIREKT ansprechen
Thomas

Hallo und einen schönen Tag
Könntet ihr mir mal hilfreich in die Seite treten?
INDIREKT: ich bekomme es einfach nicht hin.
Ich möchte ein Dropdown Auswahlfeld über INDIREKT ansprechen.
Aber so eins wo der Pfeil immer sichtbar ist.
Habe die Datei mal mit hochgeladen.
Wär...
10.11.2008 14:53:21
Thread-ID: 1023207
6 Beiträge
Anzeige
Spez. Dropdown-Zuordnungen in Comboboxen
Lenhard

Moin Moin Excellianer!!
Alle Ausführungen habe ich auch direkt in meine Beispieldatei reingeschrieben.
Aber hier auch noch mal:
Im Dropdown der ComboBox1 sollen als Liste die Einträge der Zeile 1 von links nach rechts aus der Tabelle1 erscheinen (Kategorie A, Kategorie B, Kategorie...
09.12.2008 11:24:55
Thread-ID: 1031295
5 Beiträge
Adressen aus Excel mit Dropdown in Word
Tom

Hallo,
ich suche eine Möglichkeit, ExcelAdressdaten in einen Wordbrief per Dropdown zu übernehmen.
Im Moment habe ich es mehr schlecht als recht so gelöst: https://www.herber.de/bbs/user/57961.xls
Ich möchte praktisch die Daten von der ARbeitsmappe "Gesellschaften" so hinterlegen, d...
30.12.2008 13:27:52
Thread-ID: 1035970
4 Beiträge
Namen via Dropdown definieren
J.

Hallo zusammen!
Folgendes Problem: Habe eine Wertliste mit den Werten 125%, 100%, 75%. Diese sollen via Dropdown ausgewählt werden. Das kriege ich auch noch hin. Aber ich möchte, dass die Auswahl einem Name ("case") zugeordnet wird. Denn dieser wird dann ein div. Formeln verwendet werden.
22.01.2009 10:28:00
Thread-ID: 1042477
2 Beiträge
Dropdown Liste aus einem seperaten Arbeitsblatt
0ogni0

Hallo und Hilfe
Ich möchte eine Liste aus einem anderen Arbeitsblatt oder einer anderen Mappe als Dropdown Zelle erstellen.
Ist das möglich und wenn ja wie?
Gruß und Dank
Ingo
23.02.2009 11:55:09
Thread-ID: 1053023
3 Beiträge
Dropdown in Acrobat übernehmen
Thomas

Hallo zusammen
Ich habe eine schöne Schaltzentrale gebastelt, welche die Daten aus meinem Kundenverwaltungsprogramm automatisch in Excel übernimmt und von dort aus dann wieder PDF Dateien mit Inhalt generiert werden. Ich hänge nur noch an einem einzigen Punktz ;(
Set fieldObj = jsObj.ge...
26.02.2009 16:21:24
Thread-ID: 1054447
9 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
5
5
11
4
3
1
2
8
1
1
6
10
1
2
3
1
3
16
4
3
6
1
4