Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Spalten ein/ausblenden mit Makro





Frage

Hallo zusammen Ich habe folgende Formel erstellt zum ein- und ausblenden von Spalten mittels einem Umschaltbutton: Sub SpaltenAusForecast06() Sheets("Effektiv 2006").Activate Columns("G:H").EntireColumn.Hidden = True Columns("J").EntireColumn.Hidden = True Columns("L:M").EntireColumn.Hidden = True End Sub Sub SpaltenEinForecast06() Sheets("Effektiv 2006").Activate Columns("G:H").EntireColumn.Hidden = False Columns("J").EntireColumn.Hidden = False Columns("L:M").EntireColumn.Hidden = False End Sub Private Sub ToggleButton2_Click() Dim TB As ToggleButton Set TB = ToggleButton1 If TB.Value = True Then TB.Caption = "Forecast aus" Call SpaltenEinForecast06 Else TB.Caption = "Forecast ein" Call SpaltenAusForecast06 End If End Sub -------------------------------------------------------------------------- Diese Formel funktioniert auch wunderbar. Leider ist es so, dass - nachdem ich weitere Spalten ausblenden will - eine Fehlermeldung kommt. "Laufzeitfehler ´1004´" Kann es sein, dass mittels diesem Code nur eine gewisse Anzahl von Spalten ausgeblendet werden können? Wenn ja, gibt es eine andere Lösung um mehr Spalten ausblenden zu können? Auf eine Antwort freue ich mich.

Antwort 1 von Beverly

Hi,

ich habe dein Beispiel nachgebaut - an der Spaltenanzahl dürfte es nicht liegen, denn du kannst alle 256 gleichzeitig ausblenden. An welche Stelle hält der Debugger an?

Antwort 2 von jekke

Hallo

Sicher bin ich mir nicht, aber was hat der Togglebutton1
im Togglebutton2_Click() Event verloren?

Gruß jekke

Antwort 3 von Reaction

Hallo Beverly
Danke für deine Antwort.
Bei der 39. Position kommt die Fehlermeldung. Ich habe viele einzelne Spalten die ich ausblenden muss und teils 2 nebeneinander. Schlussendlich müsste ich ca. 100 Spalten miteinander ausblenden - diese befinden sich jedoch nicht alle nebeneinander.


An jekke: vielen Dank für den Hinweis. Aber am ToggleButton liegt es nicht.

Vielen Dank für eure Hilfe.

Antwort 4 von CaroS

Hallo Reaction,

ich habe gerade mal auf die Schnelle 81 Spalten (nach demselben Schema wie bei Dir: von jeweils 5 aufeinander folgenden immer die 1., 2. und 4.) aus- und dann wieder eingeblendet - ohne Probleme. Hatte ich mir auch so gedacht, dass das Aus- und Einblenden selber keine Probleme bereitet.

Nun gibt´s 2 Möglichkeiten (oder noch mehr?): Fehler im Makro und Ursachen in der Tabelle.

Auch wenn´s keine Schreibfehler in dem/den Makro(s) gibt, kannst Du sie mal posten? Ursache in der Tabelle könnten z. B. verbundene Zellen sein, aber mehr fällt mir auf Anhieb auch erstmal nicht ein. Macht es Dir was aus, die ganze Excel-Datei mal hochzuladen, damit man mal insgesamt einen Blick drauf werfen kann?

Gruß,
CaroS

Antwort 5 von Beverly

Hi,

versuche es mal mit dem Befehl Union

Dim raBereich As Range
Set raBereich = Application.Union(Range("D:E"), Range("G:H"), Range("J:K"))


In ein Union kannst du 30 Ranges aufnehmen, diese Spalten dann verbergen. Anschließend mit

Set raBereich = Nothing


die Variable löschen und mit den neuen Ranges füllen und diese dann ebenfalls verbergen. Ich habe es mit 60 nicht zusammenhängenden Spalten, getestet.

Bis später,
Karin

Antwort 6 von Reaction

Hallo zusammen

Vielen lieben Dank für euer Tipps. Ich werde dises alle am Mittwoch ausprobieren. Zur Zeit hab´ ich leider keinen Zugriff auf die Datei. Ich werde auf jeden Fall, ein Feedback zu euren Tipps geben.


Bis dann,

Nadia

Antwort 7 von Reaction

Sub SpaltenAusblenden2006()
Sheets("Effektiv 2006").Activate
Columns("F").EntireColumn.Hidden = True
Columns("H:I").EntireColumn.Hidden = True
Columns("K").EntireColumn.Hidden = True
Columns("M:N").EntireColumn.Hidden = True
Columns("P").EntireColumn.Hidden = True
Columns("R:S").EntireColumn.Hidden = True
Columns("U").EntireColumn.Hidden = True
Columns("W").EntireColumn.Hidden = True
Columns("Y").EntireColumn.Hidden = True
Columns("AA:AB").EntireColumn.Hidden = True
Columns("AD").EntireColumn.Hidden = True
Columns("AF:AG").EntireColumn.Hidden = True
Columns("AI").EntireColumn.Hidden = True
Columns("AK:AL").EntireColumn.Hidden = True
Columns("AN").EntireColumn.Hidden = True
Columns("AP").EntireColumn.Hidden = True
Columns("AR").EntireColumn.Hidden = True
Columns("AT:AU").EntireColumn.Hidden = True
Columns("AW").EntireColumn.Hidden = True
Columns("AY:AZ").EntireColumn.Hidden = True
Columns("BB").EntireColumn.Hidden = True
Columns("BD:BE").EntireColumn.Hidden = True
Columns("BG").EntireColumn.Hidden = True
Columns("BI").EntireColumn.Hidden = True
Columns("BK").EntireColumn.Hidden = True
Columns("BM:BN").EntireColumn.Hidden = True
Columns("BP").EntireColumn.Hidden = True
Columns("BR:BS").EntireColumn.Hidden = True
Columns("BU").EntireColumn.Hidden = True
Columns("BW:BX").EntireColumn.Hidden = True
Columns("BZ").EntireColumn.Hidden = True
Columns("CB").EntireColumn.Hidden = True
Columns("CD").EntireColumn.Hidden = True
Columns("CF:CG").EntireColumn.Hidden = True
Columns("CI").EntireColumn.Hidden = True
Columns("CK:CL").EntireColumn.Hidden = True
Columns("CN").EntireColumn.Hidden = True
Columns("CP:CQ").EntireColumn.Hidden = True
Columns("CS").EntireColumn.Hidden = True
Columns("CU").EntireColumn.Hidden = True
Columns("CW").EntireColumn.Hidden = True
Columns("CY:CZ").EntireColumn.Hidden = True
Columns("DB").EntireColumn.Hidden = True
Columns("DD:DE").EntireColumn.Hidden = True
Columns("DG").EntireColumn.Hidden = True
Columns("DI:DJ").EntireColumn.Hidden = True
Columns("DL").EntireColumn.Hidden = True
Columns("DN").EntireColumn.Hidden = True
End Sub

Sub SpaltenEinblenden2006()
Sheets("Effektiv 2006").Activate
Columns("F").EntireColumn.Hidden = False
Columns("H:I").EntireColumn.Hidden = False
Columns("K").EntireColumn.Hidden = False
Columns("M:N").EntireColumn.Hidden = False
Columns("P").EntireColumn.Hidden = False
Columns("R:S").EntireColumn.Hidden = False
Columns("U").EntireColumn.Hidden = False
Columns("W").EntireColumn.Hidden = False
Columns("Y").EntireColumn.Hidden = False
Columns("AA:AB").EntireColumn.Hidden = False
Columns("AD").EntireColumn.Hidden = False
Columns("AF:AG").EntireColumn.Hidden = False
Columns("AI").EntireColumn.Hidden = False
Columns("AK:AL").EntireColumn.Hidden = False
Columns("AN").EntireColumn.Hidden = False
Columns("AP").EntireColumn.Hidden = False
Columns("AR").EntireColumn.Hidden = False
Columns("AT:AU").EntireColumn.Hidden = False
Columns("AW").EntireColumn.Hidden = False
Columns("AY:AZ").EntireColumn.Hidden = False
Columns("BB").EntireColumn.Hidden = False
Columns("BD:BE").EntireColumn.Hidden = False
Columns("BG").EntireColumn.Hidden = False
Columns("BI").EntireColumn.Hidden = False
Columns("BK").EntireColumn.Hidden = False
Columns("BM:BN").EntireColumn.Hidden = False
Columns("BP").EntireColumn.Hidden = False
Columns("BR:BS").EntireColumn.Hidden = False
Columns("BU").EntireColumn.Hidden = False
Columns("BW:BX").EntireColumn.Hidden = False
Columns("BZ").EntireColumn.Hidden = False
Columns("CB").EntireColumn.Hidden = False
Columns("CD").EntireColumn.Hidden = False
End Sub

Private Sub ToggleButton1_Click()
Dim TB As ToggleButton
Set TB = ToggleButton1
If TB.Value = True Then
TB.Caption = "Effektiv aus"
Call SpaltenAusblenden2006
Else
TB.Caption = "Effektiv ein"
Call SpaltenEinblenden2006
End If
End Sub

Antwort 8 von CaroS

Hallo ,

4 kleine Bemerkungen dazu:

Dass Du 66 Spalten ausblendest, aber nur 45 Spalten wieder einblendest, weißt Du sicher. Die Spalten CF, CG, CI, CK, CL, CN, CP, CQ, CS, CU, CW, CY, CZ, DB,
DD, DE, DG, DI, DJ, DL , DN fehlen beim Einblenden.

Zu Beginn des Makros würde ich die Bildschirmanzeige aus- und am Ende wieder einschalten:
Application.ScreenUpdating = False
Application.ScreenUpdating = True

Das Aus- und Einblenden klappte bei mir völlig einwandfrei, auch mit einigen zusätzlichen Spalten. (Ich musste nur - selbstverständlich - Sheets("Effektiv 2006").Activate an meine "Tabelle5" anpassen. Da ich keinen Fehler feststellen konnte, kann ich Dir wohl auch nicht helfen.

Bevor ich Deinen Code getestet habe, dachte ich, da muss wahrscheinlich noch ein Sheets("Effektiv 2006"). hinein:
Set TB = Sheets("Effektiv 2006").ToggleButton1 statt Set TB = ToggleButton1,
aber da es auch so ging, ist das wohl nicht die Ursache Deines Fehlers.

Ist der Button denn auf dem Tabellenblatt, in dem die Spalten aus-/eingeblendet werden? Und stehen alle 3 Makros im VBA-Projekt dieser Tabelle? Ansonsten fällt mir dazu nur noch eine Frage ein: an welcher Stelle steht der Debugger, wenn der Fehler auftritt? (Immer an derselben?)

Gruß,
CaroS

Antwort 9 von Reaction

Hallo Caro

Vielen lieben Dank für die schnelle Antwort.
Die fehlenden Spalten zum wieder einblenden habe ich nur aus Platzgründen gelöscht (5000 Zeichen war max.)
Leider kann ich auch die Datei nicht hochladen. Das wäre wohl am einfachsten. Irgendwie finde ich da niergens einen upload-Button.
Ich versuche die Tabelle zu beschreiben:

Spalten D + E: Text ohne Formeln
Spalten F - W: Total 18 Spalten
Überschrift ist mit allen 18 Spalten verbunden
Unter Überschrift befinden sich 3 weitere verbundene Bereiche (5 Spalten / 8 Spalten / 5 Spalten)
Unter diesen befinden sich in jeder Zelle Zahlen und Formeln
Das ganze wiederholt sich 12 mal (für jeden Monat gibt es 18 Spalten die nach diesem Schema unterteilt sind.

Der Debugger kommt jedesmal bei der 38. oder 39. Stelle

Die Buttons befinden sich auf der Spalte D. Es gibt insgesamt 3 Buttons. Jeder Button blendet andere Spalten aus/ein. Auch bei den anderen Buttons kommt die Fehlermeldung.

Mit der Verteilung der Makros siehts ein bisschen kompliziert aus.

Folgende Makros sind in einem Fenster:

Sub SpaltenAusblenden2006()

usw.

Sub SpaltenEinblenden2006()

usw.

Private Sub ToggleButton1_Click()
Private Sub ToggleButton2_Click()
Private Sub ToggleButton3_Click()


Alle anderen Makros sind wieder separat. Aber alle im selben Projekt (einfach verschiedene Module)
Da ich zum 1. Mal mit Makros arbeite, wusste nicht wie ich diese anordnen soll. Vielleicht liegt der Fehler da?

Ich hoffe, ich habe das einigermassen verständlich beschrieben.

Nochmals herzlichen Dank für die Hilfe.

Beste Grüsse
Nadia

PS: Fehlermeldung die kommt:

Laufzeitfehler ‚1004’:
Die Hidden-Eigenschaft des Range-Objektes kann nicht festgelegt werden.

Antwort 10 von CaroS

Hallo,

zum Hochladen einer Datei kannst Du auf eine dieser Seiten gehen:

http://www.netupload.de/
http://rapidshare.de/


Den Link, der Dir nach erfolgreichem Hochladen mitgeteilt wird, musst Du hier angeben, damit andere sich die Datei runterladen können. (hier im Forum kenne ich keine Möglichkeit zum Hochladen.)

Gruß,
CaroS

Antwort 11 von Beverly

Hi Nadja,

ich bekomme mit deinem geposteten Code keine Fehlermeldung.

Hast du es mal mit dem Union-Befehlt versucht? Kommt da auch dieser Laufzeitfehler?

Bis später,
Karin

Antwort 12 von nighty

hi :)

verbundene zellen sind der groesste feind,aufloesen und dann ein und ausblenden und wieder verbinden wenn es denn sein sollte oder muss glaub ich aber eher weniger

gruss nighty

Antwort 13 von Beverly

Hi nighty,

im Prinzip gebe ich dir vollkommen Recht - verbundene Zellen machen nur Ärger! Aber sie haben keinen Einfluss auf den von Nadja geposteten Code (zumindest bei mir nicht - Excel2002). Es werden brav die richtigen Spalten aus- und wieder eingeblendet - kein Laufzeitfehler.

Bis später,
Karin

Antwort 14 von JoeKe

Moin Nadia,

um alle ausgeblendete Spalten wieder einzublenden, reicht:

Sub SpaltenEinblenden2006()
Sheets("Effektiv 2006").Cells.EntireColumn.Hidden = False
End Sub


aus.

Kann es sein das deine Tabelle mit einem Blattschutz versehen ist?
Zellen in den Spalten die ausgeblendet werden sollen, dürfen nicht gesperrt sein.

Gruß

JöKe

Antwort 15 von Reaction

Hallo zusammen

Nochmals vielen Dank für eure Hilfe.

JöKe: Danke für den Tip mit dem Spalten wieder Einblenden. Funktioniert tiptop.
Der Laufzeitfehler kommt allerdings immer noch beim Ausblenden. Einen Blattschutz habe ich nicht eingebaut.

Karin: Ich schnall das mit dem Union-Befehl leider nicht. Wo muss ich diesen einfügen? Muss ich dann die anderen Skripts löschen?

Nighty: Das mit den verbundenen Zellen habe ich versucht - leider auch ohne Erfolg.

Viele Grüsse
Nadia

Antwort 16 von nighty

hi all :)

koennte auch ein bezugsverlust sein

probier mal

Sheets(1). Columns("CD").EntireColumn.Hidden = False

bzw

Sheets("DeinSheetName"). Columns("CD").EntireColumn.Hidden = False

gruss nighty

Antwort 17 von nighty

hi all :)

die zeile dann loeschen

Sheets("Effektiv 2006").Activate

gruss nighty

Antwort 18 von Reaction

Hallo Nighty

Besten Dank. Wo genau muss ich diesen Code einfügen? Mein momentaner Skript sieht so aus:
Sub SpaltenAusblenden2006()
Sheets("Effektiv 2006").Activate
Columns("F").EntireColumn.Hidden = True
Columns("H:I").EntireColumn.Hidden = True
Columns("K").EntireColumn.Hidden = True
Columns("M:N").EntireColumn.Hidden = True
Columns("P").EntireColumn.Hidden = True
Columns("R:S").EntireColumn.Hidden = True
Columns("U").EntireColumn.Hidden = True
Columns("W").EntireColumn.Hidden = True
Columns("Y").EntireColumn.Hidden = True
Columns("AA:AB").EntireColumn.Hidden = True
Columns("AD").EntireColumn.Hidden = True
Columns("AF:AG").EntireColumn.Hidden = True
Columns("AI").EntireColumn.Hidden = True
Columns("AK:AL").EntireColumn.Hidden = True
Columns("AN").EntireColumn.Hidden = True
Columns("AP").EntireColumn.Hidden = True
Columns("AR").EntireColumn.Hidden = True
Columns("AT:AU").EntireColumn.Hidden = True
Columns("AW").EntireColumn.Hidden = True
Columns("AY:AZ").EntireColumn.Hidden = True
Columns("BB").EntireColumn.Hidden = True
Columns("BD:BE").EntireColumn.Hidden = True
Columns("BG").EntireColumn.Hidden = True
Columns("BI").EntireColumn.Hidden = True
Columns("BK").EntireColumn.Hidden = True
Columns("BM:BN").EntireColumn.Hidden = True
Columns("BP").EntireColumn.Hidden = True
Columns("BR:BS").EntireColumn.Hidden = True
Columns("BU").EntireColumn.Hidden = True
Columns("BW:BX").EntireColumn.Hidden = True
Columns("BZ").EntireColumn.Hidden = True
Columns("CB").EntireColumn.Hidden = True
Columns("CD").EntireColumn.Hidden = True
Columns("CF:CG").EntireColumn.Hidden = True
Columns("CI").EntireColumn.Hidden = True
Columns("CK:CL").EntireColumn.Hidden = True
Columns("CN").EntireColumn.Hidden = True
Columns("CP:CQ").EntireColumn.Hidden = True
Columns("CS").EntireColumn.Hidden = True
Columns("CU").EntireColumn.Hidden = True
Columns("CW").EntireColumn.Hidden = True
Columns("CY:CZ").EntireColumn.Hidden = True
Columns("DB").EntireColumn.Hidden = True
Columns("DD:DE").EntireColumn.Hidden = True
Columns("DG").EntireColumn.Hidden = True
Columns("DI:DJ").EntireColumn.Hidden = True
Columns("DL").EntireColumn.Hidden = True
Columns("DN").EntireColumn.Hidden = True
End Sub

Sub SpaltenEinblenden2006()
Sheets("Effektiv 2006").Cells.EntireColumn.Hidden = False
End Sub

Private Sub ToggleButton1_Click()
Dim TB As ToggleButton
Set TB = ToggleButton1
If TB.Value = True Then
TB.Caption = "Effektiv aus"
Call SpaltenAusblenden2006
Else
TB.Caption = "Effektiv ein"
Call SpaltenEinblenden2006
End If
End Sub

Private Sub ToggleButton2_Click()
Dim TB As ToggleButton
Set TB = ToggleButton2
If TB.Value = True Then
TB.Caption = "Forecast aus"
Call SpaltenAusForecast06
Else
TB.Caption = "Forecast ein"
Call SpaltenEinForecast06
End If
End Sub

Private Sub ToggleButton3_Click()
Dim TB As ToggleButton
Set TB = ToggleButton3
If TB.Value = True Then
TB.Caption = "Abweichung aus"
Call SpaltenAusAbweichung06
Else
TB.Caption = "Abweichung ein"
Call SpaltenEinAbweichung06
End If
End Sub

Private Sub ToggleButton4_Click()
Dim TB As ToggleButton
Set TB = ToggleButton4
If TB.Value = True Then
TB.Caption = "Sort"
Call SpaltenAusblendenSort2006
Else
TB.Caption = "Sort"
Call SpaltenEinblendenSort2006
End If
End Sub

Antwort 19 von JoeKe

Hallo Nadia,

kommt die Fehlermeldung immer bei der selben Zeile (38. oder 39. Stelle) ?

Also in einer dieser Zeile:

Columns("CK:CL").EntireColumn.Hidden = True
Columns("CN").EntireColumn.Hidden = True


Wenn ja, dann kann in einer dieser Spalten etwas sein, was ein ausblenden verhindert.
Läuft der Code durch, wenn du diese Zeilen mal auskommentierst. Dazu brauchst du nur ein Hochkomma (Umschalttaste+#)am Anfang der Zeile setzen.

@Karin´s Vorschlag für deinen Code sieht so aus:

Sub SpaltenAusblenden2006_2()
Dim raBereich As Range
Set raBereich = Application.Union(Range("F:F"), Range("H:I"), Range("K:K"), _
Range("M:N"), Range("P:P"), Range("R:S"), Range("U:U"), Range("W:W"), _
Range("Y:Y"), Range("AA:AB"), Range("AD:AD"), Range("AF:AG"), Range("AI:AI"), _
Range("AK:AL"), Range("AN:AN"), Range("AP:AP"), Range("AR:AR"), Range("AT:AU"), _
Range("AW:AW"), Range("AY:AZ"), Range("BB:BB"), Range("BD:BE"), Range("BG:BG"), _
Range("BI:BI"), Range("BK:BK"), Range("BM:BN"), Range("BP:BP"), Range("BR:BS"), _
Range("BU:BU"), Range("BW:BX"))
raBereich.EntireColumn.Hidden = True
Set raBereich = Nothing
Set raBereich = Application.Union(Range("BZ:BZ"), Range("CB:CB"), Range("CD:CD"), _
Range("CF:CG"), Range("CI:CI"), Range("CK:CL"), Range("CN:CN"), Range("CP:CQ"), _
Range("CS:CS"), Range("CU:CU"), Range("CW:CW"), Range("CY:CZ"), Range("DB:DB"), _
Range("DD:DE"), Range("DG:DG"), Range("DI:DJ"), Range("DL:DL"), Range("DN:DN"))
raBereich.EntireColumn.Hidden = True
Set raBereich = Nothing
End Sub


Du kannst ihn, zum ausprobieren, unter deinem Code einfügen. Da er einen anderen Namen hat (
Sub SpaltenAusblenden2006_2()
) kann er dann allerdings nicht über deinen Button gestartet werden. Zum Testen einfach mal aus Makros herraus starten.

Gruß

JöKe

Antwort 20 von Beverly

Hi JöKe,

danke, dass du für mich eingesprungen bist. Genau so war es gemeint. Habe leider immer erst gegen Abend Zugriff auf das Forum.

Bis später,
Karin

Antwort 21 von JoeKe

Hallo Karin,

da nich für.

Gruß
Jörg

Antwort 22 von nighty

hi all :)

noch eine idee,eventuelle einzelausblendung ?

welche spalten reagieren denn nicht ?

spalte/n aus bereichen

und/oder

spalte einzelne ?

gruss nighty

Antwort 23 von Reaction

Hallo nochmals

Ich hab´ jetzt alle Varianten nochmals ausprobiert. Leider immer noch ohne Erfolg.

Auch mit dem Range-Code erscheint die Fehlermeldung. Hab´ ebenfalls versucht, den 2. Teil des Ranges zu löschen. Dann hats funktioniert. Beim wiedereinfügen kommt die Meldung jedoch wieder.

Hier ist noch der Code, wo ich die verschiedenen Zeilen ausblockiert habe:
Habe immer die 1. Zeile, bei der die Meldung kam geblockt und dann wieder ausgeführt. Lustigerweise hat es bei 2 Spalten mittendrin keine Meldung gegeben.


Sub SpaltenAusblenden2006()
Sheets("Effektiv 2006").Activate
Columns("F").EntireColumn.Hidden = True
Columns("H:I").EntireColumn.Hidden = True
Columns("K").EntireColumn.Hidden = True
Columns("M:N").EntireColumn.Hidden = True
Columns("P").EntireColumn.Hidden = True
Columns("R:S").EntireColumn.Hidden = True
Columns("U").EntireColumn.Hidden = True
Columns("W").EntireColumn.Hidden = True
Columns("Y").EntireColumn.Hidden = True
Columns("AA:AB").EntireColumn.Hidden = True
Columns("AD").EntireColumn.Hidden = True
Columns("AF:AG").EntireColumn.Hidden = True
Columns("AI").EntireColumn.Hidden = True
Columns("AK:AL").EntireColumn.Hidden = True
Columns("AN").EntireColumn.Hidden = True
Columns("AP").EntireColumn.Hidden = True
Columns("AR").EntireColumn.Hidden = True
Columns("AT:AU").EntireColumn.Hidden = True
Columns("AW").EntireColumn.Hidden = True
Columns("AY:AZ").EntireColumn.Hidden = True
Columns("BB").EntireColumn.Hidden = True
Columns("BD:BE").EntireColumn.Hidden = True
Columns("BG").EntireColumn.Hidden = True
Columns("BI").EntireColumn.Hidden = True
Columns("BK").EntireColumn.Hidden = True
Columns("BM:BN").EntireColumn.Hidden = True
Columns("BP").EntireColumn.Hidden = True
Columns("BR:BS").EntireColumn.Hidden = True
Columns("BU").EntireColumn.Hidden = True
Columns("BW:BX").EntireColumn.Hidden = True
Columns("BZ").EntireColumn.Hidden = True
Columns("CB").EntireColumn.Hidden = True
Columns("CD").EntireColumn.Hidden = True
Columns("CF:CG").EntireColumn.Hidden = True
Columns("CI").EntireColumn.Hidden = True
Columns("CK:CL").EntireColumn.Hidden = True
Columns("CN").EntireColumn.Hidden = True
´Columns("CP:CQ").EntireColumn.Hidden = True
Columns("CS").EntireColumn.Hidden = True
Columns("CU").EntireColumn.Hidden = True

´Columns("CW").EntireColumn.Hidden = True
´Columns("CY:CZ").EntireColumn.Hidden = True
´Columns("DB").EntireColumn.Hidden = True
´Columns("DD:DE").EntireColumn.Hidden = True
´Columns("DG").EntireColumn.Hidden = True
´Columns("DI:DJ").EntireColumn.Hidden = True
´Columns("DL").EntireColumn.Hidden = True
´Columns("DN").EntireColumn.Hidden = True

End Sub

Sub SpaltenEinblenden2006()
Sheets("Effektiv 2006").Cells.EntireColumn.Hidden = False
End Sub

Vielen lieben Dank für eure Geduld :-). Ist wirklich super von euch.

Grüsse, Nadia

Antwort 24 von JoeKe

Hallo Nadia,

erhälst du die Fehlermeldung auch, wenn du den Code ohne deine ToggleButton ausführst?

Gruß

JöKe

Antwort 25 von JoeKe

Hallo,

mit welcher Excel-Version arbeitest du?
Hast du in den Spalten die Schwierigkeiten machen Kommentare stehen?

Gruß

Antwort 26 von Reaction

Hallo zusammen

Ihr werdet es nicht glauben, aber ich bin höchstwahrscheinlich auf den Fehler gestossen.

Ich wollte grad das Dokument zum Uploaden bereit stellen. Da ich noch einige Kommentare im File hatte, wollte ich diese löschen. Nachdem ich alle gelöscht habe, funktionierte das Ausblenden plötzlich.

Ich hoffe, dass es an dem lag.

Auf jeden Fall versuche ich jetzt noch weitere Spalten auszublenden. Aber es sieht schon mal gut aus bis jetzt.

Ich möchte euch allen recht herzlich für eure supergeniale Hilfe danken. Ich konnte sehr vieles neu dazulernen.

Wünsche allen ein tolles Weekend.

Liebe Grüsse, Nadia

Antwort 27 von Reaction

Hallo Jöke,

Da haben sich unsere Kommentare wohl überschnitten :-).

Genau das wars: die blöden Kommentare.

Wow, bin ich froh, ist das Problem gelöst.

Ohne eure Hilfe wäre ich nie soweit gekommen.

DANKE!

Gruss, Nadia

Antwort 28 von JoeKe

Hallo Nadia,

jeder Zeit gerne wieder.

Schönes Wocheende

JöKe

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: