Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Spalte "unsichtbar" ausblenden

Forumthread: Spalte "unsichtbar" ausblenden

Spalte "unsichtbar" ausblenden
22.05.2006 15:37:06
Thomas
hallo forum,
es gibt die möglichkeit blätter unsichtbar auszublenden.
ist das auch bei spalten möglich?
ich weiß, man würde sehen, dass eine spalte fehlt. aber kann ich (ohne blattschutz) die spalte so ausblenden, dass diese nicht eingeblendet werden kann?
liebe grüsse
thomas
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte "unsichtbar" ausblenden
22.05.2006 16:00:28
Reinhard
Hi Thomas,
Option Explicit
Sub Aus()
Application.CommandBars("Format").Controls("Spalte").Controls("Einblenden").Enabled = False
End Sub
Sub Ein()
Application.CommandBars("Format").Controls("Spalte").Controls("Einblenden").Enabled = True
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Spalte "unsichtbar" ausblenden
22.05.2006 16:13:58
Hugo
Hallo,
und was ist mit dem Kontextmenü bei Rechtsklick?
Hugo
AW: Spalte "unsichtbar" ausblenden
22.05.2006 16:33:30
Thomas
wie kann ich bei deinem code die spalte b ansprechen?
kontextmenu geht bei mir leider nichts.
lg thomas
AW: Spalte "unsichtbar" ausblenden
22.05.2006 16:44:38
Thomas
hallo nochmal,
spalte einblenden mit obigen code geht jetzt nicht mehr, ich habe aber noch die möglichkeit mit doppelklick die spalte einzublenden.
das läßt sich wohl nur durch blattschutz unterbinden.
Anzeige
AW: Spalte "unsichtbar" ausblenden
22.05.2006 16:50:56
Reinhard
Hi Hugo,
Sub tt()
Dim bar As CommandBar, n
Set bar = Application.CommandBars("Column")
With bar
For n = 1 To .Controls.Count
If .Controls(n).Caption = "Einb&lenden" Then
.Controls(n).Enabled = False
End If
Next n
End With
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Spalte "unsichtbar" ausblenden
22.05.2006 16:53:56
Thomas
jetzt gehts über die symbolleiste nicht und auch nicht mit doppelklick!!
danke vielmals!
lg thomas
AW: Spalte "unsichtbar" ausblenden
22.05.2006 16:02:56
Klaus
Hallo Thomas,
ich hätte eine Idee für ein dreckiges Workaround:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Columns(1).EntireColumn.Hidden = True Then Exit Sub
Columns(1).EntireColumn.Hidden = True
End Sub

Gruß,
Klaus M.vdT.
P.S.: Frage noch offen, weil ich selbst neugierig auf eine elegantere Lösung bin ;)
Anzeige
AW: Spalte "unsichtbar" ausblenden
22.05.2006 16:11:41
Thomas
des is super!!
vielen dank
Danke für die Rückmeldung! o.T.
22.05.2006 16:38:16
Klaus
.
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum