Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1288to1292
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
1288to1292
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Adresslink aus Excel im Explorer öffnen

Adresslink aus Excel im Explorer öffnen
04.12.2012 15:55:59
Martin
Hallo Leute,
ich habe mit Hilfe des Forums nun einen Lind aus verscheidenen Eingabezellen zu einer Link-Adresse" verkettet.
Wie kann ich aus dem Excel-Makro heraus nun mit dem Link den Browser öffnen. Gibt es da eine Möglichkeit?
Wer kann mir dabei helfen?
Vielen Dank!
Martin

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Adresslink aus Excel im Explorer öffnen
05.12.2012 08:36:41
firmus
Hallo Martin,
versuche es mal so.
Option Explicit
Sub start_MSIE()
Dim appIE As Object
Dim URL As String
URL = "https://www.herber.de"
Set appIE = CreateObject("InternetExplorer.application")
appIE.Visible = True                'False ist unsichtbar    True ist Sichtbar
appIE.navigate URL
While Not appIE.ReadyState = 4     'Warte auf Webseite
DoEvents
Wend
Set appIE = Nothing
End Sub
Gruß
Firmus

AW: Adresslink aus Excel im Explorer öffnen
05.12.2012 08:56:00
Martin
Hallo und schon mal vielen Dank!
Das sieht gut aus, wobei der Link nicht "fest" eingegeben werden kann, sondern ja erst in meinem Formular aus zusammengesetzten Teilen durch eine Verkettung entsteht.
Das habe ich soweit hinbekommen. Nun muss ich "nur noch" den entstandenen Link in das Makro reinbekommen?
Grübel, grübel ....
Wer kann mir helfen?
Danke
Gruß Martin

Anzeige
AW: Adresslink aus Excel im Explorer öffnen
05.12.2012 09:07:30
Martin
Ich habe kopiere das Makro mal, wie es jetzt aussieht:
Sub Zusammenfassung()
' Zusammenfassung Makro
Sheets("Script").Select
Range("A2").Select
Selection.Copy
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy ' der hier kopierte Link muss nun im Browser geöffnet werden, die Excel- _
Datei soll geschlossen werden!
Sheets("Eingabe").Select
Range("C7").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C6").Select
Selection.ClearContents
Sheets("Script").Select
Selection.Copy
Sheets("Eingabe").Select
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Dim appIE As Object
Dim URL As String
URL = "Hier muss der Link rein, der aus A4 (siehe oben) kopiert wurde"
Set appIE = CreateObject("InternetExplorer.application")
appIE.Visible = True                'False ist unsichtbar    True ist Sichtbar
appIE.navigate URL
While Not appIE.ReadyState = 4     'Warte auf Webseite
DoEvents
Wend
Set appIE = Nothing
End Sub

End Sub

Anzeige
AW: Adresslink aus Excel im Explorer öffnen
05.12.2012 09:09:25
Martin
Ich habe kopiere das Makro mal, wie es jetzt aussieht:
Sub Zusammenfassung()
' Zusammenfassung Makro
Sheets("Script").Select
Range("A2").Select
Selection.Copy
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy ' der hier kopierte Link muss nun im Browser geöffnet werden, die Excel-  _
_
Datei soll geschlossen werden!
Sheets("Eingabe").Select
Range("C7").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C6").Select
Selection.ClearContents
Sheets("Script").Select
Selection.Copy
Sheets("Eingabe").Select
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Dim appIE As Object
Dim URL As String
URL = "Hier muss der Link rein, der aus A4 (siehe oben) kopiert wurde"
Set appIE = CreateObject("InternetExplorer.application")
appIE.Visible = True                'False ist unsichtbar    True ist Sichtbar
appIE.navigate URL
While Not appIE.ReadyState = 4     'Warte auf Webseite
DoEvents
Wend
Set appIE = Nothing
End Sub

End Sub

Anzeige
AW: Adresslink aus Excel im Explorer öffnen
05.12.2012 09:43:12
Martin
Ich schließe hier die Anfrage und starte das Theme neu.

34 Forumthreads zu ähnlichen Themen

Neuen Ordner anlegen Inputbox
Sonnenpeter

Hallo,
ich lege mir über eine Inputbox neue Ordner an.
Leider bekomme ich die Abrechen_Schaltfläche nicht in den Griff.
Sub NeuenOrdnerAnlegen() Dim strfolder As String Dim Ordnername As String Dim Mldg, Titel, Voreinstellung, Wert1 Dim Verzeichnis As String Dim dlg As Object On...
28.02.2009 13:05:54
Thread-ID: 1055054
5 Beiträge
Anzeige
Per VBA Ordner in anderem Laufwerk anlegen
strodti

Hallo liebes Forum,
unter C:\test\Projektordner habe ich eine Exceldatei mit nachstehendem Code, aus der ich für jeden Datensatz der Liste im selben Pfad je einen "Datensatz-Ordner" (z.B. C:\test\Projektordner\Ordner_a) anlegen bzw. kopieren lasse, sowie innerhalb dieser Ordner eine "Vorlag...
24.08.2010 21:28:42
Thread-ID: 1174048
5 Beiträge
VBA - Verzeichnisse erstellen und manuell löschen
Christian

Hallo bestes Forum,
per vba möchte ich ein Haupt-Verzeichnis erstellen, falls dieses noch nicht existiert.
In diesem Ordner werden weitere Unterordner erstellt (auch wieder nur dann, wenn es diese noch nicht gibt).
Diese mit meinem Script (siehe unten) erstellten Verzeichnisse zeige...
09.09.2010 21:01:16
Thread-ID: 1176718
6 Beiträge
Anzeige
Internetexplorer verkleinert öffnen - VBA
Wolfgang

Hallo,
der folgende Code bewirkt, wenn ich das richtig getestet habe, das Öffnen des IE und den Aufruf neuer Url im gleichen TAB; Wie kann ich den Code ergänzen, dass der IE verkleinert und z.B. immer im Bild oben rechts geöffnet wird. Wäre so etwas steuerbar/denkbar? - Danke schon jetzt fü...
15.10.2012 19:06:44
Thread-ID: 1282131
6 Beiträge
Am 1.1. per VBA Ordner 2014 anlegen
Bernd

Hallo zusammen,
Brauche Hilfe bei nachfolgendem Problem, komme einfach nicht weiter.
Und zwar möchte ich das automatisch beim ersten Öffnen der Arbeitsmappe im Ordner "D:\Firma\Schriftwechsel\" ein neuer Ordner mit der aktuellen Jahreszahl (2014) angelegt wird.
Wer kann mir behilfli...
17.09.2013 10:54:53
Thread-ID: 1331135
12 Beiträge
Ordner in selbem Pfad anlegen
Henner

Hallo zusammen,
mit MkDir ("C:\DIR") kann ich einen Ordner "DIR" auf "C:\" anlegen. Wie kann ich denn einen Ordner an der Stelle anlegen, wo auch meine .xls liegt?
Danke und Gruss
26.09.2013 19:23:08
Thread-ID: 1332344
3 Beiträge
Öffnen Dialog mit Sharepoint
nike

Hi,
ja, nach Jahren der Abstinenz "verirre" ich mich auch mal wieder hier her :-)
Und dann seh ich auch glatt noch so altbekannte Namen wie Hajo Zi,
da wird einem doch glatt warm ums Herz ;-)
Ich hätte da ein kleines Problemchen, da ich meinen Uraltcode aus dem Jahr 2003
etw...
09.03.2015 13:24:09
Thread-ID: 1413763
3 Beiträge
Label click Windows Explorer öffnen
Noureddine

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein Formular erstellt mit einem Label. Ich möchte gerne, sobald ich das Label anklicke, das der Windows Explorer sich öffnet, jedoch möchte ich auch bestimmen welches Verzeichnis sich als Startbildschrim öffnet.
Kann mir hier jema...
28.09.2015 16:47:06
Thread-ID: 1449798
5 Beiträge
Anzeige

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
1
4
5
2
5
11
2
2
4
4
1
6
7
5
4
10
5
1
1
3
2
3
3
2