Hilfe bei erweiterung Macro

[M.Wichmann]

Hallo, der reagiert nicht bzw es passiert nix weiter, und die Msg kommt immer noch.

Edit: habe meins wieder aktiviert und läuft.

Worksheets("Temp").Range("A2").Paste das funzt leider ned

[Steffl]

Hallo,

dann halt wieder im Einzelschrittmodus (falls es an meiner Paste-Einfügung liegt, dann lösch halt diese Codezeile und kommentiere die darüberliegenden 3 Codezeilen wieder ein).

Code:

Public Sub TextFromClipr()
  'Variablendeklarationen
  'Objekt, Variant, Long
  Dim oData As New DataObject, arrData, iCnt&
  'Bei Fehler gehe zu Fehlerbehandlung
  'z.B. Grafik statt text
  
  
  Stop 'kennst Du ja schon
  
  On Error GoTo errorhandler
  'Daten aus der Zwischenablage holen
  oData.GetFromClipboard
  'Daten anhand Zeilenvorschub in Array splitten
  arrData = Split(oData.GetText, vbLf)
  'Schleife ueber alle Elemnte des Arrays
  For iCnt = 0 To UBound(arrData)
     'Wenn der Kennstring enthalten ist, dann
     If InStr(1, arrData(iCnt), "Lieferabruf nach VDA-Norm 4905") > 0 Then
      
'      Einfügen des Abrufes in Temp
'       Sheets("Temp").Select
'       Range("A2").Select
'       ActiveSheet.Paste
       'ohne selektieren
       Worksheets("Temp").Range("A2").Paste
     'Ende Wenn der Kennstring enthalten ist, dann
     Exit For
     End If
  'Ende Schleife ueber alle Elemnte des Arrays
  Next
  Exit Sub
errorhandler: MsgBox ("Es ist kein Abruf in der Ablage")
End Sub

[M.Wichmann]

Du hast wahrscheinlich mein Edit oben nicht mitbekommen.

Habe meins wieder aktiviert und läuft. Es lag an deinem Paste.

Aber jetzt scheint er Probleme zu haben wenn irgend ein Text in Zwischenablage ist.

Bei Irgendwelchen Elementen bricht er ab und Meldung kommt. Aber bei Texten passiert nix. Im Schrittmodus läuft das unten 2 runden und dann beendet er.

Nicht optimal aber sollte gehn, besser als das er irgendwas da reinschreibt. Und im Normalfall sollte ja nich anderes in Ablage sein.

[M.Wichmann]

Hallo, ich habe mal meine Testdatei, mit der ich am rumspielen bin hochgeladen.