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

Zeilen, Spalten aus und einblenden, eine Zelle sichtbar

Forumthread: Zeilen, Spalten aus und einblenden, eine Zelle sichtbar

Zeilen, Spalten aus und einblenden, eine Zelle sichtbar
05.05.2024 15:18:46
Dieter(Drummer)
Guten Tag an alle …

Mit den zwei Makros werden alle Zeilen und Spalten aus- und wieder eingeblendet, die neben, über und unter der Zelle sind, in der ein Shape ("Ellipse 1") sind befindet. So bleibt nur noch die Zelle mit der Ellipse sichtbar.

Bisher muss allerdings per Code der Aus- und wieder Einblendbereich definiert sein.

Ebenfalls werden auch die Zeilenköpfe, Spaltenköpfe und die Bearbeitungsleiste aus- und wieder einblendet.

Das funktioniert!

Ich suche folgende Lösung:

Egal in welcher Zelle sich das Shape ("Ellipse 1") befindet, sollen die Zeilen und Spalten, die sich neben, über und unter der Zelle sind, aus- und wieder eingeblendet werden können.

Da muss wohl erst ermittelt werden, in welcher Zelle sich das Shape mit entsprechendem Namen befindet, um dann die notwendigen Zeilen und Spalten aus- und wieder einzublenden.

Es fehlt mir das Wissen, dies umzusetzen und Bitte deshalb um Hilfe.
Anbei meine bisherige Beispieldatei.

Gruß,
Dieter(Drummer)
https://www.herber.de/bbs/user/169262.xlsm
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen, Spalten aus und einblenden, eine Zelle sichtbar
05.05.2024 15:37:48
Alwin Weisangler
Hallo Dieter,

beispielhaft: 


Sub ZelleFinden()

    Dim Zelle&

    Zelle = ActiveSheet.Shapes("Ellipse 1").TopLeftCell.Address

End Sub

kannst du die Zelladresse deines Shapes ermitteln. Den Rest hast du ja.

Gruß Uwe
Anzeige
AW: Zeilen, Spalten aus und einblenden, eine Zelle sichtbar
05.05.2024 15:48:55
Alwin Weisangler
Sorry, Tippfehler drin.

Richtig so: 


Sub ZelleFinden()

    Dim Zelle$

    Zelle = ActiveSheet.Shapes("Ellipse 1").TopLeftCell.Address

End Sub


Gruß Uwe
AW: Da komme ich nicht weiter ...
05.05.2024 15:51:54
Dieter(Drummer)
Danke Uwe,

für Rückmeldung.

Da komme ich nicht weiter, da ich nicht weiß, wie ich ich deinen Code einbinden kann, damit ich nicht mehr die Zeilen und Spalten, die aus- und eingblendet werden sollen, im Code hinzerlegn muss.

Evtl. kannst du da nochmal helfen ...

Gruß, Dieter(Drummer)
Anzeige
AW: Da komme ich nicht weiter ...
05.05.2024 18:46:57
Alwin Weisangler
Hallo Dieter,

das wäre ein möglicher Weg: 



Sub ZeilenSpaltenNeu()

    Dim spVor$, spNach$, Zeile&

    spVor = Replace(ActiveSheet.Shapes("Ellipse 1").TopLeftCell.Offset(0, -1).Address, "$", "", 1, 2)

    spNach = Replace(ActiveSheet.Shapes("Ellipse 1").TopLeftCell.Offset(0, 1).Address, "$", "", 1, 2)

    Zeile = ActiveSheet.Shapes("Ellipse 1").TopLeftCell.Row

    If Range("A1:" & spVor & "," & spNach & ":XFD1").EntireColumn.Hidden = False Then

        Range("A1:" & spVor & "," & spNach & ":XFD1").EntireColumn.Hidden = True

    Else

        Range("A1:" & spVor & "," & spNach & ":XFD1").EntireColumn.Hidden = False

    End If

    If Range("1:" & Zeile - 1 & "," & Zeile + 1 & ":1048576").EntireRow.Hidden = False Then

        Range("1:" & Zeile - 1 & "," & Zeile + 1 & ":1048576").EntireRow.Hidden = True

    Else

        Range("1:" & Zeile - 1 & "," & Zeile + 1 & ":1048576").EntireRow.Hidden = False

    End If

End Sub


Gruß Uwe
Anzeige
AW: Da komme ich nicht weiter ...
05.05.2024 18:57:02
Alwin Weisangler
Es ist natürlich keine Fehlerbehandlung drin. Das schaffst du sicherlich selbst.

Gruß Uwe
AW: Das ist absolut prima ...
05.05.2024 19:09:01
Dieter(Drummer)
Hallo Uwe,

... und funktioniert perfekt.
Hätte nicht gedacht, dass es ein so tolles Makro braucht. Ich werde es mir mal richtig durchsehen um es auch versuchen zu verstehen.

Herzlichen Dank Uwe und einen angenehmen Resttag.

Gruß, Dieter(Drummer)
Anzeige
AW: Das ist absolut prima ...
05.05.2024 19:10:31
Alwin Weisangler
Gerne.

Gruß Uwe

Forumthreads zu verwandten Themen

Zeilen aus- / einblenden
Thomas

Hallo,
ich möchte folgendes machen:
Entprechend dem Wert im Feld B3 sollen verschieden Zeilen ein- bzw. aus-geblendet werden.
Steht zum Beispiel im Feld B3 der Wert 1 sollen die Zeilen "B7:B15" ausgeblendet werden
Steht im Feld B3 der Wet 2 sollen die Zeilen "B8:B15" ausgeblende...
11.09.2008 18:24:56
Thread-ID: 1009202
8 Beiträge
Anzeige
Filtern in Zeilen
Andreas

Guten Morgen,
ist es möglich im Excel waagerecht zu filtern? Zum Beispiel sollte in Zeile 2 nach allen Spalten gesucht werden die den Wert "x" enthalten. D.h alle anderen Spalten die nicht dem Suchktrerium entsprechen müssten ausgeblendet werden.
Ist soetwas (ggf ohne Makro) möglich?
07.11.2008 06:20:00
Thread-ID: 1022476
7 Beiträge
Anzeige
Wiedergabe von Werten aus einer Spalte
Werten

Hallo zusammen,
ich habe in einem Tabellenblatt in einer Spalte ca. 16000 Werte stehen (Form: Buchstaben+Zahlenkombinationen (Auftragsnummern)) die beliebig häufig vorkommen können. Es sind aber nur ca. 30 verschiedene Werte. Nun möchte ich in einer automatisierten Ausgabe in einer neuen Sp...
16.01.2009 10:27:00
Thread-ID: 1040456
6 Beiträge
Anzeige
Kann Zeilen, die DA SIND, nicht mehr einblenden!!!
Stephan

Liebe Liste,
habe hier ein Problem, das mich fast verzweifeln läßt!
Ich habe 4 Zeilen am Anfang einer Datei, die sich partout nicht mehr einblenden lassen! Ich kann dort mit den Pfeiltasten der Tastatur hinlaufen, sehe oben in der Wertezeile auch den Wert der Zellen, in denen Inhalt ste...
25.01.2009 12:52:00
Thread-ID: 1043550
11 Beiträge
Anzeige
Spalten-Hintergrundfarbe wiederherstellen
Werner

VBA-Level: befriedigend
Hallo Freunde,
wenn ich in Excel 2007 Dubletten aussondere, erscheinen in mit einer Hintergrundfarbe gefaerbten
Spalten immer weiße Stellen, oft bis zum Ende der Tabelle, und zwar durch die Reihe in allen Spalten.
Dies kann auch bei der Anpassung eines zu...
03.02.2009 08:22:16
Thread-ID: 1046503
3 Beiträge
Zeile automatisch Einblenden
eliewsam

Hallo VBA-Experten,
ich bin auf der Suche nach einem Makro, das von einer beliebigen Zelle aus, die nächste Zeile einblendet, sofern diese ausgeblendet ist.
Vielleicht kann mir hierbei jemand weiterhelfen. Gruß Elie
08.02.2009 18:45:00
Thread-ID: 1048414
2 Beiträge
Spaltenwerte suchen und Info links davon wiedergeb
wiedergeb

Hallo Leute,
ich habe mal wieder eine komische Frage. Ich habe ein Tabellen Blatt indem Werte untereinander angezeigt werden sollen, die zuvor aus einem anderem Blatt in einer Spalte gefunden wurden, die aus Nullwerten und manchmal aus richtigen Zahlen besteht. Die Bedingung ist hier größer...
13.02.2009 10:57:00
Thread-ID: 1050402
4 Beiträge
Zeilennr. in gefilterten und markierten Bereich
Kasimir

Hallo Leute,
ich stehe auf dem Schlauch und weiß ehrlich auch nicht so ganz, ob das was ich realisieren möchte überhaupt geht?
Also, ich filtere über den Autofilter Daten. Bei diesen gefilterten Daten möchte ich danach einen Bereich, also mehrere zusammenhängende Zellen in einer Spalte...
04.04.2009 08:21:59
Thread-ID: 1066813
7 Beiträge
Spalte vor Druck ausblenden/nach Druck einblenden
Gesa

Hallo,
habe nachfolgendes Makro und möchte gerne, dass es erweitert wird und zwar dass bei anwählen des Markos die Spalte D ausgeblendet wird und nach verlassen der Seitenansicht wieder eingeblendet wird.
Geht das?
Für Hilfe bin ich wie immer :-) dankbar..
Sub Druck_KlasseA()...
27.06.2009 15:48:42
Thread-ID: 1084819
4 Beiträge
VBA: Wiederholung von Zahlengruppen in Spalte
Zahlengruppen

Hallo,
ich quäle mich hier mit einem Problem herum, bei dem ich wahrscheinlich eine bessere VBA-Ausbildung
brauchen würde, um es selber lösen zu können. Ich glaube, die Lösung hängt irgendwie mit einem
Array zusammen:
Ich habe eine Spalte mit Zahlen zwischen 0 und 100 und es kom...
28.11.2009 12:47:57
Thread-ID: 1120665
9 Beiträge
Spalten aus-einblenden
Fritz

Hallo, kann mir jemand helfen?
Wie kann ich aus ausgeblendeten Spalten gezielt mit einem Dropdownmenü einzelne Spalten wieder einblenden?
So wie bei "Blatt" aus und einblenden.
Für die Hilfe bereits im Voraus vielen Dank
Gruß
Fritz
29.11.2009 19:59:29
Thread-ID: 1120786
2 Beiträge
Letzte Zeile in neuer Instanz funktioniert nicht!
WOBIK

Hallo Forum,
ich verzweifle an folgendem Problem:
Um eine Arbeitsmappe unsichtbar zu öffnen, erzeuge ich eine neue Instanz via "New Applikation".
Der "einfache" Zugriff darauf funktioniert wunderbar. (Zellen auswerten, kopieren usw.)
Zum ermitteln der letzten Zeile in der andere...
05.02.2010 12:54:45
Thread-ID: 1136137
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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