Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1320to1324
1320to1324
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

.xls mit IE geöffnet wieder schliessen

Forumthread: .xls mit IE geöffnet wieder schliessen

.xls mit IE geöffnet wieder schliessen
15.07.2013 08:03:28
steffen
Hallo in die Runde,
gibt es eine Möglichkeit, eine mittels Internet Explorer geöffnete Mappe per VBA wieder zu schliessen? Ich weiß einfach nicht, wie ich vorgehen soll.
Gruß Steffen

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: .xls mit IE geöffnet wieder schliessen
16.07.2013 08:18:49
fcs
Hallo Steffen,
woraus ergibt sich den die Notwendigkeit die über einen Link im IE geöffnete Exceldatei per VBA-Makro wieder schliessen zu wollen/müssen?
Warum reichen die in Excel vorhandenen Möglichkeiten zum Schliessen der Datei (Menü, Schaltflächen, Alt+F4 oder Fensterschlieschaltfäche rechtsoben) nicht aus?
Gruß
Franz

Anzeige
AW: .xls mit IE geöffnet wieder schliessen
16.07.2013 21:06:09
steffen
hallo Franz,
ich übernehme die daten aus, dieser per IE-link geöffneten .xls, mittels vba in eine andere mappe. nun wäre es natürlich elegant, da die datenübernahme schon autmatisiert ist, dass die im IE geöffnete .xls auch unverzüglich danach geschlossen wird-ohne sich darum kümmern zu müssen, ob dieses fenster noch irgendwo unbeachtet in meiner taskleiste liegt.
gruß steffen

Anzeige
AW: .xls mit IE geöffnet wieder schliessen
17.07.2013 00:16:18
fcs
Hallo Steffen,
verwende eine Variable, die du am Beginn des Makros als Workbook deklarierst.
Zu irgendeinem Zeitpunkt wenn das Makro arbeitte kennst du den Namen der per IE geöffneten Datei oder es ist die aktive Datei (z.B. nach dem Start des Makros). Zu diesem Zeitpunkt weist du der Variablen per Set-Anweisung die Arbeitsmappe zu. Am Ende des Makros kannst du dann die Variable benutzen, um die Arbeitsmappe zu schliessen.
Gruß
Franz
Beispiel, wie du es in etwa umsetzen kannst: 
Sub aaTest()
Dim wbkIE As Workbook
Set wbkIE = ActiveWorkbook
'oder wenn du den Namen der per IE geöffneten Datei kennst
Set wbkIE = Workbooks("Dateiname.xlsx")
'hier dein bisheriger Code zum Kopieren der Daten
'aus IE geöffnete Arbeitsmappe wieder schliessen
wbkIE.Close savechanges:=False
End Sub

Anzeige
Leider ohne Erfolg
17.07.2013 12:14:15
steffen
Hallo Franz,
leider habe ich mit Deinem Vorschlag keinen Erfolg. Das IE-Fenster macht keinen Mucks und die Datei verschwindet auch nicht aus dem VBA-Projektexplorer. brrrrrrr
Gruß Steffen

AW: Leider ohne Erfolg
17.07.2013 13:38:42
fcs
Hallo Steffen,
evtl. hab ich da etwas falsch verstanden.
Bei mir ist es so, dass eine Exceldatei, deren Link im IE geöffnet wird, ganz "normal" in einem Excel-Programmfenster geöffnet wird.
Wenn bei dir die Excel-Datei in einem IE-Fenster dargestellt wird, dann kann ich dir leider nicht direkt weiter helfen. Den hier müsste man ja irgendwie auf das entsprechende Fenster im Internet-Explorer zugreifen. Da kenne ich mich in der erforderlichen Programmierung nicht aus.
Hier wäre es aber interessant deinen Code zu kennen, mit dem du auf Daten der Excel-Datei im IE-Explorer-Fenster zugreifst.
Gruß
Franz

Anzeige
.xls mit IE geöffnet wieder schliessen
17.07.2013 14:52:31
Anton
Hallo Steffen,
probier's hiermit:
Code:

Sub b()
  Dim objShell As Object, win As Object  
  Set objShell = CreateObject("Shell.Application")  
  For Each win In objShell.Windows  
    If InStr(1, UCase(win.FullName), "IEXPLORE") > 0 Then    
      If LCase(Right(win.LocationURL, 3)) = "xls" Then win.Quit  
    End If  
  Next
  Set objShell = Nothing  
End Sub  


mfg Anton

Anzeige
Cool...
17.07.2013 21:30:53
steffen
Hallo Anton,
ich glaube, das ist es. Supi... Danke....
;

Forumthreads zu verwandten Themen

Outlook Express statt Outlook mit Code ansprechen?
greenhorn

Hallo,
zum automatsichen Versand von E-Mails mit Outlook aus Excel heraus habe ich folgenden Code:
Sub sende_stoermeldung(mld As String) Dim MyMessage As Object, MyOutApp As Object 'InitializeOutlook = True Set MyOutApp = CreateObject("Outlook.Application") 'Nachrichtenobject erstelle...
19.08.2008 13:13:21
Thread-ID: 1002911
7 Beiträge
Blätter Zusammenfassen mit Bezug auf Ursprungzelle
Peter

Hallo liebe Exel und VBA Fangemeinde
nachdem ich nun mehrere Tage durch die Tiefen dieses sensationellen Forum gewühlt habe,
und nicht weiter komme, versuche ich es mit meinem ersten Posting.
In einer Excelliste habe ich eine unbestimmte Anzahl Arbeitsblätter und möchte diese auf e...
22.08.2008 23:37:54
Thread-ID: 1004040
10 Beiträge
Beim Start abfragen mit Passwort
Peter

Hallo
brauche Hilfe und Ideen
Ich möchte gern meine Datei beim Öffnen mit einer Passwortabfrage schützen.
Die Datei startet mit Tabellenblatt"Start"
Dann soll eine Userform mit Textfeld oder Inputbox starten und mit einem Passwort wird die Datei freigegeben, sonst bricht Excel...
06.09.2008 23:10:00
Thread-ID: 1007911
3 Beiträge
Anzeige
Ersetzen mit VBA in allen Arbeitsblättern
Walter

Hallo,
ich habe eine Frage:
Wenn ich einen Text in der ganzen Arbeitsmappe ersetzen will, so treffe ich im Dialogfeld SUCHEN/ERSETZEN einfach die Einstellung: Suchen --- "Arbeitsblatt".
Wenn ich disen Vorgang aufzeichen, kommt folgender Code heraus:
Selection.Replace What:= _
11.09.2008 15:35:53
Thread-ID: 1009157
6 Beiträge
Anzeige
userform mit multipage anpassen
angeldust

Hallo liebe User
Habe eine UserForm mit Multipage jede einzelne Seite Fragt den Benutzer
nach seinen Angaben Zb die seite 1 name, vorname seite 2 adresse auf der seite 3 kann
man ein 10 stll. code eintragen, so nun sollten diese seiten gespeichert werden ,
1. Frage ich hab ein...
28.10.2008 15:08:06
Thread-ID: 1019972
2 Beiträge
Muss nochmal nerven: Textbox mit Tabs einlesen
TomTom

Hi,
bin leider immer noch nicht weiter gekommen, suche immer noch die Möglichkeit, eine Textdatei (mit Tabstopps Trennzeichen) in eine Excel Datei zu lesen. dabei sollte man mit dem öffnen Dialog die Datei vorher auswählen können.
Hier nochmal meine Datei:
https://www.herber.de/bbs/...
06.11.2008 08:27:00
Thread-ID: 1022143
5 Beiträge
Anzeige
Zellen schützen mit Passwort per Makro
Stefan

Hallo zusammen,
habe heute vormittag auf meine Frage wie ich Zellen abhängig vom Datum sperren kann folgendes Makro erhalten..Dafür erstmal vielen Dank ;-)
Jetz würde ich das ganze gern um ein Passwort ergänzen da sonst Dritte den Schutz ja leicht wieder aufheben könnten
' Private...
11.11.2008 13:02:13
Thread-ID: 1023525
4 Beiträge
Anzeige
Zellen schützen mit Passwort per Makro
Stefan

Hallo zusammen,
habe heute vormittag auf meine Frage wie ich Zellen abhängig vom Datum sperren kann folgendes Makro erhalten..Dafür erstmal vielen Dank ;-)
Jetz würde ich das ganze gern um ein Passwort ergänzen da sonst Dritte den Schutz ja leicht wieder aufheben könnten
' Private...
11.11.2008 13:12:00
Thread-ID: 1023528
2 Beiträge
GROSSES PROBLEM MIT GROSSER EXCEL-Tabelle
Stefan

Hallo,
habe aus mehreren Excel-Tabellen eine grosse Tabelle mit über 18000 Zeilen zusammengestellt. Diese möchte ich nun sortieren lassen (nach der Spalte "Name", "Datum"). Problem: Menüpunkt "Daten sortieren" läßt sich nicht mehr anwählen. Warum?
Vielleicht weil einige Zellen falsch bz...
07.01.2009 16:33:00
Thread-ID: 1037611
4 Beiträge
Suchen und >Ersetzen mit VBA macht komische Sachen
SteffenS

Hallo Zusammen,
mit dem Code:
WSZ.Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ersetze ich " in allen Zellen.
Mache ich dies manuell so wird aus:
1348,52102" --> richtig 1348,...
11.01.2009 18:08:38
Thread-ID: 1038681
3 Beiträge
ausfüllen mit festen Adressen ohne absolut setzen!
Ralf

Hallo,
mein Excel 2003 füllt plötzlich Funktionen nach rechts aus und wiederholt dabei die ursprünglichen Zelladressen ohne dass diese absolut gestetzt sind.
Ich habe also z.B. =a1*a2 in einer Zelle, ziehe mit dem Ausfüllkästchen um zwei Spalten nach rechts und als Ergebnis steht überal...
19.01.2009 15:39:24
Thread-ID: 1041522
4 Beiträge
Zelladresse in Code mit - Syntaxfrage
Peter

Guten Tag
Innerhalb eines Codes füge ich eine neue Codezeile ein. Dabei gibt mir "Variante 1" für die Zeile 5 den richtigen Wert.
Nun möchte ich G5 ersetzen, damit in jeder Schlaufe der richtige Wert resultiert.
Anstatt G5 schreibe ich für G
[spName].column ' dies ergibt die Zah...
11.02.2009 08:54:00
Thread-ID: 1049441
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige