|
Hi Leute,
folgendes Problem: Ich habe eine Datei mit ca. 30 Tabs in der ich regemaessig Formeln von einer Spalte in die naechste kopiere und den Ursprungsspalte mit Werten ueberschreibe. Also quasi:
Spalte B hat eine Formel bspw. $A$2*2. Das moechte ich jetzt in Spalte C kopieren und Spalte B mit harten Werten ueberschreiben. Am Ende geht es hier im 500+ Zeilen in einer Spalte je Tab.
Dafuer habe ich ein Makro, das funktioniert. Meine Frage nun: Mein Makro ist starr, d.h. ich muss immer mit Suchen und Ersetzen den Bereich anpassen, also mache B zu D und C zu E oder sowas. Ideal waere ein Fenster beim Makrostart, welches nach den Spalten fragt. Also "Kopiere von Spalte ?? nach Spalte ??".
Habt ihr eine Loesung? Aktuell sieht das Makro so aus:
Sheets("1").Select
Range("I12").Select
Range("I12:I528").Select
Selection.Copy
Range("J12").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("I12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Danke euch :)
|