Guten Morgen liebe Forumsmitglieder.

Ich habe ein ein Problem und hoffe es kann mir jemand dabei helfen.

Ich habe ein Makro, welches mit einem CommandButton verknüft ist. Dieses Makro macht eigentlich nichts anderes als Werte von Blatt A zu Blatt B zu kopieren und zwar dann, wenn man den CommandButton (Messprotokoll erstellen) drückt.

Auf dem Arbeitsblatt ("Messprotokoll"), also dem Zielblatt, wird durch den Kopiervorgang die Zelle ("K2") mit den Werten "C", "E", "F", "G", "O" oder "P" gefüllt.

Beim Eintrag "C" oder "E" oder "F" sollen die Zellen (A8:B11) und (A12:B14) miteinander verbunden werden. Im Zellbereich (A8:B11) soll zentriert der Text "Muster 1" und im Zellbereich (A12:B14) der Text "Muster 2" stehen. Des Weiteren soll eine dicke, schwarze Linie (xlEdgeTop) von A12:O12 erstellt werden.

Beim Eintrag "G" oder "O" sollen die Zellen (A8:B12) und (A13:B14) miteinander verbunden werden. Im Zellbereich (A8:B12) soll zentriert der Text "Muster 1" und im Zellbereich (A13:B14) der Text "Muster 2" stehen. Des Weiteren soll eine dicke, schwarze Linie (xlEdgeTop) von A13:O13 erstellt werden.

Beim Eintrag "P" sollen die Zellen (A8:B9) und (A10:B12) miteinander verbunden werden. Im Zellbereich (A8:B9) soll zentriert der Text "Muster 1" und im Zellbereich (A10:B12) der Text "Muster 2" stehen. Des Weiteren soll eine dicke, schwarze Linie (xlEdgeTop) von A10:O10 erstellt werden.

Nun zum Problem:

In dem Makro für den Kopiervorgang liegt ja bereits ein Sub ( Public Sub CopyRegion_Messprotokoll() ) und die Zelle K2 muss ja auch erstmal befüllt werden, damit der Wert aus Zelle K2 ausgelesen werden kann. 

Meine Idee: 

Kopiere zuerst den Wert in Zelle K2

Public Sub CopyRegion_Messprotokoll()
  Worksheets("Messprotokoll").Cells(2, 11).Value = Worksheets("Parameter").Cells(6, 4).Value         

 bau jetzt irgendwie die Abfrage in den bestehenden Sub

... kopiere weiter

End Sub

Für Hilfe wäre ich wirklich sehr sehr dankbar!