Gruppe
Allgemein
Bereich
Bereich
Thema
Abfrage der markierten Spalten
Problem
Wie kann ich über VBA abfragen, welche Spalten in einer Mehrbereichsauswahl markiert sind?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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