VBA - Aktive Zeile als "Range" benutzen
18.06.2024 08:22:07
Vhorst
das ist mein erster Beitrag hier, also schon mal vielen Dank für Eure Unterstützung im Voraus. Meine VBA Kenntnisse sind eher rudimentär, also nicht allzu viel erwarten.
Ich habe eine Liste, bei der ich Spalten mit bestimmten Werten ausblenden möchte. Ich habe mir im Internet etwas zusammen gesucht, allerdings muss ich jetzt das Makro jedes Mal händisch anpassen, damit die richtige Zeile als "Range" durchsucht wird.
Sub HidexCols()
Dim cell As Range
For Each cell In ActiveWorkbook.ActiveSheet.Rows("4").Cells
If cell.Value = "x" Then
cell.EntireColumn.Hidden = True
ElseIf cell.Value = "-" Then
cell.EntireColumn.Hidden = True
End If
Next cell
End Sub
Gibt es eine Möglichkeit zu sagen, dass die aktive Zeile automatisch als "Range" ausgewählt wird? Ich möchte also die Liste normal filtern, dann die Zeile aktivieren und dann soll das Makro diese Zeile bearbeiten.
Vielen Dank
Vhorst
Anzeige