VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Abfrage der markierten Spalten

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

    


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