Spalten ausblenden per Makroaufzeichnung fehlerhaft

[DieMarie]

Hallo Leute,

ich habe hier ein Tabellenblatt und habe über ein Makro u.a. 3 Spalten ausgeblendet.

Code:

   Columns("D:F").EntireColumn.Hidden = True

Eigentlich nur Spalte D-F.
Wenn ich das Makro ausführe wird aber D-R ausgeblendet --> also viel zu viel.
Im Code wird definitiv sonst nichts ausgeblendet.
Ich habe ein gegenläufiges Makro zum einblenden, das funktioniert richtig.

[Käpt'n Blaubär]

Hallo,

Ich habe ein gegenläufiges Makro zum einblenden, das funktioniert richtig.

dann zeige sie doch mal, Deine beiden Makros. klar, es wird in Deiner uns vorgestellten Codezeile
der von Dir gewünschte Spaltenbereich ausgeblendet, aber was spielt sich sonst noch so ab?
Und was heißt bei Dir gegenläufig? Spielen die beiden Makros Autobahn?

[MisterBurns]

Im Code wird definitiv sonst nichts ausgeblendet.

Das kann und will ich nicht glauben...

Wenn es tatsächlich deine einzige Codezeile in der ganzen Mappe sein sollte, dann versuche mal zur Probe

Code:

For i = 4 to 6
    Columns(i).Hidden = True
Next i

EDIT: Ach ja, und lass mal den kompletten Code schrittweise mit F8 durchlaufen (ohne, dass Screenupdating = False gesetzt ist). Dann siehst du ja ganz genau was wo mit welcher Codezeile passiert.

[DieMarie]

Erledigt.

[DieMarie]

@MisterBurns mit deinem Code funktioniert es einwandfrei. Wenn ich das durch die select Anweisung von mir ersetze blendet er zu viel aus.
Das muss auch niemand verstehen?

 For i = 4 to 6
    Columns(i).Hidden = True
Next i


Vielen Dank für die Hilfe :)

[Käpt'n Blaubär]

Hallo Marie,

hätte ich früher bemerkt, wem ich hier antworte, dann ...
Na ja, so ist es aber nun mal gelaufen.
Hier mal eines meiner "Uraltschätzchen aus den unergründlichen Tiefen meiner Festplatten".
Es werden Spaltengruppen aus und eingeblendet und ... es funktioniert.

[Käpt'n Blaubär]

Hallo Marie,

sorry, ja, ja, meine schnellen Fingerchen, ... aber nun kommt sie, die Datei

[DieMarie]

hätte ich früher bemerkt, wem ich hier antworte, dann ...
Na ja, so ist es aber nun mal gelaufen.

Was soll das denn heißen?

Den Sinn deiner Beispieldatei verstehe ich nicht.

Ich habe zum Verständnis mal alle Rahmen eingeblendet damit ihr euch ein Bild machen könnt.

Ich verstehe immer noch nicht, weshalb mein Code nicht funktioniert hat.
Ist aber auch relativ egal, da es mit der For Schleife von MisterBurns funktioniert.

   

[Käpt'n Blaubär]

Hallo Marie,

Das muss auch niemand verstehen?

 For i = 4 to 6
    Columns(i).Hidden = True
Next i

mir scheint, Du machst Dir das Leben zu einfach.

in dem Code steht doch nichts anderes als:

von
Spalte 4 ... wobei die 4 für den 4. Buchstaben im Alphabet, also "D" steht
bis
Spalte 6 ... wobei, Du ahnst es sicher schon, für den Buchstaben "F" steht
sollen die Spalten, also die Spalten D bis F ausgeblendet werden.
Was natürlich, Deiner Aussage gemäß: Das muss auch niemand verstehen?
niemand verstehen kann.

[Kuwer]

Wenn ich das durch die select Anweisung von mir ersetze blendet er zu viel aus.

Dann gibt es mindestens eine verbundene Zelle über mehrere Spalten!

Gruß Uwe