Hallo zusammen
Ich möchte mit dem folgenden Programmstück
alle Felder in denen "Einzeldateien" steht (Spalte"G") zu einem
Bereich zusammenfassen, und ebenso alle Felder in denen "Runtables steht.
Ich wollte nun mit dem Befehl Union die jeweils nächste Zelle zum bisherigen
Bereich hinzufügen. Das klappt auch soweit, allerdings weiss ich nicht
wie ich abfragen kann, ob ein Bereich noch "leer" ist
ISEMPTY oder NOTHING scheint nicht zu klappen.....
Dim reihe As Integer
Dim BerEinzel As Range
Dim BerRun As Range
For reihe = 7 To 6500

Select Case (Range("G" & reihe).Value)

Case "Einzeldatei"
If IsEmpty(BerEinzel) Then
Set BerEinzel = Range("g" & reihe)
Else
Set BerEinzel = Union(BerEinzel, Range("g" & reihe))
End If

Case "Runtable"
If IsEmpty(BerRun) Then
Set BerRun = Range("g" & reihe)
Else
Set BerRun = Union(BerRun, Range("g" & reihe))
End If

Case ""
Exit For
End Select
Next

BerEinzel.Select
BerRun.Select