Mehrdeutiger Name
20.03.2016 22:06:03
Helmut
ich wollte aus einem Tutorial ein Makro kopieren:
Dim Zwischenablage As DataObject
Sub TextEinfügen() '19.03.2016 Testvariante mit anderer Datenquelle
Dim Text As String
Dim Data(10)
Dim intI As Integer
'Dataliste erstellen
For intI = 1 To 10
Data(intI) = intI * 7
Next intI
Text = ""
For intI = 1 To 10
Text = Text & " " & Data(intI) & " "
Next
Set Zwischenablage = New DataObject
Text = Tabelle5.Range("A1").Value
With Zwischenablage
.SetText Text
.PutInClipboard
End With
Set Zwischenablage = Nothing
End Sub
Im Original kann ich das Makro modifizieren, alles OK. Wemnn ich es in meine Anwendung einbinde und starte wir die "Zwischenablage" als Dataobjekt nicht akzeptiert mit der Fehlermeldung "Mehrdeutiger Name". Wie kann ich die Mehrdeutigkeit verstehen und abstellen?
Ich würde mich über jede Antwort freuen.
Gruß Helmut