Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Ausblenden von Linien und Blockpfeilen

Forumthread: Ausblenden von Linien und Blockpfeilen

Ausblenden von Linien und Blockpfeilen
22.01.2009 15:59:32
Linien
Hallo zusammen!
Eine Frage:
Wie ich Drop-Down Felder und Buttons per VBA ausblenden kann ist mir bekannt:
ThisWorkbook.Worksheets("Tabelle1").Shapes("Dropdown 1").Visible = False '(DropDown-Feld)
Sheets("Tabelle1").Buttons(1).Visible = False '(Schaltfläche)
Wie kann ich nun Linien und Autoshapes (Blockpfeile) ausblenden?
(An den einfachsten Dingen hängts immer...)
Danke für eure Hilfe!
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausblenden von Linien und Blockpfeilen
22.01.2009 17:30:52
Linien
Hallo,
mach es doch über den Namen des Objekts.
Beispiel:
Sub Pfeile_Ausblenden()
Dim meObj As Shape
Dim myArea()
Dim iCount As Integer

For Each meObj In ActiveSheet.Shapes
 If (meObj.Name Like "Pfeil nach*") Or (meObj.Name Like "*Verbindung*") Then
  Redim Preserve myArea(iCount)
  myArea(iCount) = meObj.Name
  iCount = iCount + 1
 End If
Next meObj

ActiveSheet.Shapes.Range(myArea).Visible = False
Erase myArea
End Sub

Sub Pfeile_Einblenden()
Dim meObj As Shape
Dim myArea()
Dim iCount As Integer

For Each meObj In ActiveSheet.Shapes
 If (meObj.Name Like "Pfeil nach*") Or (meObj.Name Like "*Verbindung*") Then
  Redim Preserve myArea(iCount)
  myArea(iCount) = meObj.Name
  iCount = iCount + 1
 End If
Next meObj

ActiveSheet.Shapes.Range(myArea).Visible = True
Erase myArea
End Sub


Gruß Tino

Anzeige
AW: Ausblenden von Linien und Blockpfeilen
26.01.2009 12:25:16
Linien
Hallo Tino!
Danke, hat super geklappt,hab ein bischen rumprobiert, sodaß ich bestimmte Blockpfeile und Dropdown-Menus gezielt ansprechen kann und nicht alles ausblende!
Jetzt fehlt mir nur noch 1 Funktion,dann hab ich alles was ich brauche :))
Ich müßte noch ein paar Linien ausblenden.
Wenn ich mit der rechten Maustaste auf eine Linie klicke zeigt Excel mir in der Leiste oben dann ín einem Fall zum Besipiel: "Linie21"
Wie kann ich diese Linie jetzt gezielt ausblenden?
(Mit Shapes funktioniert das nicht)
Danke dir!
Anzeige
AW: Ausblenden von Linien und Blockpfeilen
26.01.2009 15:00:13
Linien
Ok,hat sich alles geklärt!
Ich kann alles ausblenden!
Vielen Dank für deine Antwort, hat mir sehr geholfen!
Gruß Christoph

Forumthreads zu verwandten Themen

Spalten ausblenden wenn Bedingung erfüllt
Thorsten
Hallo zusammen,
Ich habe ein Modell, wo ich in Zeile 2 von Spalte F bis AS sich jeweils Produktnamen befinden können (= maximal 40 Produkte). In den nachfolgenden Zeilen werden dann verschiedene Daten / Produkt abgefragt. (aber das nur zur Info)
Wie kann ich die Spalten automatisch ausblende...
05.12.2023 23:43:18
Thread-ID: 1956661
5 Beiträge
Anzeige
Zeile mit Suchbegriff+2 Zeilen sichtbar
Burghard
Hallo,
ich möchte Zeilen ausblenden, die nicht eine Bedingung erfüllen, mit einer Ergänzung: Wenn der Suchbegiff gefunden wird, soll die Zeile mit dem Suchbegriff sichtbar sein, aber die nachfolgenden zwei Zeilen unter der Suchbegriffszeile sollen ebenfalls sichtbar sein. Der Suchbegriff kommt i...
17.08.2021 22:33:47
Thread-ID: 1843926
9 Beiträge
Drucken aller eingeblendeten Zeilen mit Überschrif
Gernot

Hallo Excel-Gemeinde,
es geht um das Drucken von nicht-ausgeblendeten Zellen. Der Marc hatte mir bereits sehr gut geholfen beim ein- und ausblenden von Zeilen nach einem bestimmten Kriterium.
Die Datei, um die es geht, findet ihr hier:
https://www.herber.de/bbs/user/27607.xls
Die...
18.10.2005 20:15:42
Thread-ID: 683591
1 Beitrag
Anzeige
Suche in Array - Ausblenden
Aloha

Hallo.
Wäre toll wenn mir jemand helfen könnte - bin leider wirklich nur VBA Beginner :(
Ich habe eine Excel-Datei, in die per DDR Schnittstelle regelmässig Daten einfiessen, die ich dann verarbeite/sortiere usw.
Um nur mit erwünschten Datensätzen/Zeilen zu arbeiten , blende ich Zei...
09.02.2015 21:41:11
Thread-ID: 1408292
2 Beiträge
Zeilen in Abhängigkeit einer Bedingung ausblenden
Volker

Hallo zusammen,
ich bekomme trotz intensiver Recherche und meiner Mühen mein Problem nicht gelöst.
Wie hier in einem Archivthreat beschrieben möchte ich alle Zeilen eines Tabellenblatts in Abhängigkeit einer Bedingung ausblenden.
Im Prinzip identisch wie in dieser Beispieldatei:
...
21.11.2017 12:42:51
Thread-ID: 1592654
8 Beiträge
Zeilen ausblenden wenn Bedingung erfüllt ist
Schlandro

Hallo,
ich würde gerne per VBA Zeilen ausblenden wenn in einer bestimmten Zelle (D7) ein bestimmter Wert ausgegeben wird. Heißt wenn beispielsweise XY ausgegeben wird sollen Zeilen 25 bis 30 ausgeblendet werden.
Nun zu meinem Problem, ich habe Schwierigkeiten das "Private Sub" auszuführ...
31.07.2019 14:01:10
Thread-ID: 1705135
18 Beiträge
Zeilen ausblenden mit Bedingung per Makro ohne Button
Elysa1891
Hallo zusammen,
die Basis ist ein Excel-Formular,dass zur Erfassung von Daten zur Reisekostenabrechnung.Dabei gibt es in ZelleB4 ein Drop-down mit der Auswahl(hinterlegt in anderem Tabellenblatt) Reisekosten und Belege ohne Reise.
Ich möchte, dass wenn im Drop-down Belege ohne Reise ausgewä...
22.05.2024 13:37:29
Thread-ID: 1978834
9 Beiträge
Ausblenden leerer Zellen
Gerhard

Hallo,
ich möchte mit Excel ein Formular erstellen, bei dem bestimmte Texte nur unter bestimmten Bedingungen erscheinen.
Wenn ich in den Zellen =Wenn(Bedingung;"Text";"") eingebe, dann nimmt die Zelle dennoch den für den Text vorgesehenen Platz ein. Lässt sich dies vermeiden, z.B. dadur...
21.10.2009 21:35:11
Thread-ID: 1111080
1 Beitrag
Anzeige
Makro mit Autofilter + speichern unter in Schleife
Frank

Hallo zusammen,
ich habe folgendes Makro für eine Togglebox: Private Sub ToggleButton4_Click() Call Blatt_entsperren If CBool(ToggleButton4.Value) Then 'es gibt nur Wahr oder Falsch, daher keine weitere _ Bedingung nötig. Wahr = Ausführung, Falsch = Else ToggleButton4.BackColor = &H80...
19.12.2016 17:11:20
Thread-ID: 1530920
3 Beiträge
Zeilen mit Bedingung ausblenden
AbertTV
Hallo,
Ich hoffe hier kann man mir helfen.
Ich versuche meine Buchführungs-Exceltabelle aufzuwerten. Dafür habe ich pro Monat 216 Zeilen für einträge(4-219), was für mich auf jeden Fall reicht. Anfangs sollen die Zeilen 219-6 augeblendet sein.
Was ich dann zu erreichen versuche, dass sob...
10.01.2022 02:05:53
Thread-ID: 1864677
7 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2026 19:23:24
VBA - Blattschutz lässt sich mit Code nicht ausschalten
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum