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