Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
18.04.2024 15:13:44
Text ans untere Ende der Seite verschieben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1804to1808
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1804to1808
1804to1808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aus UserForm1.WebBrowser1 in Zwischablag

Aus UserForm1.WebBrowser1 in Zwischablag
17.01.2021 15:48:02
Chris
Hallo, nachdem meine erste Anfrage vielleicht missverständlich war, hier nochmals mit einer präziseren ANFRAGE.
(Vielleicht kann ein ADMIN meinen ersten Beitrag entsprechend mit diesem Verschmelzen oder den Betreff ändern?!? DANKE.)
In einem UserForm1.WebBrowser1 läuft PDF-XChangeEditor. In diesem ist ein Wort eines PDFs von mir markiert worden.
Ich möchte nun auf dem UserForm1 einen Button haben, mit dem dann dieses Wort im CODE weiterverarbeitet wird. Kriege das nicht hin... Selbst mit Sendkeys "^c" klappt es nicht, da der Fokus anscheinend durch drücken des Buttons nicht mehr im WebBrowser2 liegt.
Kann ich den nicht irgendwie direkt ansprechen?
Etwa UserForm1.WebBrowser1.Selection.Copy ?!?...
DANKE FÜR JEDEN TIPP oder anderen Lösungsweg

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aus UserForm1.WebBrowser1 in Zwischablag
17.01.2021 17:19:58
Nepumuk
Hallo Chris,
der "richtige Befehl" lautet:
WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT

Das funktioniert aber in Excel nicht, und das schon seit der Version 2000.
Setz mal die Eigenschaft "TakeFocusOnClick" des Buttons auf False, dann sollte SendKeys funktionieren.
Gruß
Nepumuk
AW: Aus UserForm1.WebBrowser1 in Zwischablag
17.01.2021 21:10:10
Chris
Lieber Nepumuk,
Vielen Dank für Deine Antwort. Habe, wie vorgeschlagen, die Eigenschaft "Take FocusOnClick" des Buttons auf FALSE gesetzt. Es mag aber nicht klappen :-(
Hier mein CODE:
Private Sub CommandButton4_Click()
Markierten_Text_Als_Keyword_Aufnahmen
End Sub
Sub Markierten_Text_Als_Keyword_Aufnahmen()
Dim objDataObject As DataObject
Application.SendKeys "^{c}"
Set objDataObject = New DataObject
objDataObject.GetFromClipboard
MsgBox (objDataObject.GetText)
Set objDataObject = Nothing
End Sub

Hast Du noch eine Idee?
DANKE... Bin ratlos...
VG und DANKE
Anzeige
AW: Aus UserForm1.WebBrowser1 in Zwischablag
17.01.2021 21:12:36
Nepumuk
Hallo Chris,
so:
Application.SendKeys "^c"
Gruß
Nepumuk
AW: Aus UserForm1.WebBrowser1 in Zwischablag
17.01.2021 21:22:43
Chris
DANKE... Hatte immer "^c", erst zum Schluss dachte ich, vielleicht liegts am {c}.
Aber egal ob Application.SendKeys "^{c}" oder Application.SendKeys "^c"
GEHT immer noch nicht :-(.
Die MsgBox zeigt nur den Text aus der Zwischenablage von meinem vorherigen WORD-Vorversuch, wo ich "1243" in die Zwischenablage kopiere...
Also Sendkeys "^c" kopiert im Userform1 nichts in die Zwischenablage...
Auch wenn ich in einer TextBox1 des UserForm1 einen Teil des Textes auswähle und dann den Button drücke ...
Anzeige
AW: Aus UserForm1.WebBrowser1 in Zwischablag
17.01.2021 21:41:14
Nepumuk
Hallo Chris,
teste mal:
Private Sub CommandButton1_Click()
    Dim objDataObject As DataObject
    Application.SendKeys "^c", True
    DoEvents
    Set objDataObject = New DataObject
    objDataObject.GetFromClipboard
    MsgBox (objDataObject.GetText)
    Set objDataObject = Nothing
End Sub

Gruß
Nepumuk
Anzeige
AW: Aus UserForm1.WebBrowser1 in Zwischablag
17.01.2021 21:50:41
Chris
Hallo Nepumuk,
1. Ich markiere ein Wort der TextBox1 ("Wort1"). KLAPPT PERFEKT:-). MsgBox zeigt "Wort1".
2. Nun markieren ich ein Wort im PDF ("Wort2). KLAPPT NICHT. Es wird wieder "Wort1" angezeigt.
3. Nun markieren ich ein anderes Wort im PDF ("Wort3). KLAPPT NICHT, MsgBox zeigt nun "Wort2".
Verstehst du das? Also irgendwie im PDF um eins verzögerte?
AW: Aus UserForm1.WebBrowser1 in Zwischablag
17.01.2021 21:53:02
Nepumuk
Hallo Chris,
kann ich nicht nachvollziehen.
Gruß
Nepumuk
AW: Aus UserForm1.WebBrowser1 in Zwischablag
17.01.2021 22:04:45
Chris
Lieber Nepumuk,
Das Verrückte ist, wenn ich im CODE in der Zeile 

Set objDataObject = New DataObject
eine STOPP einbaue, so dass VBA in den CODE hüpft... ich aber den CODE sofort wieder weiterlaufen lasse, dann klappt alles!!!
Ist das nicht komisch? Es hängt sich dann auch nicht auf und der markierte Text wird korrekt kopiert und in der MsgBox angezeigt.
VLG Chris
Anzeige
AW: Aus UserForm1.WebBrowser1 in Zwischablag
17.01.2021 22:10:01
Chris
Nun habe ich 

Application.Wait(Now + TimeValue("0:00:05"))
eingefügt und..
JUPPI... Es geht!!!
NEPUMUK... DU BIST DER BESTE
Kannst Du versuchen mir zu erklären, was das Problem ist? Ist der PDF Xchange Editor schuld, weil der so langsam ist?!?
1000 DANK
Wen es interessiert... Hier nochmals der funktionierende CODE.
Private Sub CommandButton7_Click()
Dim objDataObject As DataObject
Application.SendKeys "^c", True
DoEvents
Application.Wait (Now + TimeValue("0:00:5"))
Set objDataObject = New DataObject
objDataObject.GetFromClipboard
MsgBox (objDataObject.GetText)
Set objDataObject = Nothing
End Sub

Anzeige
AW: Aus UserForm1.WebBrowser1 in Zwischablag
17.01.2021 21:53:16
Chris
NACHTRAG... Und dann hängt es sich auf... Das aktive UserForm1 "friert" quasi ein, muss dann im VBA Editor auf PAUSE drücken...
Wieso noch ein Thread ?
17.01.2021 18:17:20
onur

77 Forumthreads zu ähnlichen Themen

For each shape in Selection
Atikar

Hallo Leute,
ich würde gerne alle Namen der ausgewählten Shapes auslesen, leider bekomm ich das nicht hin, und im Archiv hab ich auch nichts gefunden.
Sollte so ähnlich aussehen:
For Each sShape in Selection
msgbox sShape.name
next sShape
leider funktioniert das nicht
25.09.2008 10:28:00
Thread-ID: 1012252
3 Beiträge
Anzeige
for each zelle in sheet problem
thomas

Hallo Leute
Ich hab mal eine allgemeine Frage.
Und zwar möchte ich jede Zelle im sheet nach einem string durchsuchen.
Die Suche klappt auch soweit.
Nur möchte ich keine 2 For next schleifen verwenden sondern:
ZeileEnde=Sheets("Tabelle1").Cells(row.count,1).End(xlUp).row
...
08.04.2009 10:06:35
Thread-ID: 1067622
3 Beiträge
For Each zelle In Range("a2:a1000") erweitern
Karsten

Hallo,
Wenn ich diesen Befehl ausführe befinde ich mich gerade in Tabelle1. Ich möchte aber, dass u.s. Befehl in Tabelle2 ausgeführt wird. Kann mir jemand die Tabelle2 in den Befehl hineinkonstruieren.
Danke.
Gruß
Karsten
Dim zelle As Range
For Each zelle In Range("a2:a...
08.07.2009 10:59:35
Thread-ID: 1087125
3 Beiträge
Anzeige
For Each OptionButton in Userform (oderFrame) mgl?
t4z

Hi Leute,
ist sowas wie im Betreff möglich?
Vielen Dank, der t4z
26.08.2009 12:14:58
Thread-ID: 1098716
8 Beiträge
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
In For each rng weiterspringen
Gregor

Hallo zusammen
Ich suche nach einer Zellfarbe. Die Zeile dieser Zelle wird dann bis zu 15 Zeilen erweitert und kopiert (eruiert erste und letzte zu kopierende Zeile). Anschliessend muss die Suche dieser Zellfarbe nach der kopierten Zeile weiterfahren, ansonsten werden die gleichen Zeilen me...
18.05.2010 11:00:44
Thread-ID: 1157557
4 Beiträge
"For Each" für Datein ???
lupo

Hallo Forum.
Ich möchte in einem Ordner die Namen der Datein durchsuchen und vergleichen. Ist der vergleich ungleich, so sollen die Datein gelöscht werden.
Den Vergleich führe ich über die LIKE - Funktion durch.
Damit alle Datein verglichen werden, wollte ich FOR EACH einsetzen.
...
19.10.2010 02:25:08
Thread-ID: 1182974
4 Beiträge
Dim WS as Worksheet oder as Object
Peter

Liebes Forum
Variablen für Worksheets werden teils als Worksheet und teils als Object dimensioniert.
Worin liegt der Unterschried?
Gruss, Peter
15.02.2011 21:49:40
Thread-ID: 1201041
3 Beiträge

Links zu Excel-Dialogen

UserForm WebBrowser

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
2
2
2
7
4
3
3
2
4
4
5
3
7
2
6
3
8
8
5
6
1
17
5