Hallo Bifi
mache es einfach so
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address = "$A$3" Then
Select Case .Value
Case "Napoletana (Original)": Call Pizza1
Case "T.G. Master Dough (Poolish)": Call Pizza2
Case "T.G. Napoletana (Poolish)": Call Pizza3
End Select
End If
If .Address = "$A$10" Then
Select Case .Value
Case "Zubereitung1"
Simple 1, 1
Simple 2, 2
Case "Zubereitung2"
Simple 1, 3
Simple 2, 4
End Select
End If
End With
End Sub
Private Sub Simple(vTo, vFrom)
Sheets("Zubereitung").Shapes.Range(Array("TextBox 1", "TextBox 2", "TextBox 3", "TextBox 4")).Item(vFrom).TextFrame2.TextRange.Copy
Sheets("Pizza").Shapes.Range(Array("Textfeld 1", "Textfeld 2")).Item(vTo).TextFrame2.TextRange.Paste
End Sub
|