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

Spalte ausblenden, wenn leer

Forumthread: Spalte ausblenden, wenn leer

Spalte ausblenden, wenn leer
05.02.2009 23:44:01
Peter
Guten Abend
Ich habe eine Tabelle mit verschiedenen benannten Bereichen innerhalb von jeweils einer Spalte, also beispielsweise
"AAA" bezieht sich auf Tabelle1!A5:A205
"BBB" bezieht sich auf Tabelle1!B5:B205
"CCC" bezieht sich auf Tabelle1!C5:C205
Nun möchte ich abfragen, ob "AAA" oder "BBB" keinen Eintrag haben und wenn dies zutrifft, sollen die entsprechenden Spalten, also hier A, B und C ausgeblendet werden.
Ich möchte mit den Bereichsbezeichnungen AAA, BBB und CCC arbeiten, da diesen nicht immer die gleichen Bereiche zugeordnet sind.
Wie packe ich diese Aufgabenstellung am besten in einen Code?
Danke für eine Antwort.
Gruss, Peter
Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte ausblenden, wenn leer
06.02.2009 00:01:02
Uwe
Hi Peter,
so!?:

If WorksheetFunction.CountA(Range("AAA")) = 0 Then _
Range("AAA").EntireColumn.Hidden = True


Gruß
Uwe
(:o)

AW: Spalte ausblenden, wenn leer
06.02.2009 21:14:57
Peter
Hallo Uwe
Danke für die Antwort.
Ich sehe, dass ich die Fragestellung nicht präzise durchdacht habe.
In den Zellen können sehr wohl Einträge in Form von Formeln vorhanden sein. Wenn die Formel jedoch NULL ergibt, muss die Spalte auch ausgeblendet werden.
Ich darf jedoch nicht die Summe der Zellen berechnen, weil dann in einer Zelle -1 und in einer Zelle +1 stehen könnte - in diesem Fall soll nicht ausgeblendet werden. Also ich irgendwie die Summe der absoluten Werte ermitteln.
Gruss, Peter
Anzeige
vielleicht geht es so.
07.02.2009 09:27:20
Tino
Hallo,
könnte es so richtig sein?

If [COUNTIF(AAA:AAA,0)+COUNTBLANK(AAA:AAA)] = Rows.Count Then
Range("AAA1").EntireColumn.Hidden = True
Else
Range("AAA1").EntireColumn.Hidden = False
End If


Gruß Tino

AW: vielleicht geht es so.
07.02.2009 16:04:16
Uwe
Hi Tino,
GUTE Idee, aber ich hätte 'ne kleine Korrektur:

If [COUNTIF(AAA:AAA,0)+COUNTBLANK(AAA:AAA)] = Range("AAA").Rows.Count Then
Range("AAA").EntireColumn.Hidden = True
Else
Range("AAA").EntireColumn.Hidden = False
End If


OK?
Gruß
Uwe
(:o)

Anzeige
AW: vielleicht geht es so.
07.02.2009 16:38:00
Tino
Hallo,
Rows.Count bleibt doch immer gleich, oder sehe ich dass falsch?
Man könnte auch einen Einzeiler draus machen.

Range("AAA1").EntireColumn.Hidden = [COUNTIF(AAA:AAA,0)+COUNTBLANK(AAA:AAA)] = Rows.Count


Gruß Tino

AW: vielleicht geht es so.
07.02.2009 17:52:00
Uwe
Hi Tino,
also bei mir ergibt:

Sub test()
Debug.Print Rows.Count
Debug.Print Range("AAA").Rows.Count
End Sub


im Direktfenster:
65536
21
...weil ersteres doch alle Zeilen im Blatt zählt und das zweite nur die im Bereich AAA.
Ist das bei Dir anders?
Gruß
Uwe
(:o)

Anzeige
AW: vielleicht geht es so.
07.02.2009 18:13:08
Tino
Hallo,
ich dachte die Frage war,
wenn alle Zellen in AAA Leer oder den Wert 0 haben, soll diese ausgeblendet werden.
Also müsste doch Anzahl aller 0 Werte + Anzahl aller Leerzellen die Anzahl der Zeilen ergeben.
Ist in AAA1 noch eine Überschrift, müsste man diese bei Rows.Count mit -1 noch abziehen.
Oder habe ich die Frage falsch verstanden, dann ziehe ich alles zurück.
Gruß Tino
Anzeige
ziehe alles zurück...
07.02.2009 18:25:00
Tino
Hallo,
AAA = ein benannter Bereichen.
Dann hast Du natürlich recht!
Ich habe xl2007 und da gibt es die Spalte AAA,
hat mich wohl etwas aus dem Ruder gebracht, ich dachte es geht um die Spalte.
Gruß Tino
AW: @Tino
07.02.2009 20:28:08
Uwe
Hi Tino,
ahh.., jetzt versteht ich. Ich hatte mich schon gewundert warum Du "so schwer von Begriff" bist (sorry (:o)), wo Du doch sonst eigentlich um einiges fitter in Excel bist als ich. Ich werkel noch mit Office 9 'rum und bin daher von vorneherein nicht Gefahr gelaufen das für eine Spalte zu halten.
Gruß
Uwe
(:o)
Anzeige
@Uwe u. @Peter
07.02.2009 21:31:00
Tino
Hallo,
die Hauptsache ist ja, dass wir eine Lösung gefunden haben.
Ich hoffe Peter kommt noch zurecht.
Also so.

Range("AAA").EntireColumn.Hidden = [COUNTIF(AAA,0)+COUNTBLANK(AAA)] = Range("AAA").Cells.Count


Gruß Tino

Anzeige
AW: Spalte ausblenden, wenn leer
08.02.2009 10:00:00
Gerd
Hallo zusammen,
es sieht so aus, dass der Fragesteller seinen Beitrag vergessen hat.
Also so zum Spaß noch ein Vorschlag mit nur zwei "Counts".

Sub b()
Range("AAA").EntireColumn.Hidden = [COUNTIF(AAA,">0")+COUNTIF(AAA,"


Grüße Gerd

Anzeige
AW: Spalte ausblenden, wenn leer
08.02.2009 13:04:28
Uwe
Hi Gerd,
... echt raffiniert. Gute Idee. Schade das Peter das wohl nicht zu sehen bekommt.
Gruß
Uwe
(:o)
AW: Spalte ausblenden, wenn leer
08.02.2009 13:14:01
Peter
Hi zusammen
Doch, ich bin aus der Ferne noch dabei. Allerdings habe ich im Moment nur das iPhone zur Verfügung - das Austesten muss daher noch eine Weile warten.
Nochmals besten Dank und
Gruss
Peter
Anzeige
;

Forumthreads zu verwandten 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
Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Anzeige
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
Zeilen ausblenden wenn...
Andreas

Hi,
ich habe ein kleines Problem. Auf meinem Excel-Blatt sind von B4:B200 Datumswerte im Format TT.MM.JJJJ eingetragen. In der Zelle A1 gebe ich nun beispielsweise Januar ein. Ich will nun, dass alle Zeilen ausgeblendet werden, die nicht in der Spalte B ein Januar-Datum eingetragen haben. D...
04.09.2008 20:18:36
Thread-ID: 1007507
10 Beiträge
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Zeilen ausblenden, außer wenn in Zelle ...?
Selma

Hallo Leute,
ich möchte mit einem CommandButton ab Zeile 4 die Zeilen wie folgt ausblenden:
- wenn in Spalte M die Zelle diesen "plt" Inhalt hat, dann soll die Zeile nicht ausgeblendet werden
- wenn in Spalte M die Zelle die Füllfarbe 15 hat., dann soll die Zeile nicht ausgeblendet...
27.10.2008 18:13:00
Thread-ID: 1019700
10 Beiträge
SowDataForm, Fehler wenn Zeile 1 leer
Reinhard

Hallo Wissende,
der Fehler 1004, "ShowDataForm-Methode des Worksheet-Objekts konnte zu nicht ausgeführt werden" kommt nicht wenn A1 die erste Zelle der Tabelle ist. Bei A9 als erste Zelle kommt der Fehler.
Was kann ich dagegen tun?
Microsoft empfiehlt auf http://support.microsoft....
06.11.2008 11:19:00
Thread-ID: 1022202
3 Beiträge
Zeilen ausblenden wenn...
Marc

Hallo Forum
In Spalte E11:E94 sind Namen aufgeführt(Meier,Müller usw.). In dieser Spalte kommen
aber auch Namen mit einem Vorhängsel wie z.B. a_Meier, a_Müller usw. vor.
Ist es möglich, die Zeilen mit diesen Vorhängseln auszublenden?
Gruß
Marc
06.12.2008 21:44:00
Thread-ID: 1030753
6 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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