Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1860to1864
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Typen umverträglich

Typen umverträglich
14.12.2021 11:29:01
Georg
Liebe Mitglieder,
ich bin viel zu selten in VBA unterwegs, so dass ich immer wieder aufs Neue an einfachen Dingen scheitere.
Der Code bleibt bei .Columns(rng).EntireColumn.Hidden = True stehen mit der Fehlermeldung Typen unverträglich. Ich komme leider nicht dahinter, was ich ändern muss. Danke für die Unterstützung Georg

Sub Ausblenden()
Dim i As Integer
Dim wsh As Worksheet
Dim rngP As range, rngS As range, rng As range
Set rngP = range("P:Q")
Set rngS = range("S:W")
Set rng = Application.Union(rngP, rngS)
For i = 2 To 13
With ThisWorkbook.worksheets(i)
.Columns(rng).EntireColumn.Hidden = True
End With
Next i
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Typen umverträglich
14.12.2021 11:36:21
Jörg
ich würde vermuten:
rng ist ein Range
.Columns(rng) will aber ein int
AW: Typen umverträglich
14.12.2021 11:38:29
Klaus
Hi Georg,
ich würde das so machen. In deinem Code bezieht sich rngP und rngS immer auf das activesheet, ich nehme aber an du möchtest es auf jedes Worksheet 2-13 beziehen.

Sub Ausblenden()
Dim i As Integer
Dim wsh As Worksheet
Dim rngP As Range, rngS As Range
For i = 2 To 13
With ThisWorkbook.Worksheets(i)
Set rngP = .Range("P:Q")
Set rngS = .Range("S:W")
rngP.EntireColumn.Hidden = True
rngS.EntireColumn.Hidden = True
End With
Next i
End Sub
LG,
Klaus M.
Anzeige
AW: Typen umverträglich: Vielen Dank Klaus...
14.12.2021 11:49:17
Georg
für den Hinweis, funktioniert jetzt wunderbar. Gruß G
AW: Spalten ausblenden
14.12.2021 16:51:58
GerdL
Moin,
weil nichts gelöscht, sondern nur ausgeblendet wird, kann man den Code noch etwas bündeln.

Sub Unit()
Dim i As Integer
For i = 2 To 3
ThisWorkbook.Worksheets(i).Range("P:Q,S:W").EntireColumn.Hidden = True
Next
End Sub
Gruß Gerd

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige