---

Hallo Spezialisten,

mir stellt sich folgendes Problem:

Ich will ein Makro schreiben, welches zu einem vorhandenen Worksheet zwei hinzufügt und die beiden neuen Tabellenblätter mit Daten aus 2 separaten Dateien füllt (jede Datei hat nur ein Worksheet).

Das habe ich bisher:

Private Sub CommandButton1_Click()
On Error Resume Next

    ChDir ThisWorkbook.Path
        'ChDrive "c:\"
    DateinameMaster = Application.GetOpenFilename _
      ("Micrsoft Excel-Dateien (*.xls),*.xls")
    If DateinameMaster = False Then Exit Sub

TextBox1.Value = DateinameMaster

End Sub

Private Sub CommandButton2_Click()
On Error Resume Next

    ChDir ThisWorkbook.Path
        'ChDrive "c:\"
    DateinameNeu = Application.GetOpenFilename _
      ("Micrsoft Excel-Dateien (*.xls),*.xls")
    If DateinameNeu = False Then Exit Sub
 
TextBox2.Value = DateinameNeu

End Sub

Private Sub CommandButton4_Click()

Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Application")

ExcelSheet.Application.Visible = True
ExcelSheet.Application.Workbooks.Open Filename:=TextBox1.Value
ExcelSheet.Application.Visible = True
ExcelSheet.Application.Sheets("masterdatei").Select
End Sub

Mit den beiden oberen Buttons können die Dateien ausgewählt werden, die geladen werden sollen. Beim dritten Button hab ich mich jetzt irgendwie verfahren....es werden immer 2 neue Workbooks geöffnet, ich will jedoch, dass 2 neue Sheets erstellt werden und die Daten der beiden Dateien darauf verteilt werden.

Ich bitte um Vorschläge von Leuten die mehr Ahnung von der Materie haben, was wahrscheinlich 95% sind.

Vielen Dank

Basin.1

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Basin.1

wenn Du in Deinen Code

Code:

---

Sheets.Add

---

(ggf. noch mit dem entsprechenden Workbook davor o. ä.) einbaust, erzeugst Du Dir neue Blätter. Den Rest kannst Du Dir vermutlich mithilfe von

Code:

---

Cells.Select
Selection.Copy
...
ActiveSheet.Paste

---

selber erarbeiten. Die erste Zeile wählt alle Zellen eines Blattes aus, die zweite kopiert diese und die dritte schreibt die Kopie dann an eine ausgewählte Stelle (die genauen Zuordnungen auf Workbooks und Sheets fehlen hier noch, sind jedoch spezifisch).

Hope that helps!

Viele Grüße,
Ortrun

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für die schnelle Antwort, mein eigentliches Problem ist, wie beziehe ich mich auf die Dateien. Sie befinden sich im selben Ordner und haben immer die selben Namen.
Ich blick einfach in der Deklaration der Verweise auf Datei.Worksheet.Zelle nicht so richtig durch.
Es wäre schön wenn du mal ein kleines Beispiel zum Befehl .copy hier posten könntest

Vielen Dank!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Basin.1

um Deinem Beispiel zu folgen,versuch es mal hiermit (ich lasse die anderen Dateien gleich öffenen, wenn sie ausgewählt werden):

Code:

---

Private Sub CommandButton1_Click()
On Error Resume Next

    thisName = ThisWorkbook.Name
    ChDir ThisWorkbook.Path
        'ChDrive "c:\"
    DateinameMaster = Application.GetOpenFilename _
      ("Micrsoft Excel-Dateien (*.xls),*.xls")
    If DateinameMaster = False Then Exit Sub

TextBox1.Value = DateinameMaster

Workbooks.Open Filename:=DateinameMaster
Windows(thisName).Activate
End Sub

Private Sub CommandButton2_Click()
On Error Resume Next

    thisName = ThisWorkbook.Name
    ChDir ThisWorkbook.Path
        'ChDrive "c:\"
    DateinameNeu = Application.GetOpenFilename _
      ("Micrsoft Excel-Dateien (*.xls),*.xls")
    If DateinameNeu = False Then Exit Sub

TextBox2.Value = DateinameNeu

Workbooks.Open Filename:=DateinameNeu
Windows(thisName).Activate
End Sub

Private Sub CommandButton3_Click()

thisName = ThisWorkbook.Name

For Each w In Workbooks
    If w.Name <> ThisWorkbook.Name Then
        Windows(w.Name).Activate
        Worksheets("Test").Cells.Select
        Selection.Copy
        Windows(thisName).Activate
        Sheets.Add
        'Range("A1").Activate
        ActiveSheet.Paste
       
        w.Close savechanges:=False
    End If
Next w
End Sub

---

Dann musst Du "nur" noch die Warnungen ausschalten und hast gleich Deine anderen Dateien wieder geschlossen.

Gruß,
Ortrun

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Super, es funktioniert!

Vielen Dank!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP