Gruppe
Allgemein
Problem
Wie kann ich die Werte aller Zellen eines nicht zusammenhängenden Bereiches über VBA auslesen und in einer MsgBox anzeigen lassen.
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