Ich verstehe absolut gar nichts von diesem VBA. Ich will nur kochen.
Option Explicit
Public Sub test()
Const BOX_NAME As String = "Textfeld 1"
Dim objTextBox As Excel.TextBox
Dim dblLeft As Double, dblTop As Double
For Each objTextBox In Sheets("Pizza").TextBoxes
With objTextBox
If .Name = BOX_NAME Then
dblLeft = .Left
dblTop = .Top
Call .Delete
Exit For
End If
End With
Next
If objTextBox Is Nothing Then
Call MsgBox("TextBox mit diesem Namen wurde " & _
"nicht gefunden...", vbExclamation)
Else
Application.ScreenUpdating = False
Call Sheets("Rezept").TextBoxes(BOX_NAME).Copy
Call Sheets("Pizza").Paste
If TypeName(Selection) = "TextBox" Then
With Selection
.Left = dblLeft
.Top = dblTop
End With
End If
Set objTextBox = Nothing
Application.ScreenUpdating = True
End If
End Sub
Funktioniert nicht. "TextBox mit diesem Namen wurde nicht gefunden..."
Funktioniert 1 mal wenn ich ein neues Excel Dokument aufmache und alles reinkopiere zum Test. Dann klappt es nur 1 mal, danach bekomme ich die Fehlermeldung "TextBox mit diesem Namen wurde nicht gefunden..." und wenn es das eine mal klappt, dann ist die Textbox da wo meine Maus war.
Ich will doch nur, dass die eine Textbox die andere 1:1 am Zielort ersetzt. :(
|