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

Spalten ausblenden bei bestimmtem Inhalt

Forumthread: Spalten ausblenden bei bestimmtem Inhalt

Spalten ausblenden bei bestimmtem Inhalt
lutz
Hallo Excel-Profis,
ich habe mal wieder ein Problem.
Ich habe ein Makro welches leere Zeilen vor dem Druck ausblendet und dann wieder ein.
Nun muß ich auch noch die Spalten G und H ausblenden, wenn in Zelle G9 etwas anderes als "" steht.
Muß/kann ich 2 x with verarbeiten? Wie müßte das Makro aussehen?
Sub Drucken()
Range("H3").Select
Sheets("BonB").Select
Dim Bereich As Range
With Worksheets("BonB")
Set Bereich = .Range("F9:F28")
For Each Zelle In Bereich.Cells
If Zelle.Value  "" Then
Zelle.EntireRow.Hidden = False
Else
Zelle.EntireRow.Hidden = True
End If
Next Zelle
.PrintOut Copies:=1, Collate:=True
.Range("F9:F28").EntireRow.Hidden = False
Set Bereich = Nothing
End With
Sheets("Eingabe").Select
Range("H3").Select
End Sub

Vielen Dank für Eur Hilfe
Lutz
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Spalten ausblenden bei bestimmtem Inhalt
08.01.2010 20:26:37
Worti
Hallo Lutz,
so sollte es gehen: 
Sub Drucken()
Dim zelle As Range
Range("H3").Select
Sheets("BonB").Select
Dim Bereich As Range
With Worksheets("BonB")
Set Bereich = .Range("F9:F28")
For Each zelle In Bereich.Cells
If zelle.Value  "" Then
zelle.EntireRow.Hidden = False
Else
zelle.EntireRow.Hidden = True
End If
Next zelle
If .Range("G9").Value  "" Then
.Columns("G:H").Hidden = True
End If
.PrintOut Copies:=1, Collate:=True
.Range("F9:F28").EntireRow.Hidden = False
.Columns("G:H").Hidden = False
Set Bereich = Nothing
End With
Sheets("Eingabe").Select
Range("H3").Select
End Sub

Gruß Worti
Anzeige
AW: Spalten ausblenden bei bestimmtem Inhalt
08.01.2010 20:44:15
lutz
Hallo Worti,
vielen vielen Dank ich muß nur alle ausbelenden bei denen G9 = "" ist aber das konnte ich gerade noch ändern.
Ich wünsche Dir noch ein schönes Wochenende
Gruß aus Hamburg Lutz
;

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
MsgBox abfolge mit BlätterAusblenden
Eggi

Hallo Zusammen
Habe ein wenig mühe damit das Makro BlaetterAusblenden am richtigen Ort zu plazieren.
Es soll so ablaufen: Msgbox "Formulare zurücksetzen ja/nein. falls nein *BlaetterAusblenden* falls ja weiter zu msgbox "Wollen Sie wirklich... (diese Abfrage ist nur zur letzen nochmali...
15.08.2008 15:23:51
Thread-ID: 1002204
10 Beiträge
Spalten Ausblenden in freigegebener Arbeitsmappe
Marco

Hallo,
ich möchte gerne in einer freigegeben Arbeitsmappe bestimmte Spalten per Klick auf ein Symbol aus- und wieder einblenden können.
Mein Problem ist der Blattschutz in der freigegebenen Arbeitsmappe. Aufgrund meiner bescheidenen VBA-Kenntnisse, weiß ich nicht, an welcher Stelle des...
17.08.2008 22:56:20
Thread-ID: 1002488
3 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
Einzelne Tabellen ausblenden
Peter

Hallo,
hab folgendes Problem. Ich habe eine Arbeitsmappe mit 15 Arbeitsblättern. Von diesen 15 AB sollen jedoch nur die Tabellen 1-10 sichtbar sein. Der Code, den ich mir gebastelt habe funktioniert leider nicht. Vielleicht stehe ich auch einfach nur auf dem Schlauch.
Hier der Code:
...
20.08.2008 22:33:32
Thread-ID: 1003334
7 Beiträge
Anzeige
Bei Ausdruck Leerzeilen ausblenden
Christian

Guuuuten Morgen zusammen,
ich suche seit einer knappen Stunde eine Lösung für folgendes, wohl sehr einfaches Problem, finde aber nur Spezial-Lösungen, die ich leider nicht entsprechend reduziert bekomme:
Habe eine Tabelle von A1 bis K59; Leerzeilen können im Bereich 8 bis 47 vorkommen;...
27.08.2008 09:08:00
Thread-ID: 1004971
15 Beiträge
Worksheet über Codename ein/ausblenden
Reinhard

Hallo Wissende,
geht es auch direkt ein Worksheet anhand des Codenamen ein/auszublenden?
Eine Schleife kriege ich hin, die alle Blätter durchläuft und wenn der gesuchte Codename gefunden ist dieses Blatt/Worksheet aus/einblendet.
Meine Frage ist also, geht das auch ohne Schleife?
28.08.2008 16:28:02
Thread-ID: 1005518
6 Beiträge
Ausblenden von Spalten abhängig vom Autofilter
Spalten

Ich möchte gerne bestimmte Spalten abhängig vom Wert des Autofilters in einer anderen Spalte ausblenden.
Beispiel: In Spalte A wähle ich im Autofilter "Dieter" und dann sollen die Spalten J bis R ausgeblendet werden. Wähle ich dann "Volker" sollen die Spalten M bis W ausgeblendet werden.
29.08.2008 15:45:36
Thread-ID: 1005878
2 Beiträge
#NV ausblenden
Bolo

Guten Morgen liebe Leute!
Ich sitz hier mal wieder an einer wunderschönen Exceltabelle und habe ein Problemchen. Ich habe hier per sverweis Verweise auf andere Tabellen erstellt die soweit auch ganz gut funktionieren. Allerdings ist meine Tabelle aktueller als die Tabellen auf die ich verwe...
01.09.2008 08:36:38
Thread-ID: 1006318
5 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Spalten ausblenden
Silke

Hallo,
habe ein kleines Problem ich habe eine Adressenliste geschrieben und möchte nun mir eine Geburtstagsliste und Telefonliste ausgeben lassen.
Dabei möchte ich nur auf eine bestimmte Zelle klicken, damit sie auf die Liste geht. Die Liste an sich ist ist sehr lang und ich möchte die...
02.09.2008 08:51:00
Thread-ID: 1006638
8 Beiträge
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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