Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
18.04.2024 16:33:24
Anzeige
Archiv - Navigation
1080to1084
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
Inhaltsverzeichnis

Zellwert in Internet Explorer eintragen

Zellwert in Internet Explorer eintragen
Mister
Hallo Excel Profis,
ich habe vor lange Zeit folgendes Makro aus dem Forum hier das eine Webseite öffnet deren Namen in einer Tabelle steht:

Sub Zeiterfassung()
Dim a
a = Shell("C:\Programme\Internet Explorer\iexplore.exe " & Sheets("Lebensalter").[A56],  _
vbMaximizedFocus)
End Sub


Wenn die Webseite geöffnet ist blinkt der Cursor in dem einzig freien Feld. Kann man Excel irgendwie zwingen den Wert einer Zelle hier einzutragen (z.B. Tabelle 1 Zelle A1)?
Gruß
Martin

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellwert in Internet Explorer eintragen
23.06.2009 13:25:55
Mister
Hallo,
hab's mit folgendem makro gelöst.

Sub Zeiterfassung()
Dim a
a = Shell("C:\Programme\Internet Explorer\iexplore.exe " & Sheets("Lebensalter").[A56],  _
vbMaximizedFocus)
If Sheets("Lebensalter").Range("A73") = "" And Sheets("Lebensalter").Range("A76") = "" Then  _
GoTo Ende
Application.Wait (Now + TimeSerial(0, 0, 2))
Application.SendKeys Sheets("Lebensalter").Range("A73")
Application.Wait (Now + TimeSerial(0, 0, 1))
Application.SendKeys ("{TAB}")
Application.SendKeys Sheets("Lebensalter").Range("A76")
Application.Wait (Now + TimeSerial(0, 0, 1))
Application.SendKeys ("{TAB}")
Application.Wait (Now + TimeSerial(0, 0, 2))
Application.SendKeys ("~")
Ende:
End Sub


Gruß
Martin

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige