Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1420to1424
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
1420to1424
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nach Abfrage mit Makro Spalten ein/ausblenden

Nach Abfrage mit Makro Spalten ein/ausblenden
21.04.2015 12:58:25
Compad
Hallo Leute,
versuche schon eine geraume Zeit mit einem Makro und 2 Schaltflächen bestimmte Spalten ein/auszublenden aber meine Abfragebedingungen stimmen irgendwie nicht.
Klicken auf Button1 soll wenn eine Bedingung zutrift die Spalten ausgeblendet werden. Klicken auf Button2 zeigt wieder alle Spalten an (Funktioniert).
  • Sub Schaltfläche1_Klicken()
If P5 = P6 Then
Columns("Q:AA").EntireColumn.Hidden = True
ElseIf Q5 = Q6 Then
Columns("P:P").EntireColumn.Hidden = True
Columns("R:AA").EntireColumn.Hidden = True
ElseIf R5 = R6 Then
Columns("P:Q").EntireColumn.Hidden = True
Columns("S:AA").EntireColumn.Hidden = True
Else
Columns("P:Z").EntireColumn.Hidden = True
End If
End Sub


    Sub Schaltfläche2_Klicken()
Columns("A:AD").EntireColumn.Hidden = False
End Sub

    • Wenn mir jemand helfen könnte wäre ich euch sehr dankbar :-)

    4
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Nach Abfrage mit Makro Spalten ein/ausblenden
    21.04.2015 13:21:24
    Rudi
    Hallo,
    was sind denn P5, P6 etc.?
    oder meinst du
    If Range("P5")=Range("P6") Then
    Gruß
    Rudi

    AW: Nach Abfrage mit Makro Spalten ein/ausblenden
    21.04.2015 15:43:15
    Compad
    Mit P5, P6 meine ich die Zelle also Spalte P Zeile 5 bzw. 6.
    Hoffe ich habe mein Aufgabe verständlich erklärt? Danke für den Hinweis :-)

    AW: Nach Abfrage mit Makro Spalten ein/ausblenden
    21.04.2015 16:15:29
    pweksictul
    Probier mal:
    Sub Schaltfläche1_Klicken()
If Range("P5").Value = Range("P6").Value Then
Columns("Q:AA").EntireColumn.Hidden = True
ElseIf Range("Q5").Value = Range("Q6").Value Then
Columns("P:P").EntireColumn.Hidden = True
Columns("R:AA").EntireColumn.Hidden = True
ElseIf Range("R5").Value = Range("R6").Value Then
Columns("P:Q").EntireColumn.Hidden = True
Columns("S:AA").EntireColumn.Hidden = True
Else Columns("P:Z").EntireColumn.Hidden = True
End If
End Sub

    Anzeige
    AW: Nach Abfrage mit Makro Spalten ein/ausblenden
    21.04.2015 16:33:08
    Compad
    Super das funktioniert, vielen Dank für die schnelle Hilfe.

    306 Forumthreads zu ähnlichen Themen

    VBA Zeilen ein/ausblenden + weiters Problem
    oblivion

    hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
    erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
    10.08.2008 00:22:06
    Thread-ID: 1000558
    3 Beiträge
    Anzeige
    Makro - Zeilen ein- und ausblenden
    WalterK

    Hallo,
    den Code habe ich vor längerer Zeit in einem Forum gefunden und die Bezeichnung "Ein" und "Aus" auf "Privat+Intern Ein" und "Privat+Intern Aus" abgeändert. Noch ist es so, dass über den CommandButton die Zeilen mit den Nichtleeren Zellen in Spalte H aus- oder eingeblendet werden.
    ...
    05.07.2009 11:07:55
    Thread-ID: 1086451
    6 Beiträge
    Automatisch Spalten ausblenden - mit einem Makro?
    Jan

    Hallo nochmal!
    Ich wurde gerade schon einmal in Weltrekordzeit bei meinem anderen Problem geholfen. Vielen herzlichen dank! Nun stehe ich aber erneut vor einer für mich schwierigen Aufgabe. Folgendes Problem:
    Wir sind mehrere Gewerke die an einer Excel Tabelle arbeiten. Die Excel Tabell...
    28.07.2009 15:46:49
    Thread-ID: 1091988
    7 Beiträge
    Anzeige
    bestimmte Spalten ein- und ausblenden (VBA) | Herbers Excel-Forum
    Matthias
    Hi,
    ich bräuchte ein wenig Hilfe zu folgendem Vorhaben:
    In einer Liste, in der Identnummern für eine Maschine verwaltet werden, sollen bestimmte Spalten über ein Auswahlmenü ein- und ausgeblendet werden können. Dabei sollen bei Auswahl einer Maschinenbaugröße (von 110 bis 610) immer drei Sp...
    24.01.2010 16:55:43
    Thread-ID: 1132489
    4 Beiträge
    VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum
    Jonathan
    Hallo liebe Experten,
    ich bräuchte mal wieder etwas Hilfe...
    In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
    Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelk...
    05.02.2010 09:43:46
    Thread-ID: 1136027
    4 Beiträge
    Spalten und Zeilen ausblenden per Makro
    Stefan

    Hallo,
    ich möchte per Makro bestimmte Spalten und Zeilen ausblenden. Der mit dem Makrorcorder erst aufgezeichnete und angepaßte Weg blendet mir dann allerdings alle Spalten und Zeilen aus.
    Kann mir bitte jemand helfen, wie ich den Code schreiben muss?
    Sub Fall2_Spalten_Zeilen_ausb...
    06.04.2010 10:10:32
    Thread-ID: 1150290
    9 Beiträge
    VBA Zeilen ein-/ausblenden
    Daniel

    Hallo
    Ich habe eine Frage, ob der nachfolgende VBA-Code vereinfacht werden kann.
    Ausgangslage: in der Spalte B sind die Auswahlkriterien (3 stellige Nummern: 101, 102, 103, etc.). Nun soll via Makro alle Zeilen einer bestimmte Nummer (z.B. 101) angezeigt werden.
    Ist es möglich, den...
    07.07.2010 10:43:30
    Thread-ID: 1165894
    8 Beiträge
    VBA Problem bei Zeilen ausblenden
    Lorenz

    Hallo Excelspezialisten,
    Leider funktioniert der untenstehende Code nur wenn nach Zeile 97 alle Zeilen eingeblendet sind.
    Ich habe aber ab Zeile 98 alle Zeilen ausgeblendet.
    if Target.Row >= 14 Then
    iZ = Target.Row + 1
    With Range(Cells(iZ, 1), Cells(97, 1))
    .EntireRow...
    28.12.2010 14:15:45
    Thread-ID: 1193064
    8 Beiträge
    Anzeige

    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
    4
    5
    6
    5
    3
    3
    8
    7
    7
    3
    1
    2
    5
    6
    9
    5
    2
    2
    4
    1
    3
    2
    6
    3