Mit VBA Tabs in Firefox schließen
30.10.2025 17:30:26
Christian
ich habe einen Code der u.a. das hier macht. Mir geht es nur um die Antwort, ja ist möglich oder nein ist nicht möglich, bevor ich mir ohne Ende Hirnschmalz verschwende.
Wie es geht, falls es geht, will ich mir dann selbst erarbeiten, will ja was lernen.
Dim ffPath As String, Eingaben(1 To 12) As Variant
Dim wsh As Object, seitenRange As Range, z As Long
Set QuellBlatt = ThisWorkbook.Sheets("Hilfe")
Set seitenRange = QuellBlatt.Range("C1:C12")
ffPath = """C:\Program Files\Mozilla Firefox\firefox.exe""" ' ggf. Pfad anpassen
' Firefox mit allen 12 URLs im selben Fenster öffnen
Dim allUrls As String
allUrls = ""
For z = 1 To 12
If seitenRange.Cells(z, 1).Value > "" Then
allUrls = allUrls & " " & seitenRange.Cells(z, 1).Value
End If
Next z
Set wsh = CreateObject("WScript.Shell")
wsh.Run ffPath & allUrls, 1, False
' Eingabe von 12 Werten
For z = 1 To 12
Eingaben(z) = InputBox("Bitte Wert eingeben für Seite " & z & " (" & seitenRange.Cells(z, 1).Value & "):", "Eingabe", "")
QuellBlatt.Cells(z, 2).Value = Eingaben(z)
Next zNaja dann zu meiner Frage, ist es möglich, dass der Code diese 12 Tabs, die im Firefox geöffnet wurden, auch wieder schließt, nachdem die 12 Werte eingegeben wurden? Damit meine ich nicht den Firefox Task beenden, sondern exakt diese 12 Tabs, die zuvor durch den Code geöffnet wurden, andere noch offene Tabs sollen geöffnet bleiben.
Danke
Christian
Anzeige