Gruppe
Allgemein
Problem
Wie kann ich über VBA abfragen, welche Spalten in einer Mehrbereichsauswahl markiert sind?
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