Public
Sub
CopyRegion_Messprotokoll()
With
Worksheets(
"Messprotokoll"
)
.Cells(2, 11).Value = Worksheets(
"Parameter"
).Cells(6, 4).Value
.Range(
"A8:B14"
).MergeCells =
False
.Range(
"A8:O14"
).Borders(xlInsideHorizontal).LineStyle = xlNone
.Range(
"A8:B14"
).ClearContents
Select
Case
UCase(.Range(
"K2"
))
Case
"C"
,
"E"
,
"F"
.Range(
"A8:B11,A12:B14"
).MergeCells =
True
.Range(
"A8"
).Value =
"Muster 1"
.Range(
"A12"
).Value =
"Muster 2"
.Range(
"A8:B11"
).VerticalAlignment = xlCenter
.Range(
"A12:B14"
).VerticalAlignment = xlCenter
With
.Range(
"A12:O12"
).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End
With
Case
"G"
,
"O"
.Range(
"A8:B12,A13:B14"
).MergeCells =
True
.Range(
"A8"
).Value =
"Muster 1"
.Range(
"A13"
).Value =
"Muster 2"
.Range(
"A8:B12"
).VerticalAlignment = xlCenter
.Range(
"A13:B14"
).VerticalAlignment = xlCenter
With
.Range(
"A13:O13"
).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End
With
Case
"P"
.Range(
"A8:B9,A10:B12"
).MergeCells =
True
.Range(
"A8"
).Value =
"Muster 1"
.Range(
"A10"
).Value =
"Muster 2"
.Range(
"A8:B9"
).VerticalAlignment = xlCenter
.Range(
"A10:B12"
).VerticalAlignment = xlCenter
With
.Range(
"A10:O10"
).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End
With
End
Select
End
With
End
Sub