ich möchte eine Range aus mehreren einzelnen Spalten bilden und verwende hierzu UNION. Beim Lesen der Range erhalte ich aber auch alle anderen Spalten.
Beispiel:
Set rSpalten = Nothing
For iCol = 1 To ws.UsedRange.Columns.Count
If iCol = 2 Or _
iCol = 5 Or _
iCol = 8 Then
If rSpalten Is Nothing Then
Set rSpalten = ws.Cells(1, iCol).EntireColumn
Else
Set rSpalten = Union(rSpalten , ws.Cells(1, iCol).EntireColumn)
End If
End If
Next
Mit rSpalten.Cells(1, 2) erhalte ich statt den Wert aus der ersten Zeile der 3. Spalte statt wie gewünscht den Wert aus der 5. Spalte.