Vereinfachung des Codes
06.06.2013 15:49:18
Toumas
ich habe mir gerade etwas gebastelt (die meisten von euch würden vermutlich graue Haare deswegen bekommen *g*) um mir aus einer anderen Datei aus unterschiedlichen Datenblättern werte rauszukopieren....
In der Datei, gibt es je Monat ein Blatt in dem die Werte stehen.
Ich öffne mir per Makro die Datei und dann,für jedes Blatt, habe ich mir folgende Lösung gestrickt :
With Sheets("Sep_13")
Workbooks("XXXXXXXXX.xlsm").Sheets("Sep_13").Range("AJ108:Bm108").Copy
Workbooks("YYYYYYYYY.xlsm").Sheets("Hilfsblatt").Range("c18").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End With
Funktioniert auch einwandfrei..... (ja ich weiß, keine tolle Lösung ;-) )
Bei 12 Monaten auch sicherlich nicht wirklich schön anzusehen....
Nun würde ich gern den Code entsprechend vereinfachen, da es schon recht störend ist, dass er mir immer schön "anzeigt" wo er gerade rumspringt und das (Anfänger-typische) "Flackern" entsteht.
Das Problem für mich ist, dass die Zeilen, in denen die Werte stehen fast immer unterschiedlich sind (also mal wie oben AJ108:BM108, dann mal AK104:BO104...usw.)
Kann mir jemand bitte ein Tipp geben, wie ich es vermeiden kann, dass mir Excel durch die "wilde" Kopiererei flackert ?
Vielen Dank im Voraus.
Viele Grüße
Toumas