Office: Spalten Ausblenden über eine Variable

roland889 · 30. September 2014

Hallo,

ich habe mir einen Code geschrieben, der eine bestimmte zelle überprüft. Wenn diese Zelle gleich 0 ist soll diese Spalte plus die Spalte nebendran ausgeblendet werden. Leider klappt das nicht, könnte mir da eventuell eine bitte helfen?

Code:

Sub test()

Dim ws As Worksheet
Dim r As Long 'Spaltenzähler
Dim LastColum As Long
Dim z As Long
Set ws = Sheets("Tabelle1")

LastColum = ws.UsedRange.SpecialCells(xlCellTypeLastCell).Column
z = 3
For r = 3 To LastColum Step 2

If ws.Cells(5, r).Value = 0 Then
z = r + 1

ws.Columns("r:z").EntireColumn.Hidden = True

End If
Next r
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

LG

Roland

:)

Beverly · 1. Oktober 2014

Hi Roland,

versuche es mal so:

Code:

If ws.Cells(5, r).Value = 0 Then
ws.Columns(r).EntireColumn.Hidden = True
ws.Columns(r + 1).EntireColumn.Hidden = True
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hajo_Zi · 1. Oktober 2014

Hallo Roland,

r & z sind numerisch, Columns möchte aber die Buchstaben haben soweit mir bekannt. es wäre auch falsch, ws.Columns(r &":" & z )....

ich kann jetzt nicht testen.
spalte = Left(ActiveCell.Address(True, False), InStr(ActiveCell.Address(True, False), "$") - 1)

chris-kaiser · 1. Oktober 2014

Hallo Hajo,

da hast du Recht,
aber es geht dennoch ohne Buchstaben mit dem Umweg über entirecolumn.

Code:

Sub Spalten_von_bis_als_Zahl()
Dim i As Integer, r As Integer, was As Worksheet
i = 10
r = 20
Set ws = ActiveSheet
With ws
.Range(.Cells(1, i), .Cells(1, r)).EntireColumn.Hidden = True
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

roland889 · 9. Februar 2021

von Beverly

Hi Roland,

versuche es mal so:

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

If ws.Cells(5, r).Value = 0 Then
ws.Columns(r).EntireColumn.Hidden = True
ws.Columns(r + 1).EntireColumn.Hidden = True
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Spalten Ausblenden über eine Variable

Spalten Ausblenden über eine Variable

Spalten Ausblenden über eine Variable

Spalten Ausblenden über eine Variable

Spalten Ausblenden über eine Variable - Similar Threads - Spalten Ausblenden Variable

Spalte unterschiedlich sortieren/ausblenden

VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.

Spalten komfortabler ein- und ausblenden

Office-Skript zum Ausblenden bestimmter Spalten

Office-Skript zum Ausblenden bestimmter Spalten

Spalten anand der Überschriften ansprechen(ein/ausblenden)

Bestimmte Spalten ein und ausblenden lassen