Office: Zelleninhalt zu Makro hinzufügen

Sandra1991 · 14. Juli 2020

Hallo liebe Community,

ich steh auf dem Schlauch. ich habe folgendes Makro (teilauszug)

Const cstrURL$ = "https://www.googl" & Worksheets("Tabelle1").Range("C1").Value

nun möchte ich das der Inhalt aus Zelle C1 (hier ist es ein "e.de") oben hinzugefügt wird, leider bekomm ich immer eine Fehlermeldung *frown.gif*

Zusammengefasst sollte es dann eigentlich Google heißen

Hat jemand die Lösung?

:)

ReginaR · 16. Juli 2020

Hi,
Konstanten heißen Konstanten, weil sie konstant sind. D.h. eine Variable (und das ist ein Zellinhalt letzen Endes) kannnicht verwendet werden.

Lösung: Deklariere als String ohne Const

Sandra1991 · 16. Juli 2020

wie könnte ich das am besten machen?

Code:

Sub HTMLQuelltext()
Dim IEApp As Object, lngPos&, strInhalt$

Const cstrSuchbegriff$ = "Google"
Const cstrURL$ = "Google" 'hier möchte ich eigentlich in den Inhalt von Zelle A1

Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate cstrURL
Do Until IEApp.Busy = False
Application.Wait Now() + TimeValue("00:00:01")
Loop
strInhalt = IEApp.Document.DocumentElement.outerHTML
lngPos = InStr(1, strInhalt, cstrSuchbegriff)
If lngPos > 0 Then Sheets(1).Cells(1, 1) = Right(strInhalt, Len(strInhalt) - lngPos + 1)
IEApp.Quit
Set IEApp = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke für eure Hilfe! *Smilie

ReginaR · 16. Juli 2020

...z.B. so:

Code:

Sub HTMLQuelltext()
Dim IEApp As Object, lngPos&, strInhalt$
Dim cstrURL as String
Const cstrSuchbegriff$ = "Google"
cstrURL = Worksheets("Tabelle1").Range("A1")

Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate cstrURL
Do Until IEApp.Busy = False
Application.Wait Now() + TimeValue("00:00:01")
Loop
strInhalt = IEApp.Document.DocumentElement.outerHTML
lngPos = InStr(1, strInhalt, cstrSuchbegriff)
If lngPos > 0 Then Sheets(1).Cells(1, 1) = Right(strInhalt, Len(strInhalt) - lngPos + 1)
IEApp.Quit
Set IEApp = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mase · 16. Juli 2020

Moinsen,

technisch gesehen wäre folgendes ausreichend:

Code:

Do While IEapp.ReadyState 4 'READYSTATE_COMPLETE
Loop
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da keine IntelliSense der vollständigkeithalber:
Code:

Const READYSTATE_COMPLETE as Long = 4
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sandra1991 · 16. Juli 2020

Hallo Leute,

super lieb von euch, dass Ihr immer so schnell antwortet *Smilie

der Beitrag von Regina hat super funktioniert *Smilie wenn jetzt noch der Suchbegriff

"Const cstrSuchbegriff$ = "Google"

noch aus der Zelle B1 genommen wird wäre ich super grlücklich.

ich habe es so versucht:

Code:

Sub HTMLQuelltext()
Dim IEApp As Object, lngPos&, strInhalt$
Dim cstrURL As String
cstrSuchbegriff = Worksheets("Tabelle1").Range("B1")
cstrURL = Worksheets("Tabelle1").Range("A1")

Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate cstrURL
Do Until IEApp.Busy = False
Application.Wait Now() + TimeValue("00:00:01")
Loop
strInhalt = IEApp.Document.DocumentElement.outerHTML
lngPos = InStr(1, strInhalt, cstrSuchbegriff)
If lngPos > 0 Then Sheets(1).Cells(1, 1) = Right(strInhalt, Len(strInhalt) - lngPos + 1)
IEApp.Quit
Set IEApp = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ReginaR · 16. Juli 2020

Hi,
und was funktioniert nicht? Lass mich raten: "Variable nicht deklariert"?

Dim cstrSuchbegriff as String

dürfte fehlen.

Tipp: Übernimm nicht einfach nur Codes per Copy&Paste, sondern versuche auch zu durchschauen, was da passiert *wink.gif*

Office: Zelleninhalt zu Makro hinzufügen

Zelleninhalt zu Makro hinzufügen

Zelleninhalt zu Makro hinzufügen

Zelleninhalt zu Makro hinzufügen

Zelleninhalt zu Makro hinzufügen - Similar Threads - Zelleninhalt Makro hinzufügen

Zelleninhalte in andere Zelle mit Komma getrennt

Zelleninhalte Text zerlegen

VBA Kopieren von Zelleninhalte in Textbox

Übertragung von Zelleninhalten aus einer in eine andere Tabelle

Makro zum Zelleninhalt löschen und Laufzeitfehler dank Diagramm

Excel Zelleninhalt bestimmter Spalten automatisiert anpassen

Makro Zelleninhalt ändern