Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Abfrage der markierten Spalten

Gruppe

Bereich

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