Laufzeitfehler 438
23.10.2022 16:20:42
RIchard
Ich hab folgenden Code in einem Forum gefunden, welcher mir die Spalten Ein/Ausblendet. Der Code ist für formatierte Tabellen geschrieben. Ich nehme an, dass dies der Grund ist, wesshalb der bei mir nicht läuft. Die ListenObjekte machen mir Probleme, weil ich meinem Code ohne formatierte Tabellen / Objekte verwenden möchte. Die Objekte "Auftraege" & "tblAuftraege" möchte ich über Bereiche definieren.
---Ursprünglicher Code----
Private Sub UserForm_Initialize()
Dim header As Variant
Dim i As Long
Dim Spaltenzahl As Long
EnableEvents = False
'Listbox mit Tabellenheader füllen
For Each header In Auftraege.ListObjects("tblAuftraege").HeaderRowRange
ListBox1.AddItem header
'Sichtbarkeit der Spalten in ListBox darstellen
Spaltenzahl = Auftraege.ListObjects("tblAuftraege").ListColumns(CStr(header)).Range.Column
If Columns(Spaltenzahl).EntireColumn.Hidden = False Then
ListBox1.Selected(i) = True
End If
i = i + 1
Next header
EnableEvents = True
End Sub
Private Sub UserForm_Initialize()
Dim header As Variant
Dim i As Long
Dim Spaltenzahl As Long
EnableEvents = False
'Listbox mit Tabellenheader füllen
For Each header In Range(Cells(14, 1), Cells(14, 74))
ListBox1.AddItem header
'Sichtbarkeit der Spalten in ListBox darstellen
Spaltenzahl = Overview.ListObjects(Range(Cells(14, 1), Cells(300, 74))).ListColumns(CStr(header)).Range.Column
If Columns(Spaltenzahl).EntireColumn.Hidden = False Then
ListBox1.Selected(i) = True
End If
i = i + 1
Next header
EnableEvents = True
End Sub
Ich hoffe ihr könnt mir dabei helfen.
Liebe Gruess
Richi
Anzeige