Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1332to1336
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
1332to1336
1332to1336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Spalten in mehreren Blättern aus u. einble

Mehrere Spalten in mehreren Blättern aus u. einble
17.10.2013 12:07:51
rieckmann
Hallo,
ich habe es schon mit dem Makrorecorder versucht, aber es funktioniert nicht.
Ich möchte in den ersten 9 Tabellenblätter, die alle gleich aufbebaut sind,
die Spalten B,E,F +K am besten mit einem Umschaldfeld aus, und wieder einblenden lassen.
Kann mir da jemand helfen ?
Gruß
Fred

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Mehrere Spalten in mehreren Blättern aus u. einble
17.10.2013 12:40:06
Matthias
Hallo
Ich würde die Register mit ihrem CodeNamen ansprechen
Hier für Tabelle1 bis Tabelle3 als Ansatz
Sub Aus_Aus()
Tabelle1.Range("B:B,E:E,F:F,K:K").EntireColumn.Hidden = Not Tabelle1.Range("B:B,E:E,F:F,K:K"). _
EntireColumn.Hidden
Tabelle2.Range("B:B,E:E,F:F,K:K").EntireColumn.Hidden = Not Tabelle2.Range("B:B,E:E,F:F,K:K"). _
EntireColumn.Hidden
Tabelle3.Range("B:B,E:E,F:F,K:K").EntireColumn.Hidden = Not Tabelle3.Range("B:B,E:E,F:F,K:K"). _
EntireColumn.Hidden
End Sub
Ansonsten eben mit ihrem Index
Hier mal nur das 2.Blatt
Sub Aus_Aus()
Worksheets(2).Range("B:B,E:E,F:F,K:K").EntireColumn.Hidden = Not Worksheets(2).Range("B:B,E:E, _
F:F,K:K").EntireColumn.Hidden
End Sub
Der Index:
Worksheets(2) ist das 2.Tabellenblatt von Links
Den Rest solltest Du dann dazuschreiben können
Gruß Matthias

Anzeige
AW: Mehrere Spalten in mehreren Blättern aus u. einble
17.10.2013 12:42:53
Rudi
Hallo, 
Private Sub ToggleButton1_Click()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 9
Sheets(i).Range("B1,E1,F1,K1").EntireColumn.Hidden = ToggleButton1
Next
ToggleButton1.Caption = IIf(ToggleButton1, "Ein", "Aus") & "blenden"
End Sub

Gruß
Rudi

AW: Mehrere Spalten in mehreren Blättern aus u. einble
17.10.2013 12:51:01
rieckmann
Klasse ihr beiden,
das ist genau das was ich gesucht habe.
Probiere mal weitergehend beide Beispiele aus.
Vielen Dank
Gruß
Fred

317 Forumthreads zu ähnlichen Themen

Syntax für Summe aus mehreren Blättern
friedolin

Hallo Forum,
ich möchte aus mehreren Blättern, die da heißen " 01.01. , 02.01. 03.01. " usw. die Summe der Spalte D40 (immer gleich) in ein neues Blatt ermitteln. Habe schon einiges probiert, aber die Syntax macht Probleme.
diese Formel funktioniert nicht! =Summe(01.01. : 31.01. !D40...
18.08.2008 14:55:54
Thread-ID: 1002612
7 Beiträge
Anzeige
Änderung Zeilen und Spaltenbezug
lass

Hallo, ich habe folgendes Problem.
Ist
(Zeile2/Spalte A2): Auftrag xyz; (Zeile2/Spalte B2):Mitarbeiter 1; (Zeile2/Spalte C2)= Mitarbeiter 2
(Zeile3/Spalte A3): Auftrag xyz; (Zeile3/Spalte B3):Mitarbeiter 3; (Zeile3/Spalte C3)= Mitarbeiter 4
(Zeile4/Spalte A...
15.09.2008 08:29:55
Thread-ID: 1009654
17 Beiträge
Info aus mehreren Spaltenüberschriften entnehmen
mopitz

Hallo,
Da mein Problem etwas komplex ist, füge ich eine Datei zur Veranschaulichung an.:
https://www.herber.de/bbs/user/56058.xls
Ich möchte in der ersten Tabelle zu den Spalte "Kunde"(kommt nur einmal vor) die Technologie reinschreiben lassen. Diese Info erhalte ich aus der "Tabell...
16.10.2008 13:34:19
Thread-ID: 1016847
7 Beiträge
Anzeige
Zählenwenn über mehrere Spalten
Mario

Zählenwenn über mehrere Spalten
Guten Morgen an alle, ich habe einmal ein Problem mit der Funktion "Zählenwenn".
Ich habe ein Tabellenblatt wo in der Spalte "A" verschiedene Jahreszahlen hinterlegt sind
( z.B. 2008 , 2009, usw. ) und in Spalte "D" einige Werte.
Ich möchte z.B....
26.11.2008 09:20:00
Thread-ID: 1027923
3 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
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
SummeWenn mehrere Dateien
Christian

Hallo liebe Com,
ich habe folgendes Problem und gehört das ich hier gute Antworten und Hilfe bekommen kann.
So folgende Aufgabenstellung in meiner Firma:
Auswertung in Excel über 3 Grunddateien mit Daten und die 4 Datei erstelle ich mit Formeln wo ich eine Auswertung bekomme.
Da...
15.12.2008 16:01:00
Thread-ID: 1033077
6 Beiträge
Zeilen und Spalten ausblenden
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...
16.01.2009 15:21:22
Thread-ID: 1040598
8 Beiträge
Anzeige

Links zu Excel-Dialogen

ToggleButton

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
6
8
16
6
4
2
3
2
5
7
4
2
5
4
4
3
13
4
4
3
2
18
2
9
1