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