Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte aus einem nicht zusammenhängendem Bereich auslesen

Gruppe

Bearbeiten

Problem

Wie kann ich die Werte aller Zellen eines nicht zusammenhängenden Bereiches über VBA auslesen und in einer MsgBox anzeigen lassen.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub cmdWerteAuslesen_Click()
   Dim rng As Range, rngAct As Range
   Set rng = Range("A1:A4, C1:C4, E1:E4")
   For Each rngAct In rng.Cells
      If IsEmpty(rngAct) Then
         MsgBox "Zelle " & rngAct.Address(False, False) & _
            " ist leer!"
      Else
         MsgBox "Zelle " & rngAct.Address(False, False) & _
            " hat den Wert " & rngAct
      End If
   Next rngAct
End Sub