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...
|