Herbers Excel-Forum - das Archiv

Zellinhalte in eine neue Mappe kopieren

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
Excel-Beispiele zum Thema "Zellinhalte in eine neue Mappe kopieren"
Einlesen von Zellinhalten in Variablen Zellinhalte zeilenweise sortieren
Wiederherstellung des alten Zellinhaltes bei unerlaubten Werten Bereiche in Abhängigkeit eines Zellinhaltes drucken
Die tatsächliche Anzeige eines Zellinhaltes per VBA abrufen Zellinhalte in Verbindung mit Variablen in Textdatei schreiben
Zellinhalte aus Einzelblättern in Deckblatt übertragen Excel-Zellinhalte in Worddokument einlesen um per Email versenden
Zellinhalte über VBA verbinden Zellinhalte vor dem Verbinden der Zellen zusammenfassen