VBA einfügen aus Zwischenablage wenn....

Question

Hallo mal wieder,

ich arbeite gerade an einem neuen Projekt und komme nicht weiter.

Hier ist was ich vor habe:
- Der Nutzer kopiert den Text einer pdf-Datei in seine
Zwischenablage
- In meiner Excel Datei startet er das Makro.
- Es soll in seiner Zwischenablage die Teile Text in das
Tabellenblatt einfügen die eine bestimmte Bedingung erfüllen (z.B.
ein Schlüsselwort)

Ich könnte natürlich alles einfügen und dann die Zellen/Zeilen
löschen die nicht den Bedingungen entsprechen. Leider dauert das
Löschen von Zellen (Bewegen von Zellen) in meiner Datei derzeit
sehr lange (ich nehme an es hängt mit der relativ hohen Anzahl
bedingter Formattierungen zusammen dass sich leider noch nicht
ändern lässt. Deshalb möchte ich die Menge an Daten minimieren
schon bevor sie in der Arbeitsmappe landet.

Hat irgendjemand eine Idee wie ich die Zwischenablage
durchgehen und auf meine Bedinungen überprüfen kann?

Danke und beste Grüße,
critchm

Answer 1

Hi,

benutze ein Hilfs-Tabellenblatt, welches nur die Daten aufnimmt, die du dann entsprechend bearbeitest und anschließend in dein eigentliches Tabellenblatt überträgst.

Bis später,
Karin

Answer 2

Hallo critchm,
nur so eine Idee mit einem Makro (InputBox)
Mit dem Makro wird die Zwischenablage in die InputBox eingefügt,
und kann geändert werden. Mit dem "OK" wird der Inhalt in die nächste leere Zelle in der Spalte C eingefügt.
Wenn die InputBox zu klein ist, könnte man es ja mit einer UserForm versuchen.

Gruß
fedjo

Option Explicit
Sub Zwischenablage()
Dim strInbox As String
strInbox = InputBox("Bitte Text ändern", Default:=ZwischenAblage2String)
Range("C" & Range("C65536").End(xlUp).Row + 1).Value = strInbox
End Sub
Function ZwischenAblage2String() As String
Dim TestDaten As DataObject
Set TestDaten = New DataObject
TestDaten.GetFromClipboard
ZwischenAblage2String = TestDaten.GetText(1)
End Function

Answer 3

Hallo Karin, hallo fedjo,

ich hab es jetzt geloest indem ich den gesamten Inhalt der
Zwischenablage mit GetText in einen String schreibe und diesen
dann mit Mid und Instr durchgehe um die Teile zu finden die
meinen Bedingungen entsprechen.

Danke trotzdem fuer eure Hilfe!

Beste Gruesse,
critchm