Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1372to1376
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
1372to1376
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mittels VBA background color aus IE auslesen

mittels VBA background color aus IE auslesen
05.08.2014 11:38:20
Thomas
Hallo Ihr Lieben,
gibt es eine Möglichkeit in einer InternetExplorer.Application nach
style="background-color:#00dd00"
zu suchen und den colorcode in eine Zelle zu schreiben? Ich hab es mit
WebBrowser1.Document.body.innerHTML
WebBrowser1.Document.body.outerHTML
WebBrowser1.Document.body.innerText
WebBrowser1.Document.body.outerText
versucht, aber das wird nicht gefunden. Der Quellcode davor und danach wird problemlos ausgegeben. Hat jemand eine Idee?

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Wenn ich deine Frage richtig interpretiere, ...
05.08.2014 12:10:22
Luc:-?
…Thomas,
und du es tatsächlich schaffst den ganzen HTML-QuellCode auszulesen, muss das Gesuchte auch zu finden sein. Allerdings solltest du dir zuvor ansehen, wie dein Browser diesen darstellt, denn uU ist das nicht so wie du es vermutest!
Gruß, Luc :-?
Besser informiert mit …

AW: Wenn ich deine Frage richtig interpretiere, ...
05.08.2014 12:12:41
Thomas
danke für den Antwort. ich dachte der ganze code würde mit den o.g. funktionen ausgelesen werden. Wenn ich mir den Sourcecode im IE ansehe finde ich den String "style="background-color:#00dd00". Wenn ich diesen jedoch mit dem o.g. functionen suche, wird der nicht gefunden :(

Anzeige
AW: Wenn ich deine Frage richtig interpretiere, ...
05.08.2014 12:13:01
Thomas
danke für den Antwort. ich dachte der ganze code würde mit den o.g. funktionen ausgelesen werden. Wenn ich mir den Sourcecode im IE ansehe finde ich den String "style="background-color:#00dd00". Wenn ich diesen jedoch mit dem o.g. functionen suche, wird der nicht gefunden :(

AW: Wenn ich deine Frage richtig interpretiere, ...
05.08.2014 12:13:34
Thomas
danke für den Antwort. ich dachte der ganze code würde mit den o.g. funktionen ausgelesen werden. Wenn ich mir den Sourcecode im IE ansehe finde ich den String "style="background-color:#00dd00". Wenn ich diesen jedoch mit dem o.g. functionen suche, wird der nicht gefunden :(

Die zielen ja auch nicht darauf speziell ab, ...
05.08.2014 12:33:25
Luc:-?
…Thomas,
sondern sollten viel mehr zurückgeben. Und wie das dann aussieht, müsstest du dir mal ansehen.
Du solltest dann auch .innerText des HTML-Tags wiedergeben, indem diese Cascading StyleSheet-Angabe notiert ist.
Luc :-?

Anzeige
AW: Die zielen ja auch nicht darauf speziell ab, ...
05.08.2014 12:49:54
Thomas
I habe es mit allen vier functionen probiert und keine gibt den inhalt des style zurück.

AW: Wenn ich deine Frage richtig interpretiere, ...
05.08.2014 12:41:23
Tino
Hallo,
wie genau suchst Du diesen Teilstring, gerade wegen diesen Anführungszeichen?
Sub Beispiel()
Dim HTMLCode$

HTMLCode = "bla bla bla Style = ""background-color:#00dd00"" bla bla bla"

If InStr(HTMLCode, "Style = ""background-color:#00dd00""") > 0 Then
    MsgBox "gefunden"
Else
    MsgBox "nicht gefunden"
End If

End Sub

Gruß Tino

Anzeige
vielleicht hilft diese Variante...
05.08.2014 13:28:52
Tino
Hallo,
kenn mich selbst mit HTML nicht so gut aus kannst aber diese Variante versuchen.
Der Text-Variablen DeinHTMLCode musst Du Deinen HTML-Code zuweisen.
In etwa so: 
DeinHTMLCode = WebBrowser1.Document.body.innerHTML

Sub BeispielCode()
Dim Regex As Object, objMatch As Object
Dim DeinHTMLCode$

'Beispiel HTML zum Testen 
DeinHTMLCode = "bla bla bla Style = ""background-color:#00dd00"" bla bla bla" & _
               "bla bla bla Style = ""background-color:#3ADC6B"" bla bla bla"

Debug.Print DeinHTMLCode

Set Regex = CreateObject("Vbscript.Regexp")

With Regex
  .MultiLine = True
  .Pattern = "Style = ""background-color:#[0-9,a-z]{6}"""
  .Global = True
  .IgnoreCase = True


  For Each objMatch In .Execute(DeinHTMLCode)
     Debug.Print objMatch
  Next objMatch
End With

End Sub
Gruß Tino

Anzeige
Da das nicht wirklich HTML ist, sondern ...
05.08.2014 13:42:35
Luc:-?
…gewöhnlicher Text, wird's wohl auch gefunden, Tino!
An HTML-Kenntnissen und der Verwendung der entsprd Tags führt wohl kein Weg vorbei, Thomas!
Mit VBScript und J[ava]Script klappt das jedenfalls.
Luc :-?

AW: Da das nicht wirklich HTML ist, sondern ...
05.08.2014 13:54:14
Thomas
danke, hilft nur leider alles nicht. .innerhtml und .outerhtml hab ich schon einmal komplett ausgeben lassen. der ausgegebene "quelltext" enthält jedoch nie die "style" und "title" definitionen. somit kann ich darin auch suchen bis ich schwarz werde. genau das ist ja das problem (also nicht das schwarzwerden)

Tja, dann befinden die sich womöglich ganz ...
05.08.2014 16:49:38
Luc:-?
…woanders, Thomas,
denn man kann wohl für so etwas auch (ein) Muster anlegen, auf die(/das) die einzelnen Sheets einer HTML-CSS-Site zugreifen. Alternativ könnten die HTML-Tags ganz am Anfang und ganz am Ende aller Blätter der Site stehen. Das müsste man aber am QuellText erkennen können.
Bei Tabellen mit Einzelfärbung der Zellen wäre es ansonsten nicht allzu kompliziert, eine Farbe auszulesen. Das kannst du ja mal an diesem ArchivBsp testen. Allerdings hat die Tabelle auch keine eigenen HTML-Tags mehr, weil die Forumssoftware die bei der Einbettung entfernt. Du erhätst mit .innerHTML also mehr als nur die Tabelle.
Luc :-?

Anzeige
er findet diesen Teil im Texteditor
05.08.2014 14:00:02
Tino
Hallo,
ich denke wenn er diesen Teil auch im Texteditor findet,
müsste der VBA-Code auch diesen Text finden.
Ob dies aber jetzt im Body-Bereich oder sich im Head-Bereich befindet oder nur ein Kommentar ist,
kann diese Code nicht unterscheiden.
Evtl. kann er ja einen Teil in einem Textfile (evtl. als Zip) hochladen,
dann könnet man mal mehr versuchen.
Gruß Tino

AW: er findet diesen Teil im Texteditor
06.08.2014 19:09:23
Tino
Hallo,
Sub BeispielCode()
Dim Regex As Object, objMatch As Object
Dim DeinHTMLCode$

'Beispiel HTML zum Testen 
DeinHTMLCode = "<tr class=""odd""><td><a href=""xxxxxxx"">" & vbCr
DeinHTMLCode = DeinHTMLCode & "<img border=""0"" src=""letter.png"" title=""Titel0"" /></a><td></td>" & vbCr
DeinHTMLCode = DeinHTMLCode & "<td><img title=""VServer Usage"" style=""background-color:#00dd00"" border=""0"" src=""/ce.png"" /> <a   " & vbCr
DeinHTMLCode = DeinHTMLCode & "<td><img title=""VServer Usage"" style = ""background-color:#00dd00"" border=""0"" src=""/ce.png"" /> <a   " & vbCr
DeinHTMLCode = DeinHTMLCode & "href=""testtesttest"">blablabla</a></td>" & vbCr
DeinHTMLCode = DeinHTMLCode & "<td><a href=""http://maps.google.de/"" target=""_blank"">TEST TEST</a></td>" & vbCr
DeinHTMLCode = DeinHTMLCode & "<td><img border=""0"" src=""/damage.png"" title=""Titel1""/></a></td>" & vbCr
DeinHTMLCode = DeinHTMLCode & "<td></td><td><img border=""0"" src=""/card.png"" title=""Titel2""/></a></td>" & vbCr
DeinHTMLCode = DeinHTMLCode & "<td></td><td><img border=""0"" src=""/key.png"" title=""Titel3"" /></a></td>" & vbCr
DeinHTMLCode = DeinHTMLCode & "<td><img border=""0"" src=""/immo.png"" title=""Titel4"" /></a></td>" & vbCr
DeinHTMLCode = DeinHTMLCode & "<td><img border=""0"" src=""/locked.png"" title=""Titel5"" /></a></td><td>101</td>" & vbCr
DeinHTMLCode = DeinHTMLCode & "<td>102</td><td>103</td><td>104</td><td>105</td><td>106</td><td>107</td><td>Name</td>" & vbCr
DeinHTMLCode = DeinHTMLCode & "</tr>" & vbCr & vbCr
DeinHTMLCode = DeinHTMLCode & "// and then it starts with the next line which has the same structure"

'Debug.Print DeinHTMLCode 

Set Regex = CreateObject("Vbscript.Regexp")

With Regex
  .MultiLine = True
  .Pattern = "Style *= *""background-color:#[0-9,a-z]{6}"""
  .Global = True
  .IgnoreCase = True


  For Each objMatch In .Execute(DeinHTMLCode)
     Debug.Print objMatch
  Next objMatch
End With

End Sub

Diese zwei werden bei mir gefunden!
Aus Zeile 3 und 4
Userbild
Gruß Tino

Anzeige
AW: er findet diesen Teil im Texteditor
08.08.2014 07:50:36
Thomas
Dankeschön für deine Mühe. Deine Version funktioniert bei mir auch. Allerdings kopierst du ja auch manuell den Sourcecode in eine Variable. Das soll ja bei mir automatisch mit
WebBrowser1.Document.body.innerHTML oder
WebBrowser1.Document.body.outerHTML oder
WebBrowser1.Document.body.innerText oder
WebBrowser1.Document.body.outerText
geschehen. Egal welche Funktion ich nutze, dabei klappt dein Code leider nicht. Hast du dazu vielleicht noch eine Idee?

dazu müsste ich deine Seite kennen! oT.
08.08.2014 08:13:24
Tino

Viell solltest du mal auf meine AW eingehen! owT
08.08.2014 09:20:28
Luc:-?
:-?

143 Forumthreads zu ähnlichen Themen

Word Passwort entfernen
Holger

Hallo zusammen,
wie ich ein Excel-Passwort deaktieviere weiss ich, aber geht das auch bei Word ? Und wenn ja, wie ?
Gruss
Holger
06.02.2009 12:17:00
Thread-ID: 1047714
5 Beiträge
Anzeige
Makro Passwortschutz entfernen
Joni

Hallo,
ich habe über 5 Ecken eine Excel-Tabelle mit Makros erhalten. Bevor ich diese ausführe würde ich mir die Makros gerne ansehen. Das Projekt ist aber geschützt. Gibt es eine Möglichkeit den Code trotzdem einsehen zu können bzw. den Schutz abzuschalten? Ausführen ohne den Inhalt zu kenn...
07.11.2010 21:09:11
Thread-ID: 1185586
19 Beiträge
Kennwort zum Öffnen per VBA setzen
Arthur
Hi Excelianer.
Da denkt man es ist einfach und dann möchte es nicht ...
Ich möchte ein gerade frisch erzeugtes Workbook (Excelmappe) mit einem Lesekennwort versehen ("Kennwort zum Öffnen" in den Speichern unter->Tools->Allgemeine Optionen).
Application.Workbooks.Add
ActiveWork...
10.07.2014 11:53:03
Thread-ID: 1369656
6 Beiträge
Anzeige
VBA Passwort vergessen
Michel

Hallo zusammen
Ich Dummkopf habe in meiner Excel das VBA Passwort vergessen und komme nun nicht mehr zu dem Code.
Kann mir hier jemand helfen?
Hier wäre noch meine File:
https://www.herber.de/bbs/user/95639.xlsm
Danke vorbau für eure Hilfe
Gruss
Michel
09.02.2015 14:53:16
Thread-ID: 1408201
5 Beiträge
VBAProjekt Passwort vergessen
Chris

Hallo Leute,habe mal vor langer Zeit ein kleines VBAProjekt mit Passwort geschützt.
Jetzt müsste ich das Projekt erweitern und mir fällt das Passwort nicht mehr ein.
Kan mir da jemand Helfen?
Gruß
Chris
20.08.2002 10:52:46
Thread-ID: 150507
3 Beiträge
Kennwort zum Öffnen + Makros aktivieren
Kisska

Hallo allerseits,
wieso werden Makros deaktiviert, wenn man eine Datei mit dem Kennwort zum Öffnen verseht? Kann man dies irgendwie umgehen?
Viele Grüße
Kisska
28.05.2017 17:29:12
Thread-ID: 1560766
6 Beiträge
VBA-Passwort vergessen!
Nadine

Hallo zusammen!

Ich habe vor einiger Zeit ein VBA-Projekt (Add-In) per Passwort geschützt, und habe dieses nun vergessen!

Gibt es irgendeine Möglichkeit, es wiederzufinden? Das Paswort bestand aus einem Wort und Ziffern.
Ich weiß noch...
...das Wort (aber nicht, ob Groß- o...
30.06.2003 13:58:40
Thread-ID: 275418
6 Beiträge
VBA Passwort vergessen
Carsten Kramer
Hallo,
Habe meine Makros und Autotexte in Word geschützt und kann mich nicht mehr an mein Passwort erinnern. Kann mir jemadn helfen wie ich mein Passwort rauskriege? ich habe es bereits mit AVPRo probiert aber es erschein nur " Password unavailable"
Danke.
Carsten
16.11.2003 00:00:32
Thread-ID: 338770
4 Beiträge
Anzeige

Links zu Excel-Dialogen

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
4
6
18
5
2
4
2
5
5
3
7
1
10
8
4
3
2
13
1
3
3
4
2
15
2