Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1084to1088
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
1084to1088
1084to1088
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt aus anderem Workbook kopieren

Tabellenblatt aus anderem Workbook kopieren
Jordan
Hallo zusammen,
ich hab hier mein erstes kleines VBA Projekt und hänge nun an einer Stelle.
Ich möchte den Inhalt einer Tabelle aus einer anderen Excel Datei in mein Workbook kopieren.
Da es sein kann, dass der Nutzer die Datei umbenannt hat, oder wo anders hingespeichert hat, möchte ich den Ort durch den Nutzer abfragen lassen.
Sollte dann so aussehen:
Nutzer wird gefragt, wo die Datei liegt ( am besten mit dem Excel eigenen Dialog)
Danach soll die Datei (Tabellenblätter) in mein Workbook in eine neue Tabelle mit dem Namen "Prüfung" geschrieben werden!
Die Überprüfung meiner Tabellen, ob eine Tabelle mit dem Namen "Prüfung" schon vorhanden ist, hab ich schon fertig!
Ich brauch nur einen kleinen Schubs! Will es ja größten Teils selber schaffen!
Danke für Eure Hilfe!

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

Betreff
Benutzer
Anzeige
AW: Tabellenblatt aus anderem Workbook kopieren
27.06.2009 11:40:44
Tino
Hallo,
geht es hiermit.
Option Explicit

Sub Start()
Dim strFile As String
Dim QuelleFile As Workbook, QuelleSheet As String, rngQuelle As Range
Dim ZielSheet As Worksheet

'hier noch den Tabellennamen für die Quelle anpassen 
QuelleSheet = "Tabelle1"
'hier den Tabellennamen fürs Ziel anpassen 
Set ZielSheet = ThisWorkbook.Sheets("Prüfung")

'Dialog 
    strFile = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
    
'wurde Abbrechen gedrückt? 
    If Not strFile = CStr(False) Then
        
        With Application
           .ScreenUpdating = False
           .EnableEvents = False
                
                'Datei schreibgeschützt öffnen 
                Set QuelleFile = Workbooks.Open(strFile, , True)
                'Quellbereich feststellen 
                Set rngQuelle = QuelleFile.Sheets(QuelleSheet).UsedRange
                'Ziel leer machen für neue Daten 
                ZielSheet.UsedRange.Value = ""
                'Quelle nach Ziel kopieren 
                rngQuelle.Copy ZielSheet.Range(rngQuelle.Address)
                'Datei wieder schließen 
                QuelleFile.Close False
           
           .ScreenUpdating = True
           .EnableEvents = True
         End With
    
    End If


End Sub


Gruß Tino

Anzeige
Danke Tino aber....
27.06.2009 11:55:09
Jordan
kann man den Tabellennamen der Quelle auch über ein ähnliches Menü wie bei "Datei öffnen" abfragen und in den Prozess einfließen lassen? Denn es kann ja sein, das die Datei einmal anders heist, oder vielleicht vom Anwender wo anders gespeichert wurde?
mit einer Userform
27.06.2009 12:19:57
Tino
Hallo,
vielleicht so mittels einer Userform, wo man die Tabelle auswählen kann.
hier ein Beispiel, auf Schönheit habe ich nicht geachtet:
https://www.herber.de/bbs/user/62788.xls
Gruß Tino
DU BIST SUPER!!!!
27.06.2009 12:24:26
Jordan
Danke, so hab ich mir das vorgestellt!!!
Nun muß ich das nur noch verstehen! Aber das haut hin und find ich super. Das Aussehen paß ich noch han.
DANKE DANKE DANKE
Hast mich wieder einen Schritt nach vorn gebracht!
Anzeige
Verbesserung
27.06.2009 13:03:14
Tino
Hallo,
ersetzen die Prozedur UserForm_Initialize in der Userform durch diese.
Beim Aufruf muss QuelleSheet zuerst leer gemacht werden, sonst kann es bei einem zweiten Aufruf zu einem Fehler kommen.
Private Sub UserForm_Initialize()
Dim oSheets As Worksheet

QuelleSheet = ""

With Me.ComboBox1
 .Clear
    For Each oSheets In QuelleFile.Worksheets
      .AddItem oSheets.Name
    Next oSheets
 .ListIndex = 0
End With

End Sub


Gruß Tino

Anzeige
...Ähnlich ist relativ! Ansonsten mit InputBox...
27.06.2009 12:22:25
Luc:-?
...bzw selbstgebautem UserFormular, Jordan.
Bspp zuhauf im Archiv...
Gruß Luc :-?
Danke für den Tipp Luc ....
27.06.2009 12:28:54
Jordan
aber ich hab das Forum schon durchsucht. Leider habe ich für mein Problem keine wirkliche Hilfe gefunden, da ich grundsätzlich das Problem hatte, wie ich den Pfad und den Namen der Quell Tabelle in mein Projekt bring.
Tino hat mir super geholfen.
Danke auch dir für den Tipp!

299 Forumthreads zu ähnlichen Themen

aus Word-Datei in Excel kopieren
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
ich will ein Worde-file öffnen, alles kopieren und in ein xls-file einfügen. Kann mir da jemand weiterhelfen?
Danke schon im Voraus!
Gruss Florian
13.08.2008 11:22:00
Thread-ID: 1001444
11 Beiträge
Anzeige
aus ausgewählter Datei Tabellenblätter kopieren
Katrin

Hallo, wer kann mir helfen?
Ich möchte aus einer, vorher in einem Dialogfenster ausgewählten Datei (immer unterschiedlich), den Inhalt mehrerer Tabellenblätter in eine andere Datei kopieren. Dabei sind die Bezeichnungen der Tabellenblätter in den beiden Dateien identisch. Bis zum 1. Tabelle...
17.09.2008 10:35:00
Thread-ID: 1010267
2 Beiträge
Dateinamen aus Verzeichnis nach Excel kopieren
obelix-xxl

Hallo,
nachfolgenden Makro habe ich bei der Suche hier im Forum gefunden.
Es wäre schön, wenn mir Unterstützung geboten würde.
Für meinen Anwendungsfall benötige ich in einer Afrage, die
1.) Abfrage nach dem Unterverzeichnis im dem die zu kopierenden Dateinnamen stehen (Padangab...
08.10.2008 11:35:00
Thread-ID: 1014978
3 Beiträge
Anzeige
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Worksheet aus geschl. in geöffn. Datei kopieren
Alexander

Hallo zusammen,
ich habe folgendes Problem. Meine VBA Kenntnisse sind leider nicht allzu gut.
Ich habe eine geöffnete Datei und eine geschlossene Datei. Nun will ich aus der geschlossenen Datei ein Worksheet/Arbeitsblatt komplett inklusive seiner Inhalte in die aktuell geöffnete Datei...
20.01.2009 13:38:00
Thread-ID: 1041825
4 Beiträge
Aus diversen Exceldateien einen Wert kopieren
Fabio

Hallo zusammen,
kann mir jemand helfen (vielleicht mit der Lösung) - oder zumindest einen Tipp nach was ich suchen könnte.
Problem:
in einem Verzeichnis liegen knapp 50 Excel-Dateien
ich will in einer neuen Datei (gesamt.xls)
in der Spalte "C" alle Werte aus jeder einzelnen...
13.02.2009 10:26:00
Thread-ID: 1050383
2 Beiträge
Tabellenblätter aus ext. Datei kopieren
Mandy

Hi,
such dringend Hilfe. Ich suche ein Makro, mit dem ich aus Excel heraus den ÖFFNEN-Dialog starten kann, eine externe Excel Tabelle auswählen kann und dann alle darin befindlichen Tabellenblätter in mein Sheet laden kann.
Muss dazu sagen, meine Tabelleblätter, die ich kopieren will, e...
20.03.2009 09:18:22
Thread-ID: 1062047
5 Beiträge
Sheet kopieren, einfügen und umbenennen
Mandy

Hi,
ich muss doch noch mal was fragen:
Ich möchte in meiner Datei von einem sheet einen Kopie machen , neu einfügen und mit Namen benennen. das mach ich so:
Sheets("Temp").Copy after:=Sheets("Temp")
ActiveSheet.Name = "Ablage"
Dazu nun zwei Fragen:
1. Das neue Sheet "Abl...
26.03.2009 22:31:22
Thread-ID: 1064423
5 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox UserForm

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
10
1
1
2
2
4
3
1
4
4
7
2
2
2
3
3
7
5
1
3
8
4
1
2
2