txt-Dateien in zwei getrennte Arbeitsblätter importieren

[Günti]

Hallo,

ich möchte gerne 2 txt-Dateien in Excel importieren.
Jede Datei soll auf ein separates Tabellenblatt. 
Die erste Datei funktioniert auch. 
Wenn ich ins zweite Tabellenblatt springe und die zweite txt-Datei
auswähle steht nichts in der Tabelle 2.

Die beiden txt-Dateien und die xlsm-Datei mit Script hänge ich an.

Code:

Sub Import_mit_Dialog()
Dim Quelle As Object, Ziel As Object
Dim Datei As String

On Error GoTo Fehler

'Dialog "Datei öffnen" anzeigen
Datei = Application.GetOpenFilename("Excel-Dateien(*.txt),*xls")


'Abbrechen falls keine Datei ausgewählt
If Datei = "Falsch" Then
 MsgBox "keine Datei ausgewählt", , "Abbruch"
 Exit Sub
End If

'Ausgewählte Datei öffnen
Workbooks.Open Filename:=Datei

Set Quelle = ActiveWorkbook.Worksheets(1)
Set Ziel = ThisWorkbook.Worksheets(1)

'kopieren und einfügen
Quelle.UsedRange.Copy Ziel.Cells(1, 1)

Application.Volatile
blattname = ActiveSheet.Name

ActiveWorkbook.Close

   
   
   
'Auf Tabelle2 (Blatt2) wechseln
Sheets("Tabelle2").Activate


'Dialog "Datei öffnen" anzeigen
Datei = Application.GetOpenFilename("Excel-Dateien(*.txt),*xls")


'Abbrechen falls keine Datei ausgewählt
If Datei = "Falsch" Then
 MsgBox "keine Datei ausgewählt", , "Abbruch"
 Exit Sub
End If

'Ausgewählte Datei öffnen
Workbooks.Open Filename:=Datei


Set Quelle = ActiveWorkbook.Worksheets(1)
Set Ziel = ThisWorkbook.Worksheets(1)

'kopieren und einfügen
Quelle.UsedRange.Copy Ziel.Cells(1, 1)

Application.Volatile
blattname = ActiveSheet.Name

ActiveWorkbook.Close


'Speicher freigeben
Set Quelle = Nothing
Set Ziel = Nothing

Exit Sub

Fehler:
Set Quelle = Nothing
Set Ziel = Nothing

   MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
   & "Beschreibung: " & Err.Description _
   , vbCritical, "Fehler"
   
End Sub

txt-Datei:

Code:

scg_test_16.07.12_14.31    100    3    0
scg_test_16.07.12_14.44    100    2    0
scg_test_16.07.12_16.31    80    4    1    
scg_test_16.07.12_17.44    60    3    2
scg_test_16.07.13_14.31    100    3    0
scg_test_16.07.14_14.44    100    2    0
scg_test_16.07.15_14.31    100    3    0
scg_test_16.07.16_14.44    0    0    0

Hat mir irgendjemand einen Tip ?

Danke im voraus und Gruß
Günti

[chris-ka]

Hi,

wie wäre es beim zweiten Durchgang Blatt 2 zu nehmen?
Set Ziel = ThisWorkbook.Worksheets(2)

[Günti]

Hallo Chris,

jetzt klappt es.
Ich stand total auf dem Schlauch.

Vielen Dank und Gruß
Günti