Option
Explicit
Sub
Schleife()
Const
BEGINN_H
As
String
=
"H4"
Const
NAME_D
As
String
=
"D16"
Const
PINS_C
As
String
=
"C26"
Const
PLATZ_B
As
String
=
"B28"
Const
DATUM_C
As
String
=
"C45"
Const
MANAGER_F
As
String
=
"F45"
Const
GEBU_KIND
As
String
=
"C22"
Const
GEBU_NAME
As
String
=
"I1"
Const
N_MANAGER
As
String
=
"SuperMario"
Dim
c
As
Range
Set
c = Range(BEGINN_H).Offset(1)
Do
c.Copy Destination:=Range(PLATZ_B)
c.Offset(, 1).Copy Destination:=Range(PINS_C)
c.Offset(, 2).Copy Destination:=Range(NAME_D)
Range(GEBU_KIND).Value = Range(GEBU_NAME)
If
Range(NAME_D).Value = Range(GEBU_NAME)
Then
_
Range(GEBU_KIND).Value =
""
IgnorePrintAreas:=
False
Set
c = c.Offset(1)
Loop
Until
c.Value =
""
End
Sub