Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1932to1936
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
1932to1936
1932to1936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten von anderem Excel in Tabellenblatt

Daten von anderem Excel in Tabellenblatt
27.05.2023 19:56:09
Michael

Guten Abend

Ich würde gerne von einem Download file (Excel File), welches ich jeden Tag herunterlade, die Daten in ein anderes Arbeitsblatt hineinfügen. Mit einer Drap & Drop Funktion wenn möglich oder sonst ein Button der ich im Tabellenblatt "Import" klicken kann. Beim Button müsste dann einfach der Explorer aufgehen so dass ich das gedownloadede file hineinfürgen kann.

Beim gedownloadede File benötige ich die Daten erst ab der 4. Zeile und bis dann zur nächsten leeren Zeile. Siehe Beispiel unten

1. Zeile: Titel
2. Zeile: Ein Text
3. Zeile: Leerzeile
4. Zeile: Daten die Importiert werden müssen
5. Zeile: Daten die Importiert werden müssen
6. Zeile: Daten die Importiert werden müssen
7. Zeile: Leerzeile
8. Zeile: Fusszeile
Vielen Dank für eure Hilfe und Bemühungen.

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten von anderem Excel in Tabellenblatt
28.05.2023 00:24:07
ralf_b 
Sub dateiöffnenDialog()
    Dim filetoopen
    Dim wb As Workbook

    filetoopen = Application.GetOpenFilename() ' FileFilter:="Exceldateien (*.xls,*.xlsx")
    If filetoopen = False Then Exit Sub
    Set wb = Workbooks.Open(filetoopen, ReadOnly:=True)
    With wb.Worksheets(1).Cells(4, 1)
        If .Value > "" Then
            .Resize(.End(xlDown).Row - 3).Select 'Copy
            ThisWorkbook.Worksheets(1).Cells(1, 1).End(xlUp).Offset(1).Paste
        End If
    End With
    wb.Close False
    Set wb = Nothing
End Sub


AW: Daten von anderem Excel in Tabellenblatt
28.05.2023 18:17:44
Michael
Hallo

Danke Ralf für das Coding. Kann man auch ein VBA erstellen mit einer Drag & Drop Funktion oder ist das zu komplex?

Noch ein schönes restliches Wochenende.


Anzeige
AW: Daten von anderem Excel in Tabellenblatt
28.05.2023 22:20:06
Pappawinni
Bitte was ?
Drag & Drop, zu Deutsch Ziehen und Ablegen, was willst du da programmieren, vielleicht einen Finger der irgendwo etwas selektiert und dann irgendwo ablegt?
Tssss..


AW: Daten von anderem Excel in Tabellenblatt
29.05.2023 16:39:05
Michael
Hallo Ralf

Vielen Dank für das Coding.
Ich erhalte die Fehlermeldung wenn sich das File öffnet: Objekt unterstützt diese Eigenschaft oder Methode nicht

Was heisst das?


AW: Daten von anderem Excel in Tabellenblatt
29.05.2023 16:53:57
ralf_b
bei mir gibts keine Fehlermeldung.
Deine Fehlermeldung heisst das auf ein Objekt eine dafür nicht existierenden Eigenschaft oder Funktion angewendet werden soll.
da ich nicht mit deinen Dateien oder deiner Systemumgebung arbeite, weis ich nicht woher das kommt.


Anzeige
doch eine Idee
29.05.2023 17:22:20
ralf_b
.Select 'Copy tausche das select durch copy. War zu Testzwecken.


AW: doch eine Idee
29.05.2023 18:05:23
Michael
Hallo Ralf

Funkioniert leider immernoch nicht.
Es öffnet das file und kopiert die Daten. Beim einfügen geht es nicht weiter. Ich denke es gibt ein Problem mit diesem Coding.

ThisWorkbook.Worksheets(1).Cells(1, 1).End(xlUp).Offset(1).Paste
Gibt es ein alternativ coding?


AW: doch eine Idee
29.05.2023 18:22:31
ralf_b
die Zeile sucht nach der letzten belegten Zelle in Spalte A des ersten Arbeitsblattes und geht eine Zeile tiefer.
Was ist denn mit deinem ersten Arbeitsblatt in der Datei mit dem Code?


Anzeige
AW: doch eine Idee
29.05.2023 18:45:14
Michael
Hallo Ralf

Was meinst du mit dem ersten Arbeitsblatt mit dem Code?

Hier habe ich mal einen Screenshot von dem Bildschirm.
https://www.herber.de/bbs/user/159370.png
Gruss


AW: doch eine Idee
29.05.2023 19:07:28
ralf_b
Thisworkbook bezieht sich auf die Datei, in welcher der Code läuft/steht.
Das Bild hilft mir kein Stück weiter.

Sorry aber ich hab jetzt grad keine Muse hier detaillierten Nachhilfeunterricht zu geben.


AW: doch eine Idee
29.05.2023 19:26:55
Michael
Hallo Ralf

Die Daten müssten in das Tabellenblatt "Import". Unten hab ich ein coding das funktioniert aber nicht.

Worksheets("Import").Cells(1, 1).End(xlUp).Offset(1).Paste


Anzeige
AW: doch eine Idee
29.05.2023 20:49:12
ralf_b
wird das ein Witz?
Thisworkbook ist die Referenz auf die Mappe und Worksheets bezieht sich auf Blätter in einer Mappe.
Beim Arbeiten mit mehreren Dateien, sollte man die Mappe immer mit referenzieren.
Läßt man die Mappenbezeichnung weg, wird die gerade aktive Mappe für alle Referenzen herangezogen. Und das dürfte in diesem Moment die eben geöffnete Datei sein.

305 Forumthreads zu ähnlichen Themen

Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Anzeige
Cursor auf anderes Blatt springen lassen
KlausF

Schönen Freitag-Morgen Leute!
In einer Datei kontrolliere ich in Tabelle 20 errechnete Werte. Entsprechen diese nicht meinen Vorstellungen, so muß ich in Tabelle 1 in der korrespondierenden Zelle (d.h. die mit der gleichen Adresse wie die aktuelle Zelle in Tab.20) Korrekturwerte eingeben.
26.09.2008 08:02:06
Thread-ID: 1012475
3 Beiträge
Übertrag auf anderes Blatt
Sankt

Hallo ,
erstmal vielen Dank für Eue Hilfen.
Ich würde gerne bei folgendem Blatt von der jeweiligen unteren Zelle einen Übertrag auf die Obere Zelle machen. Wie es normal geht weiß ich.
Meine Frage ist nun kann ich den Wert übernehmen wenn ich das Blatt kopiere.
https://www.herb...
02.10.2008 14:42:14
Thread-ID: 1013889
3 Beiträge
Übertrag auf anderes Blatt
Sankt

Hallo,
ich habe diese Frage schon einmal gestellt aber leider komme ich mit der Antwort nicht zurecht.

Ich möchte gerne aus ein Zelle November M47 den Wert in Dezember D9 übernehmen.
Normal würde es funktionieren mit ='November 2008'!M47. Man könnte nun ganz einfach die Stunden...
06.10.2008 11:50:21
Thread-ID: 1014393
7 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Übertrag auf anderes Blatt
Sankt

Hallo
ich habe da ein kleines Problem.
Ich benutze folgende Formel
=INDIREKT(""&WAHL(MONAT(A1)-1;"Januar";"Februar";"März";"April";"Mai";"Juni";"Juli";"August"; "September";"Oktober";"November";"Dezember")&"!D9")
die funktioniert auch so weit ganz gut.
Nun habe ich...
03.11.2008 16:50:00
Thread-ID: 1021376
7 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
2
7
2
2
1
2
2
6
1
6
2
6
19
2
4
1
8
4
1
1
4
4
3
8
5