VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte aus einem nicht zusammenhängendem Bereich auslesen

Gruppe

Allgemein

Bereich

Bearbeiten

Thema

Werte aus einem nicht zusammenhängendem Bereich auslesen

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

    


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