Sub Spalte_Offset_Start() Application.ScreenUpdating = False Dim lngSp As Long Dim strAdr As String Dim lngCnt As Long Dim strErg As String lngSp = ActiveCell.Column - 1 ' Erfasste Spaltennummer strAdr = ActiveSheet.Cells(1, lngSp).Address ' Aus Spaltennummer ermittelte Adresse lngCnt = InStr(2, strAdr, "$") - 1 ' Ermittlung des zweiten $-Zeichens in der Zelladresse strErg = WorksheetFunction.Substitute(Left(strAdr, Len(strAdr) - (Len(strAdr) - lngCnt)), "$", "") ' Extrahieren der Spalten-Buchstaben aus Zelladresse ActiveSheet.Range("AI33").Value = strErg ' Ausgabe der reinen Spaltenbuchstaben Dim c As Range, cL As Range For Each c In Range("AR" & ActiveCell.Row & ":" & strErg & ActiveCell.Row).SpecialCells(xlCellTypeVisible) Set cL = c Do Set cL = cL.Offset(0) Loop Until Not cL.EntireColumn.Hidden cL.Select Next c End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen