Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spalten beim Aktivieren der Tabelle ausblenden

Spalten beim Aktivieren der Tabelle ausblenden
28.09.2003 10:04:41
Fritz
Hallo und guten Morgen VBA-Experten,
wer kann mir dabei helfen, in einer meiner Excel-Mappen folgendes zu realisieren:
Ich möchte erreichen, dass in einem Tabellenblatt, in diesem Fall der Tabelle "AW3" bestimmte Spalten eines Bereichs immer beim Aktivieren der Tabelle ausgeblendet, nach dem Verlassen der Tabelle aber wieder alle Spalten eingeblendet sind. Ausgeblendet werden sollen die Spalten im Bereich von Spalte C bis Spalte AK, wenn in diesen Spalten beim Öffnen in der Zeile 11 ein "x" eingetragen ist.
Für eure Hilfe danke ich im Voraus.
Mfg
Fritz

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten beim Aktivieren der Tabelle ausblenden
28.09.2003 10:17:07
Nepumuk
Hallo Fritz,
folgenden Code in das Klassenmodul der Tabelle:


Option Explicit
Private Sub Worksheet_Activate()
Dim spalte As Integer
For spalte = 3 To 37
If Cells(11, spalte) = "x" Then Columns(spalte).Hidden = True
Next
End Sub
Private Sub Worksheet_Deactivate()
Dim spalte As Integer
For spalte = 3 To 37
Columns(spalte).Hidden = False
Next
End Sub



Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige
AW: Spalten beim Aktivieren der Tabelle ausblenden
28.09.2003 10:23:27
Fritz
Hallo Nepumuk,
vielen Dank für die schnelle und kompetente Hilfe.
Gruß und schönen Sonntag noch
Fritz

301 Forumthreads zu ähnlichen Themen


Hallo an die guten Geister,
hab mal wieder ein Problem.
In der angeängten Datei in B41 hatte ich das Problem das nicht der Text angezeigt wird sondern die Formel.
https://www.herber.de/bbs/user/54704.xls
Habe ich dadurch gelöst das ich das Selbe noch mal in einer anderen Datei...

Hallo Leute,
folgendes Problem tritt bei mir auf: ich habe auf einem Tabellenblatt ein relativ großes Textfeld. Dieses geht nicht über die von Excel angezeigten Seitenränder hinaus. Trotzdem wird nicht alles gedruckt. Andere Grafiken, wie näher am Rand sind, werden aber gedruckt. Das was vo...

Hallo,
Ist es möglich beim drucken eines Tabellenblattes die kleinen roten Dreiecke, die das vorhandenseins eines Kommentars anzeigen, mitzudrucken?
Ich weiss natürlich dass man die Kommentare als solches drucken kann, allerdings interessiert mich wirklich nur, ob es einen Kommentar gib...

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige