Office: Zwischenablage automatisch einfügen

Hallo zusammen,
ich bin neu hier im Forum also erst mal ein freundliches Guude aus Hessen.

Folgendes hab ich vor:
Wenn ich etwas clipkopiere und zwar egal von wo (Internetseite, PDF, ...) soll mir Excel vollautomatisch den Text in die aktuelle Zelle schreiben und eine Zelle tiefer gehen (Oder nach rechts. Kann man ja variabel gestalten).
Also ohne dass ich nach CTRL+C nochmal in Excel rüberwechsle (halt eben vollautomatisch).

Ich hab auch schon was zusammengebaut aber da wird wohl irgendwie Speicher vollgeschrieben und das Ganze funktioniert nicht mehr *eek.gif* .


' ************************************************************
' Benötigt einen Verweis auf die Microsoft Forms 2.0 Objektlibrary
' ************************************************************

Sub ZA_Änderung()
Dim Text1 As String
Dim Text2 As String
Dim newDO As New DataObject

'Application.DisplayAlerts = False

On Error GoTo handleCancel
'Application.EnableCancelKey = xlErrorHandler

newDO.GetFromClipboard
Text1 = newDO.GetText
Text2 = newDO.GetText

While True
While Text1 = Text2
newDO.GetFromClipboard
Text1 = newDO.GetText
Wend

newDO.GetFromClipboard
Text2 = newDO.GetText
ActiveCell = Text2
ActiveCell.Offset(1, 0).Select
Wend

'Application.DisplayAlerts = True

handleCancel:

End Sub


Ich programmiere zwar aber nicht oft in VBA und ich komm hier einfach nicht weiter.
Kann mir jemand sagen was da der Fehler ist oder was ich machen kann/muss ?
Bitte möglichs einfach damit ich das auch verstehe *frown.gif* . Wie gesagt ich mach sonst nicht viel mit VBA.

Danke

:)

 

Hallo,

zwei riesen Probleme stehen da an ...

1. Excel müsste das Clipboard überwachen, ob etwas neues hineinkopiert wurde, das auch in Excel - sinvoll - eingefügt werden kann. Da Excel das nicht kann ... und zusätzlich Excel noch nicht mal etwas mit dem Windows-Clipboard ohne massiven API-Einsatz anfangen kann, rate ich davon ab.
2. Für deinen Code müsstest du ein Userform einfügen, da der sonst nicht funktioniert.

zu 2. : läßt sich leicht beheben, was aber keinerlei Sinn macht, da immer noch 1. nicht gelöst ist.
... und mal ehrlich ... genau dafür, gibt es doch die Tastenkombi Strg+V !!! Geht auch viel schneller, als die Überwachung zu programmieren ... glaub mir.

 

Hallo Flotter Feger,
danke für die Antwort aber die Clipboard-Abfrage ob sich da was geändert hat hab ich ja schon. Ob das dann was sinnvolles ist soll jetzt erst mal egal sein, erst mal muss es grundsätzlich funktionieren (was es ja noch nicht tut) alles Andere kommt dann.
Das Problem scheint irgendwie daran zu liegen dass Speicher vollgeschrieben wird und ich weiß nicht was ich am Programm ändern muss.

Vielleicht ist es auch was ganz anderes aber mit meinen VBA-Kenntnissen komme ich nicht drauf.

Bitte nicht falsch verstehen aber Strg+V soll ja eben automatisiert werden, das ist ja der Sinn der ganzen Sache.

Das mit Userform hab ich nicht verstanden.
Was ist das, was kann das, was ist da anders, usw.

 

Hat sich erledigt, hab was ganz anderes gefunden.
So funktioniert das was ich möchte auch *biggrin.gif* .
ClipboardAutomatSwitch zum ein und Ausschalten, der Rest läuft dann über Timer

' ************************************************************
' Benötigt einen Verweis auf die Microsoft Forms 2.0 Objektlibrary
' ************************************************************

Dim CAauto As Boolean

Sub ClipboardAutomatSwitch()
If Not CAauto Then
CAauto = True
Set clipboard = New MSForms.DataObject
clipboard.SetText ""
clipboard.PutInClipboard
MsgBox "Automatik an"
Call ClipboardAutomat
Else
CAauto = False
MsgBox "Automatik aus"
End If
End Sub

Sub ClipboardAutomat()
If CAauto Then
Set clipboard = New MSForms.DataObject
clipboard.GetFromClipboard
Text = clipboard.GetText
If Text "" Then
ActiveCell = Text
ActiveCell.Offset(1, 0).Select
clipboard.SetText ""
clipboard.PutInClipboard
End If
Application.OnTime Now + TimeValue("00:00:01"), "ClipboardAutomat"
End If
End Sub


Danke und bis zum nächsten Problem