DataObject:PutInClipboard CloseClipboard fehlgesch
Reinhard
es geht zwar um Word 2000 ist aber hier irrelevant *glaub*
In Word koipiere ich eine Spalte einer Word-Tabelle mit Strg+c in die zwischenablage.
In den Zellen der Spalte steht immer Text, dann Zahl:
ABC1
ABC12
ABC6
Wegen späterer Sortierung will ich es aber so haben:
ABC001
ABC012
ABC006
Deshalb lese ich mit nachfolgendem Code die Zwischenablage aus, trenne Text und zahl jedes Elements und füge es dann mit formatierter Zahl wieder zusammen.
Achso, Beim Auslesen der Zwischenablage sind alle Einträge durch vbCrLF getrennt, also füge ich die auch zwischen jedes Element ein.
Will ich nun den Ergebnisstring mit PutInClipBoard in die Zwischenablage schreiben, kommt in der SChreibzeile im Code der Fehler:
Laufzeitfehler ...(lange zahlenreihe)
DataObject:PutInClipboard CloseClipboard fehlgeschlagen
Sub ZahlWandeln() '(ByVal NurZahl As Boolean)
Dim MyData As New DataObject, strSpalte As String, S, N As Long, Pos As Integer
MyData.GetFromClipboard
S = Split(MyData.GetText(1), Chr(13) & Chr(10))
For N = LBound(S) To UBound(S) - 1
For Pos = 1 To Len(S(N))
If Asc(Mid(S(N), Pos, 1)) Danke ^Gruß
Reinhard