Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 13:54:06
Multiplikation
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
16.04.2024 12:01:17
Dynamische Liste generiert aus mehreren Vorgagen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1308to1312
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
1308to1312
1308to1312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zellen/Spalten ausblenden

VBA Zellen/Spalten ausblenden
23.04.2013 15:02:55
Philipp
Hi zusammen,
Ich möchte bestimmte Zellen und Spalten automatisch ein und ausblenden, je nachdem wie die oben eingegeben Werte sind. Eine Beispieldatei findet ihr hier:

Die Datei https://www.herber.de/bbs/user/85017.xlsx wurde aus Datenschutzgründen gelöscht


Zur Besipieldatei: Excel soll lediglich die grünen Zellen anzeigen, diese Decken sich mit den zuvor getätigten Eingaben. Alle anderen Spalten solle nausgeblednet werden.
Ich bin leider der totale VBA Anfänger und finde aktuell keinerlei Ansatz :(
Hoffe ihr könnt mir Helfen!
Besten Dank im Vorraus!

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zellen/Spalten ausblenden
23.04.2013 15:29:39
Klaus
Hi,
in deiner Datei steht eine andere Aufgabe als in deinem Beitrag.
Aufgabe aus Beitrag:
Rückfrage: woher weiss Excel, welche Zeilen / Spalten ausgeblendet werden sollen? Aus der Datei würde ich schließen, alle Zeilen ausblenden in denen in Spalte B das Wort "Wigg" steht. Korrekt?
Was bedeutet "automatisch" für dich ... bei jeder Aktion, bei jeder Berechung, bei Click auf einen Button, bei start der Datei ....
Aufgabe aus Datei:
schreibe in B20:
=SUMMEWENN(B6:$B$15;B20;$A$6:A15)
Beachte: es ist korrekt, das "Huber" 0 ergibt. Denn oben heisst er anders (und zwar "Huber_" mit Leerzeichen).
Grüße,
Klaus M.vdT.

Anzeige
AW: VBA Zellen/Spalten ausblenden
23.04.2013 15:39:32
Philipp
Ich habe mich wohl undeutlich ausgedrückt. Sorry
Theoretisch stehen in jedem Feld der Tabelle Werte und Excel soll alle ausblenden, die nicht das passende Jahr,die passende Zahl und passende Spalte darstellen.
Steht also z.B. oben
2003 2 2
2004 2 2
soll Excel lediglich die zutreffenden Zellen anzeigen. In diesem Fal lalso genau 2 Zellen.
Ich hoffe das war verständlicher ;-)

Häääh? Hab ich eine falsche Datei? (owT)
23.04.2013 15:42:56
EtoPHG

Dito
23.04.2013 15:43:39
Klaus
Hi Hansueli,
ich kann die Aufgabe auch nicht mit der Datei in Einklang bringen.
Grüße,
Klaus M.vdT.

falsche Datei
23.04.2013 17:10:49
Erich
Hi zusammen,
wenn man versucht, die 85017.xls aus Philipps 1. Beitrag herunterzuladen, bekommt man stattdessen die 80517.xls.
Dass die Inhalte dann nicht zum Thread passen, ist kein Wunder.
Warum auch immer gibt es die 85017.xls nicht (mehr) auf dem Server - der bietet dann etwas "Ähnliches" an...
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Anzeige
Autofilter und Teilergebnis, decken..
23.04.2013 15:35:24
EtoPHG
doch alles ab, Philipp
Warum mit VBA und kompliziert mit Farben arbeiten?
Mach eine Tabelle (Einfügen-Tabelle) aus deinem Datenbereich. Dann kannst du nach Namen filtern und wenn du noch irgendwo ausserhalb der Liste eine =TEILERGEBNIS(9,Bereich) Formel unterbringst, siehst du auch gleich das Total der gefilterten Datensätze.
Gruess Hansueli

AW: VBA Zellen/Spalten ausblenden
23.04.2013 15:50:28
Philipp
Okay, ich habe eine neue Vorlage erstellt.
https://www.herber.de/bbs/user/85021.xlsx
Also nochmal:
1) Ich gebe oben ein Jahr, eine Nr und eine Spalte an. Ich denke das kann mit einer Art Koordinate verglichen werden.
2) Nach Eingabe soll Excel mir genau diese eine Zelle (im Beispiel sind es zwei) anzeigen und alles andere ausblenden. Lösche ich meine Angaben oben links,so soll Excel wieder die komplette Tabelle anzeigen.
Ich habe schon sämtliche meine Kollegen verwirrt damit. Und ich bin ebenso verwirrt ;)

Anzeige
AW: VBA Zellen/Spalten ausblenden
23.04.2013 16:08:14
Klaus
https://www.herber.de/bbs/user/85023.xlsm
Hi,
das du verwirrt bist merke ich. Deine erste Datei war völlig falsch. In deiner jetztigen Datei schreibst du "von - bis", meinst es aber nicht. Sonst hättest du 2003-1, 2003-2, 2003-3 und 2004-1 alle grün markieren müssen.
Grüße,
Klaus M.vdT.

noch ein Vorschlag
23.04.2013 17:06:03
Erich
Hi Philipp,
hier noch ein Vorschlag - zunächst der Code (ist eine Ereignisprozedur,
gehört also in den Code der Tabelle): 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngBed As Range, arBed, rngW As Range, arW
Dim rr As Long, cc As Long
Dim lngR1 As Long, lngC1 As Long
Dim rngHR As Range, rngHC As Range
Set rngBed = Range("C4:E5")  ' Bereich mit Bedíngungen
lngR1 = 11                   ' erste Datenszeile
lngC1 = 6                    ' erste Datenspalte
If Intersect(Target, rngBed) Is Nothing Then Exit Sub
arBed = Cells(4, 3).Resize(2, 3)
Set rngW = Cells(lngR1, lngC1).CurrentRegion
arW = rngW
lngR1 = lngR1 - 1
lngC1 = lngC1 - 1
For rr = 2 To UBound(arW)
If Not IsEmpty(arBed(1, 1)) And arBed(1, 1) > arW(rr, 1) Then _
Call RngUnion(rngHR, Cells(lngR1 + rr, 1))
If Not IsEmpty(arBed(2, 1)) And arBed(2, 1)  arW(rr, 2) Then _
Call RngUnion(rngHR, Cells(lngR1 + rr, 1))
If Not IsEmpty(arBed(2, 2)) And arBed(2, 2)  arW(1, cc) Then _
Call RngUnion(rngHC, Cells(1, lngC1 + cc))
If Not IsEmpty(arBed(2, 3)) And arBed(2, 3)
und hier die BeiSpielMappe:
https://www.herber.de/bbs/user/85024.xlsm
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Anzeige
und noch eine Variante...
23.04.2013 17:30:28
Erich
Hi,
das ginge wohl auch: 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngB As Range, arB, rngW As Range, arW, ii As Long
Dim rr As Long, cc As Long
Dim lngR0 As Long, lngC0 As Long
Dim rngHR As Range, rngHC As Range
Set rngB = Range("C4:E5")     ' Bereich mit Bedíngungen ohne Ueb.
Set rngW = Range("F11:K20")   ' Bereich mit Werten       mit Ueb.
If Intersect(Target, rngB) Is Nothing Then Exit Sub
lngR0 = rngW.Row - 1                ' erste Datenszeile-1
lngC0 = rngW.Column - 1             ' erste Datenspalte-1
arB = rngB                          ' Array der Bedingungswerte
arW = rngW                          ' Array der Daten
For rr = 2 To UBound(arW)           ' Zeilenbedingungen
For ii = 1 To 2
If Not IsEmpty(arB(1, ii)) And arB(1, ii) > arW(rr, ii) Then _
RngUnion rngHR, Cells(lngR0 + rr, 1)
If Not IsEmpty(arB(2, ii)) And arB(2, ii)  arW(1, cc) Then _
RngUnion rngHC, Cells(1, lngC0 + cc)
If Not IsEmpty(arB(2, 3)) And arB(2, 3)
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige

313 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