bitte Hilfe bei Ergänzung
18.10.2006 23:01:31
Uwe
habe bei der Recherche folgendes Makro gefunden.
Sub Uebertrag()
'03.10.03 von Bernhard Mächler
Sheets(1).Select
With Sheets(2)
lRow = .Range("C35").End(xlUp).Row + 1
.Cells(lRow, 1).Value = [A3]
.Cells(lRow, 3).Value = [C5]
.Cells(lRow, 4).Value = [C6]
.Cells(lRow, 5).Value = [C7]
.Cells(lRow, 6).Value = [D5]
.Cells(lRow, 7).Value = [D6]
.Cells(lRow, 8).Value = [D7]
.Cells(lRow, 9).Value = [E5]
.Cells(lRow, 10).Value = [E6]
.Cells(lRow, 11).Value = [E7]
.Cells(lRow, 12).Value = [F5]
.Cells(lRow, 13).Value = [F6]
.Cells(lRow, 14).Value = [F7]
End With
End Sub
....wie muß das geändert werden wenn die Daten in einer anderen Mappe abgespeichert werden sollen z.b. C:\Gesamt.xls in Tabelle1 oder so.
Weiter wäre die Frage ob man die geschlossene Gesamt.xls dann öffnen kann-Daten einfügen-Speichern- und wieder schließen.
Ist sowas überhaupt möglich?
vielen Dank schon mal im vorraus.
Gruß Uwe
Anzeige