HILFE! Zellen kopieren
23.09.2005 13:46:24
MartinS
hab hier ein riesen problem:
möchte aus einer per programm geöffneten Arbeitsmappe in einer bestimmten Tabelle bestimmte Zellen auslesen, und in einer andere Arbeitsmappe in einer bestimmten Tabelle genauso wiederspiegeln. Problem ist, dass die Zellen nicht zusammenhängen!
Bsp:
Bereich z.B.: ("D5:F7", "C8", "C15:F16")
wenn ich nun meinen Code dafür erstelle wird das total unübersichtlich:
____________________________________________________________________________
Workbooks.Open FileName:= _
"\Inputparameter.xls", _
UpdateLinks:=0
Sheets("UB ZS Import").Select
Range("D5:F7").Select
Selection.Copy
Windows("20050831_MASTER_neu.xls").Activate
Sheets("Zentrale Parameter").Select
Range("O13").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("Inputparameter.xls").Activate
Sheets("UB ZS Import").Select
Range("C8").Select
Selection.Copy
Windows("20050831_MASTER_neu.xls").Activate
Sheets("Zentrale Parameter").Select
Range("N16").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
...
________________________________________________________________________________
Irgend jemand einen vorschlag, wie das ganze performanter geht, und vor allem schreibarbeit spart?
Gruß,
Martin