Zellinhalte in eine neue Mappe kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Zellinhalte in eine neue Mappe kopieren von: Gerhard
Geschrieben am: 08.04.2005 23:48:30

Hallo
Wie kann ich aus einer Projektmappe (Quelldatei), mehrere Zellinhalte in eine andere Arbeitsmappe mit dem Namen "Info" in das Blatt "Prozessdaten" via VBA übernehmen?
Die Projektmappe bekommt nach Anlegen eines neuen Projektes immer einen neuen Namen z.B Projekt 01_2005 oder Projekt 10_2005 und hat somit immer einen variablen Namen!
Ich möchte nun jeweils aus einer geöffneten Projetmappe die Inhalte der Zellen:
A1; D2; E3; E4; F10; F11 und C15 in die Arbeitmappe "Info", die ebenfalls geöffnet ist, in das Blatt "Prozessdaten" in die Zellen B10; C11; D12; D13; C15; C17 und D22 diese Inalte via VBA übernehmen!

Vielen Dank für Eure Hilfe

Gruß Gerhard

Bild


Betrifft: AW: Zellinhalte in eine neue Mappe kopieren von: paula
Geschrieben am: 09.04.2005 20:44:26

Hallo Gerhard

wenn die Projektmappe geöffnet ist und das Makro Bestandteil dieser Projektmappe ist,
ist es wichtiger den Tabellennamen zu wissen od.festzulegen,um ihn gezielt in das Makro einbinden zu können

Sub Daten_nach_Info()
Dim wb As Workbook
Dim quell_WB As String
quell_WB = ThisWorkbook.Name
'
For Each wb In Application.Workbooks
    If wb.Name = "Info.xls" Then
        GoTo Weiter
    Else
        MsgBox "Zieldatei nicht geöffnet"
        ChDir "G:\Eigene Dateien"
        Workbooks.Open Filename:="G:\Eigene Dateien\Info.xls"  'Pfad anpassen!!!
        Workbooks(quell_WB).Activate
        GoTo Weiter
    End If
Next wb
Weiter:
With Workbooks("Info.xls").Worksheets("Prozessdaten")
    .Range("B10") = ThisWorkbook.Worksheets("Tabelle1").Range("A1")
    .Range("C11") = ThisWorkbook.Worksheets("Tabelle1").Range("D2")
    .Range("D12") = ThisWorkbook.Worksheets("Tabelle1").Range("E3")
    .Range("D13") = ThisWorkbook.Worksheets("Tabelle1").Range("E4")
    .Range("C15") = ThisWorkbook.Worksheets("Tabelle1").Range("F10")
    .Range("C17") = ThisWorkbook.Worksheets("Tabelle1").Range("F11")
    .Range("D22") = ThisWorkbook.Worksheets("Tabelle1").Range("C15")
End With
End Sub


Gruss paula


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellinhalte in eine neue Mappe kopieren"