Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub SelectionColumns()
   Dim iCol As Integer
   Dim sMsg As String
   For iCol = 1 To 256
      If Not Intersect(Selection, Columns(iCol)) Is Nothing Then
         sMsg = sMsg & iCol & ","
      End If
   Next iCol
   MsgBox "Markiert: " & Left(sMsg, Len(sMsg) - 1)
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bereich