Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1040to1044
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
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen und Spalten ausblenden

Zeilen und Spalten ausblenden
16.01.2009 15:21:22
Andreas
Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482.xls
In den Blättern "Gewichtung1" - "Gewichtung9" sind Tabellen enthalten, bei denen Zeilen und Spalten, für die keine Überschriften vorhanden sind, ausgeblendet werden sollen. Im Blatt "Gewichtung1" wären dies also die Zeilen 15-17 und die Spalten G-I.
Wäre sehr dankbar für Hinweise, wie man das Problem am besten Lösen könnte.
Gruss,
Andy

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen und Spalten ausblenden
16.01.2009 15:39:09
Chris
Hi versuchs mal hiermit:

Sub ausblenden()
For Each blatt In ActiveWorkbook.Worksheets
Namebl = blatt.Name
If Left(Namebl, 10) = "Gewichtung" Then
Sheets(Namebl).Select
Range("A10:A17").Select
For Each Zeile In Selection.Cells
If Zeile.Value = "" Then
Zeile.EntireRow.Hidden = True
Else
Zeile.EntireColumn.Hidden = False
End If
Next Zeile
Range("B9:I9").Select
For Each Spalte In Selection.Cells
If Spalte.Value = "" Then
Spalte.EntireColumn.Hidden = True
Else
Spalte.EntireColumn.Hidden = False
End If
Next Spalte
End If
Next blatt
End Sub


Anzeige
AW: Zeilen und Spalten ausblenden
16.01.2009 15:53:00
Andreas
Vielen Dank schon mal für die schnelle Antwort!
Funktioniert soweit ganz gut. Allerdings kommt es zu einer Fehlermeldung,falls einige der betroffenen Tabellenblätter vorher ausgeblendet wurden. Kann man das irgendwie umgehen? In der Regel sind nämlich immer einige der betroffenen Blätter ausgeblendet bevor diese Funktion ausgeführt wird.
Gruss,
Andy
AW: Zeilen und Spalten ausblenden Nachtrag
16.01.2009 15:57:23
Andreas
Nachtrag:
Man müsste bevor die entsprechenden Zeilen/Spalten ausgeblendet werden, vielleicht erstmal alles wieder einblenden, da sonst bei einer Aktualisierung der Übersichtsseite, die bereits ausgeblendeten Zeilen/Spalten nicht wieder sichtbar werden,falls sie befüllt wurden.
Anders formuliert:
Alles wieder einblenden, dann leere Zeilen/Spalten ausblenden.
Gruss,
Andy
Anzeige
AW: Zeilen und Spalten ausblenden Nachtrag
16.01.2009 16:18:00
Chris
Das sollte beide Probleme lösen. Sie ausgeblendeten Blätter werden nicht beachtet

Sub ausblenden()
For Each blatt In ActiveWorkbook.Worksheets
Namebl = blatt.Name
If Sheets(Namebl).Visible = 0 Or blatt.Visible = 2 Then
GoTo weiter
End If
If Left(Namebl, 10) = "Gewichtung" Then
Sheets(Namebl).Select
Range("A10:A17").Select
For Each Zeile2 In Selection.Cells
Zeile2.EntireRow.Hidden = False
Next Zeile2
For Each Zeile In Selection.Cells
If Zeile.Value = "" Then
Zeile.EntireRow.Hidden = True
Else
Zeile.EntireRow.Hidden = False
End If
Next Zeile
Range("B9:I9").Select
For Each Spalte2 In Selection.Cells
Spalte2.EntireColumn.Hidden = False
Next Spalte2
For Each Spalte In Selection.Cells
If Spalte.Value = "" Then
Spalte.EntireColumn.Hidden = True
Else
Spalte.EntireColumn.Hidden = False
End If
Next Spalte
End If
weiter:
Next blatt
End Sub


Anzeige
Gelöst,danke
16.01.2009 16:29:41
Andreas
Vielen Dank Chris!!! Klappt perfekt.
Schönen Tag und Schönes WE noch!
AW: Zeilen und Spalten ausblenden Nachtrag
16.01.2009 16:27:00
Heinz
Hi,
wenn das Ganze ohne dieses unselige select gemacht wird, spielt es keine Geige,
ob die Blätter sichtbar sind oder auch nicht.
mfg Heinz
AW: Zeilen und Spalten ausblenden Nachtrag
16.01.2009 16:36:00
Chris
Bin gerne offen für ne verbesserung des Codes. Wie vermeidest du denn dieser Stelle das Select? das ist immer mein Problem das ich immer denke an der Stelle geht es ohne Select nicht.

333 Forumthreads zu ähnlichen Themen

Zeilenhöhe und Spaltenbreite in cm - Makro anlegen
Sandra

Wie lege ich ein Makro an - für oben genannte Funktion?
DANKE!!!
02.09.2008 13:53:00
Thread-ID: 1006781
9 Beiträge
Anzeige
In Zeile suchen und Spalte löschen
Ralf

Hallo Excel - Experten,
nach laaaaaaanger Suche habe ich
im Archiv eine Lösung gefunden, die meinem Problem
sehr nahe kommt - - - es muß nur andersherum laufen :-)
Dieser Code unten sucht in einer Spalte nach einem best. Wert
und löscht die entsprechende Zeile, ich bräuchte...
23.10.2008 09:42:32
Thread-ID: 1018520
7 Beiträge
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
Anzeige
unerklärliche Spalten- und Zeilenköpfe
Bernhard

Liebe Excel-Fangemeinde,
bei einem Übungsbeispiel einer Schulungsteilnehmerin trat folgendes Phänomen auf (siehe Screenshot):

Auf dem ersten Tabellenblatt wurden einige einfache Formatierungen (unter anderem doppelt unterstrichen, hochgestellt und durchgestrichen) ganz normal über...
15.12.2008 11:58:00
Thread-ID: 1032990
3 Beiträge
Zeile und Spalte markieren
Karsten

Hallo Excel Freunde,
ich habe die Adresse von 2 Zellen (ZeileA, SpalteA) und (ZeileB, SpalteB) und möchte den gesmten Bereich markieren und dann kopieren.
Habe folgendes probiert:
Set Bereich1 = Rows("ZeileA:ZeileB")
Set Bereich2 = Columns("SpalteA:SpalteB")
Set Gesamtb = Un...
18.12.2008 15:54:47
Thread-ID: 1033909
5 Beiträge
Makro Spalte S bis letzter Wert Spalte A markieren
Jonathan

Hallo zusammen,
ich habe folgendes Probelem:
Ich möchte gerne Spalte S bis zum letzten Wert von Spalte A (variabel) markieren (damit im Anschluss der Spalte ein Rahmen gegeben werden kann).
Gibt es hierfür ein Makro?
Vielen Dank schon mal für eure Hilfe.
Gruß
Jonathan
30.01.2009 12:31:58
Thread-ID: 1045358
3 Beiträge
Wert in Spalte und entsprechender Zeile Finden
Klaus

Hi,
folgendes Problem:
Meine ExcelSpalten werden fortlaufend erweitert mit neuen Nummern.
Ich möchte jetzt eine Möglichkeit, in einer Zelle (usedrange +2) bei Eingabe einer neuen (existierenden)
Spaltenbezeichnung, automatisch den Zellenwert aus einer bestimmten Zeile haben. Da...
18.02.2009 15:51:00
Thread-ID: 1051850
3 Beiträge
Tastenkombination für "Gesamte Zeile Markieren"
Tobias

Gibt es eine Tastenkobination für "Gesamte Zeile markieren" oder muß man das immer umständlich mit der Maus machen ?
02.03.2009 14:31:51
Thread-ID: 1055569
5 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
8
16
6
10
3
2
4
2
2
4
8
4
3
13
1
5
7
1
11
12
6
11
6
10
4