Option
Explicit
Sub
Demo1()
Dim
rngCsM
As
Excel.Range
Dim
rngCM
As
Excel.Range
Dim
rngCS
As
Excel.Range
With
Worksheets(
"Master"
)
Set
rngCsM = .Range(
"A1"
, .Cells(1, .Columns.Count).
End
(xlToLeft))
End
With
With
Worksheets(
"Tabelle1"
)
For
Each
rngCM
In
rngCsM.Cells
Set
rngCS = .Rows(1).Find(What:=rngCM, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=
False
)
If
Not
rngCS
Is
Nothing
Then
Debug.Print
"Spalte '"
;
CStr
(rngCM);
"' gefunden"
Set
rngCS = .Range(rngCS.Offset(1), .Cells(.Rows.Count, rngCS.Column).
End
(xlUp))
rngCM.Offset(1).Resize(rngCS.Rows.Count).Value = rngCS.Value
Else
Debug.Print
"Spalte '"
;
CStr
(rngCM);
"' nicht gefunden"
End
If
Next
End
With
End
Sub