Spaltenansicht per Makro definieren

Hallo liebe Community,
ich habe in einem alten Thread dieses Forums entdeckt, dass man sich seine Spalten variabel anzeigen lassen kann via Makro.
https://www.herber.de/forum/archiv/908to912/909674_nur_bestimmte_Spalten_anzeigen_per_Makro.html#910253
Leider ist es mir nicht gelungen unter jenen Post zu kommentieren.
Ich habe versucht jenes Makro (inkl. UserForm) zu kopieren - ich habe die Bezeichnung fürs Worksheet entsprechend angepasst), leider hat dies nicht funktioniert.
Könnte mir jemand helfen?
Ich versuche gleich noch meine Datei hochzuladen. Mir wird immer angezeigt, dass meine Zugangsdaten nicht korrekt sind (beim Datei-Upload zum Server). Allerdings bin ich mir ziemlich sicher, dass die eingegebene Daten korrekt sind.
Ich verwende Office 365.
Liebe Grüße
Tobi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hajo und vielen Dank für deine Hilfe.
Hier die Originaldatei in anonymisiert, wie in deinem Link beschrieben:
https://www.herber.de/bbs/user/134464.xlsm
Könntest du mir denn trotzdem helfen, indem du anhand meiner Datei mal schaust, wie man es via Makro realisieren kann?
Ich würde gerne auf eine Schaltfläche klicken, wobei sich dann ein Fenster öffnet, in dem ich die Spalten auswählen kann, welche nur noch angezeigt werden sollen.
Hintergrund ist, dass ich als Ersteller alle Spalten sehen will. Später für die Abrechnung dann nur noch bestimmte Spalten. Ich möchte also immer Spalten ein- und wieder ausblenden können bzw. die Tabelle halt verkürzen.
Ich hoffe meine Fragestellung ist verständlich.
Vielen lieben Dank,
Tobi

Private Sub CommandButton1_Click() Dim i As Long, z As Long, oCntrl As Control Application.ScreenUpdating = False For Each oCntrl In Me.Controls If TypeOf oCntrl Is msforms.CheckBox Then z = z + 1 End If Next oCntrl With Worksheets("Abrechnungstabelle") For i = 1 To z .Columns(i).Hidden = Not (Me.Controls("CB" & i)) Next i ActiveWindow.ScrollColumn = 1 Application.ScreenUpdating = True End With End Sub

Private Sub UserForm_Activate() Dim oCB As msforms.CheckBox Dim rng As Range Dim intT As Integer, intL As Integer intL = 18 For Each rng In Sheets("Abrechnungstabelle").Range("A1:AA1") Set oCB = Me.Controls.Add("Forms.CheckBox.1") intT = intT + 25 If intT > 230 Then intT = 25 intL = intL + 94 End If With oCB .Caption = rng.Text .Top = intT .Left = intL .Height = 25 .Width = 90 .Value = Not rng.EntireColumn.Hidden .Name = "CB" & rng.Column End With Next End Sub

Beliebteste Forumthreads (12 Monate)

Spaltenansicht per Makro definieren

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spaltenansicht per Makro definieren

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread