Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
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
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Import einer .Html - Worksheets Name angeben

Forumthread: Import einer .Html - Worksheets Name angeben

Import einer .Html - Worksheets Name angeben
19.09.2018 08:49:11
Fr4nk
Hallo,
ich importiere eine Html Datei in Excel: 

fname = Application.GetOpenFilename("Html-Dateien,*.html")
Application.ScreenUpdating = False
Set objWorkbook = Workbooks.Open(Filename:=fname)
Call objWorkbook.Worksheets(1).Move(Before:=ThisWorkbook.Worksheets(1))
Application.ScreenUpdating = True
Set objWorkbook = Nothing

Ich möchte aber das die Datei in das Tabellenblatt "Daten" geschrieben wird.
Mit meiner Lösung wird immer ein neues Datenblatt mit dem Namen "Tabelle 1" erstellt.
wenn ich ThisWorkbook.Worksheets("Daten")) verwende wird trotzdem ein neues Datenblatt "Tabelle 1" erstellt.
Weiß jemand Rat?
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Import einer .Html - Worksheets Name angeben
19.09.2018 10:18:55
ChrisL
Hi
Ich denke du müsstest den Tabelleninhalt kopieren und nicht das Blatt verschieben.
Copy/Paste z.B. 
objWorkbook.Worksheets(1).UsedRange.Copy ThisWorkbook.Worksheets("Daten").Range("A1")
cu
Chris
AW: Import einer .Html - Worksheets Name angeben
19.09.2018 11:42:48
Fr4nk
Hallo Chris,
mit dieser Lösung Bleibt das Makro in der neu geöffneten Exceldatei mit dem Importierten Daten.
So das der Rest vom Makro nicht in der Datei wo das Blatt "Daten" ist aufgeführt wird.
Anzeige
Bahnhof owT.
19.09.2018 12:35:27
ChrisL
.
gelöst :)
19.09.2018 14:33:42
Fr4nk
Ich habe es nun wie folgt gelöst: 
fname = Application.GetOpenFilename("Html-Dateien,*.html")
Workbooks.Open Filename:=fname
Set Quelle = ActiveWorkbook.Worksheets(1)
Set Ziel = ThisWorkbook.Worksheets("Daten")
Quelle.UsedRange.Copy Ziel.Cells(1, 1)
ActiveWorkbook.Close
Set Quelle = Nothing
Set Ziel = Nothing

Anzeige
;

Forumthreads zu verwandten Themen

Syntax Spalte über Objekt Workbook - Worksheet ...
Peter

...
Guten Tag
Wie kann ich die einen bestimmten Bereich in einer Tabelle mittels Objekt Workbook und Objekt Worksheet ansprechen?
Im nachfolgenden Code funktioniert
With wbZiel.wsTab
nicht.
Danke für eine Antwort.
Gruss, Peter
Sub spaltenbreite2() Dim wbZiel As...
11.12.2008 09:11:14
Thread-ID: 1031920
3 Beiträge
Anordnung Worksheets ändern (Code)
Florian

Morgen zusammen,
wie kann ich die Anordnung der Worksheets per Makro ändern (Codezeile). Worksheet(3) soll also z.B. an erster platziert werden.
Danke, Gruss!
Florian
10.03.2009 09:08:12
Thread-ID: 1058472
3 Beiträge
Passwort in Worksheet
Sven

Hi
Wollte mit diesem Code das Blatt entsperren. Leider funktioniert es nicht so wie ich es wollte.
Worksheets("Lager").Unprotect , Password:="1w56"
Für Eure hilfe wäre ich froh
Gruß
Sven
14.03.2009 19:10:39
Thread-ID: 1060230
3 Beiträge
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
Worksheet_Change Fehler bei Wechsel des Worksheets
Frank

Guten Morgen,
ich möchte bei Änderung auf einem "Tabellenblatt 1" mit Hilfe des Ereignisses "Worksheet_Change" in einem "Tabellenblatt 2" einen Bereich kopieren und diesen ins "Tabellenblatt 1" kopieren.
Ich erhalte die Fehlermeldung "Die Methode 'Range' für das Objekt '_Worksheet' ist...
09.10.2009 09:38:17
Thread-ID: 1108473
14 Beiträge
Error 1004 'Copy Method of Worksheet Class failed'
André

Hallo zusammen,
nach etlichen, vergeblichen Unternehmungen den "Copy Method of Worksheet Class failed" Fehler
zu beheben bzw. zu umgehen, hoffe ich, dass ihr mir helfen könnt.
Mit einem Messprogramm wird jeden Tag eine Datei mit einigen Hundert Werten in einem Ordner erstellt. Diese...
27.04.2010 10:05:48
Thread-ID: 1153991
18 Beiträge
ThisWorkbook.Worksheets("Check").Tab.ColorIndex ..
Peter

Guten Tag
Untenstehender Code stoppt bei der Zeile
ThisWorkbook.Worksheets("Check").Tab.ColorIndex = 10 ' = grün
wenn die aktive Tabelle, bei der eine Änderung erfolgt, nicht die Tabelle "Check" ist.
Fehlermeldung: "Objekt unterstützt diese Eigenschaft oder Methode nicht."
...
02.09.2010 08:55:46
Thread-ID: 1175368
5 Beiträge
Anzeige
in neuem Workbook zweites Worksheet einfügen
Peter

Guten Tag
Ich möchte in einem neu angelegten Workbook ein zweites Worksheet einfügen und dieses dann mit "Test" benennen. Mein Versuch ist fehlgeschlagen. Wer hilft mir weiter?
Danke und Gruss, Peter
Sub NeueTabelle() Dim wbNeu as Workbook, WS as Worksheet Set wbNeu = Workbooks.Ad...
19.09.2011 12:47:07
Thread-ID: 1230558
3 Beiträge
workbook / worksheet
Hartmut

Hallo liebes Forum
Ich habe zwei identische Macros in meiner Tabelle
ein mal wird das Macro beim öffne der Tabelle ausgeführt mit:
Private Sub Workbook_Open() 'mein code end if End Sub dann genau das gleiche Macro in der Tabelle bei calculate
Private Sub Worksheet_Calculate() '...
05.07.2012 09:26:00
Thread-ID: 1269972
8 Beiträge
VBA: mehrere workbooks & -sheets
Dani

Hallo Excel- Koryphäen,
Habe folgendes Problem, wo ich keinen passenden code im Archiv finden konnte.
Habe 17 xls-files mit je 2 worksheets.
Der Tabellen-Aufbau ist immer identisch und ich möchte nun für all diese 17 workbooks & deren 2 worksheets die Spaltenbreite anpassen und...
02.08.2012 14:21:51
Thread-ID: 1273532
7 Beiträge
Mehrere Worksmaps in ein Worksheet kopieren
Luke

Hallo,
ich würde gerne mit VBA mehrere Worksmaps(die alle gleich sind(Range A:R)) in ein Worksheet nacheinander kopieren. Die Zeile 1 soll aber nur ein mal mitkopiert werden.
Vl. kann mir jemand helfen
Danke im Voraus
Luke
07.01.2013 10:12:54
Thread-ID: 1293126
3 Beiträge
ForumlaR1C1 umwandeln in WorkSheetFunction?
Maximilian

Hallo!
Zunächst danke an Rudi für den Lösungsvorschlag letzte Woche:
=SUMMENPRODUKT((sapLISEK_komplett.xls!$B$2:$B$1739=$C2)*(sapLISEK_komplett.xls!$C$2:$C$1739=D$1) *sapLISEK_komplett.xls!$E$2:$E$1739) Allerdings funktioniert das irgendwie nicht so, wie es soll -> alle Werte sind...
05.02.2013 10:24:45
Thread-ID: 1297678
2 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