Hallo,

...hab noch n Bonus, so is noch schnuckeliger, das andere Modul bleibt so....

' **********************************************************************
' Modul: Modul4 Typ: Standardmodul
' **********************************************************************

Option Explicit
Option Private Module

Private Const GC_TAB_NAME As String = "Zubereitung"

Public Sub prcRefreshBoxes(ByVal pvstrBoxChoice As String)
Dim objTextBox As Excel.TextBox
Dim avntZubereitung1() As Variant, avntZubereitung2() As Variant
Dim adblLeft(1) As Double, adblTop(1) As Double
Dim ialngIndex As Long
avntZubereitung1 = Array("Textfeld 1", "Textfeld 2")
avntZubereitung2 = Array("Textfeld 3", "Textfeld 4")
With Worksheets("Pizza")
    For Each objTextBox In .TextBoxes
       For ialngIndex = 0 To 1
           With objTextBox
                If .Name = avntZubereitung1(ialngIndex) Then
                   adblLeft(ialngIndex) = .Left
                   adblTop(ialngIndex) = .Top
                   Exit For
                End If
           End With
       Next
       If ialngIndex = 1 Then Exit For
    Next
    Call .TextBoxes(avntZubereitung1).Delete
End With
If objTextBox Is Nothing Then
  Call MsgBox("TextBoxen mit diesem Namen wurde " & _
     "nicht gefunden...", vbExclamation)
Else
  If pvstrBoxChoice = GC_TAB_NAME & "1" Then
    Call prcInsertBoxes(pravntBoxNames1:=avntZubereitung1(), _
      pradblLeft:=adblLeft(), pradblTop:=adblTop())
  Else
    Call prcInsertBoxes(pravntBoxNames1:=avntZubereitung1(), _
        pradblLeft:=adblLeft(), pradblTop:=adblTop(), opvavntBoxNames2:=avntZubereitung2())
  End If
  Set objTextBox = Nothing
End If
End Sub

Private Sub prcInsertBoxes(ByRef pravntBoxNames1() As Variant, _
   ByRef pradblLeft() As Double, ByRef pradblTop() As Double, _
   Optional ByVal opvavntBoxNames2 As Variant)
  Dim avntArray() As Variant
  Dim ialngIndex As Long
  If IsMissing(opvavntBoxNames2) Then
     avntArray() = pravntBoxNames1()
  Else
     avntArray() = opvavntBoxNames2
  End If
  Call Worksheets(GC_TAB_NAME).TextBoxes(avntArray()).Copy
  Call Worksheets("Pizza").Paste
  For ialngIndex = 0 To 1
     If TypeOf Selection Is Excel.DrawingObjects Then
       With Selection.Item(ialngIndex + 1)
           .Left = pradblLeft(ialngIndex)
           .Top = pradblTop(ialngIndex)
           .Name = pravntBoxNames1(ialngIndex)
       End With
     Else
       Call MsgBox("Auswahl konnte nicht bestimmt werden...", vbExclamation)
     End If
  Next
End Sub

Gruß, und ich warte auf mein Pizzen-Abo, nich vergessen...