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