Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
640to644
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
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Spalten ein-ausblenden
26.07.2005 17:07:46
Jürgen
Hallo Forum
Habe in einer Mappe 34 Tabellenblätter mit den Namen Spieltag1, Spieltag2 bis Spieltag34.
Möchte nun über ein Makro in allen 34 Tabellenblättern die Spalten GA - HR aus und wieder einblenden können.
Wie müßte der Code dafür aussehen.
Danke im vorraus.---
Gruß
Jürgen

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten ein-ausblenden
26.07.2005 17:31:35
Andi
Hi,
zB so:

Private Sub CommandButton1_Click()
Columns("GA:HR").EntireColumn.Hidden = Not Columns("GA:HR").EntireColumn.Hidden
End Sub

Damit kannst Du mit einem Command-Button zwischen ein- und ausgeblendet hin- und herschalten.
Natürlich kannst Du das auch in eine 'normale' Sub schreiben, ohne CmdButton.
Schönen Gruß,
Andi
AW: Spalten ein-ausblenden
26.07.2005 17:33:37
Erich
Hallo Jürgen,
folgende Prozedur blendet die SPalten aus, wenn sie in "Spieltag1" eingeblendet sind, und umgekehrt.
Option Explicit
Sub EinAusblend()
Dim ii%, soll As Boolean
soll = Not Sheets("Spieltag1").Columns("GA:HR").Hidden
For ii = 1 To 34
Sheets("Spieltag" & ii).Columns("GA:HR").Hidden = soll
Next ii
End Sub

Grüße aus Kamp-Lintfort
Erich
Anzeige
AW: Danke an beide.-----O:T
27.07.2005 19:27:56
Jürgen
.

270 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige