Dim
cZeilen
As
Excel.Range
Dim
cSpalten
As
Excel.Range
Dim
rngZeilen
As
Excel.Range
Dim
rngSpalten
As
Excel.Range
Set
rngZeilen = Range(
"A2:A5"
)
For
Each
cZeilen
In
rngZeilen
For
Each
cSpalten
In
Range(Cells(1, 2), Cells(1, Columns.Count).
End
(xlToLeft))
Debug.Print cZeilen.Value & vbTab & cSpalten.Value & vbTab & cZeilen.Offset(0, cSpalten.Column - 1).Value
Next
cSpalten
Next
cZeilen