Websiten mit Command Button öffnen

Forumthread: Websiten mit Command Button öffnen

Kampfbiber

Hallo Exel VBA Profis
Ich möchte über einen Button mehrere Websiten öffnen lassen, d. h jede Website in einem eigenen Tab des IE.
Das daher weil es z. b. 3 verschiedene Hersteller von Luftfederbälgen gibt und ich alle auf einmal öffnen muss.
Mit dem untenstehendem VBA Code funktioniert es leider nur Zeitweise, d.h heisst, einmal öffnet _ er alle Websiten und das andere mal nur eine.. Ihr könnt mir sicher sagen woran das liegt?


Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink Address:="http://www.....ch", NewWindow:=True
ActiveWorkbook.FollowHyperlink Address:="http://www.....ch", NewWindow:=True
ActiveWorkbook.FollowHyperlink Address:="http://www......ch", NewWindow:=True
End Sub

Herzlichen Dank schon mal an alle und Gruss

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Benutzer

AW: Websiten mit Command Button öffnen

Piet

AW: Websiten mit Command Button öffnen

14.09.2011 17:44:30

Piet

Hallo,
ich tippe darauf, dass das am IE liegt und nicht an Excel. Das Problem dabei ist, dass Excel die Eigenschaften des IE nicht direkt beeinflussen kann, sondern immer die Benutzereinstellungen im IE den Vorrang haben.
Gruß
Piet

Infobox / Tutorial

Websiten mit Command Button in Excel öffnen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um mehrere Webseiten mit einem Command Button in Excel zu öffnen, folge diesen Schritten:

Öffne Excel und erstelle ein neues Arbeitsblatt.
Gehe zu den Entwicklertools. Falls diese nicht sichtbar sind, aktiviere sie über die Excel-Optionen.
Füge einen Command Button hinzu:
- Klicke auf „Einfügen“ und wähle den „Command Button“ aus.
Doppelklicke auf den Button, um den VBA-Editor zu öffnen.

Füge den folgenden VBA-Code ein:

Private Sub CommandButton1_Click()
   ActiveWorkbook.FollowHyperlink Address:="http://www.example1.com", NewWindow:=True
   ActiveWorkbook.FollowHyperlink Address:="http://www.example2.com", NewWindow:=True
   ActiveWorkbook.FollowHyperlink Address:="http://www.example3.com", NewWindow:=True
End Sub

Schließe den VBA-Editor und teste den Button, um sicherzustellen, dass die Webseiten in neuen Tabs des Internet Explorers geöffnet werden.

Häufige Fehler und Lösungen

Problem: Der Button öffnet nicht alle Webseiten.
- Lösung: Überprüfe die Sicherheitseinstellungen des Internet Explorers. Manchmal blockieren diese das gleichzeitige Öffnen mehrerer Fenster.
Problem: Der Button funktioniert nur sporadisch.
- Lösung: Stelle sicher, dass dein Internet Explorer auf die neueste Version aktualisiert ist und keine Add-Ons oder Erweiterungen das Verhalten beeinflussen.

Alternative Methoden

Falls du Schwierigkeiten mit dem Command Button hast, gibt es alternative Methoden:

Hyperlinks in Zellen:
- Du kannst Hyperlinks direkt in Zellen einfügen und diese anklicken, um die Webseiten zu öffnen.
Makro zuweisen:
- Erstelle ein Makro, das beim Öffnen einer bestimmten Zelle ausgeführt wird, um die Webseiten zu öffnen.

Praktische Beispiele

Hier sind einige Beispiele, wie du den Command Button anpassen kannst:

Beispiel 1: Anpassen der URLs

Private Sub CommandButton1_Click()
   ActiveWorkbook.FollowHyperlink Address:="http://www.luftfederbaelge.de", NewWindow:=True
   ActiveWorkbook.FollowHyperlink Address:="http://www.hersteller2.com", NewWindow:=True
   ActiveWorkbook.FollowHyperlink Address:="http://www.hersteller3.com", NewWindow:=True
End Sub

Beispiel 2: Fehlerbehandlung hinzufügen

Private Sub CommandButton1_Click()
   On Error Resume Next
   ActiveWorkbook.FollowHyperlink Address:="http://www.example1.com", NewWindow:=True
   ActiveWorkbook.FollowHyperlink Address:="http://www.example2.com", NewWindow:=True
   ActiveWorkbook.FollowHyperlink Address:="http://www.example3.com", NewWindow:=True
   On Error GoTo 0
End Sub

Tipps für Profis

Verwende die VBA CommandButton-Eigenschaften, um die Benutzeroberfläche zu optimieren.
Überlege, ob du eine UserForm erstellen möchtest, um mehrere Buttons für verschiedene Webseiten bereitzustellen.
Nutze den Shell-Befehl, um Webseiten in einem anderen Browser zu öffnen, falls der Internet Explorer nicht verwendet werden soll.

FAQ: Häufige Fragen

1. Kann ich den VBA Code auch in Excel 365 verwenden? Ja, der Code funktioniert in Excel 365 und anderen Versionen, die VBA unterstützen.

2. Was tun, wenn der Command Button nicht reagiert? Überprüfe, ob die Entwicklertools aktiviert sind und der Button korrekt zugeordnet ist. Stelle sicher, dass das Makro nicht durch Sicherheitseinstellungen blockiert wird.

Beliebteste Forumthreads (12 Monate)

Websiten mit Command Button öffnen

Forumthread: Websiten mit Command Button öffnen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Websiten mit Command Button in Excel öffnen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread