If Anweisung
09.01.2006 15:56:01
Bulli
ich habe folgendes Problem:
ich möchte Preise, die in der Spalte B stehen per Makro in eine einem bestimmten Monat zugeprdneten Spalte kopieren, so dass diese genau für diesen Monat gelten.
Dies ist notwendig, damit die Preise nicht für jedes Monat neu eingegeben werden müssen. Über Excel lässt sich das Probelm auch nicht so einfach lösen, da die Auswertungen, die hinten dranhängen natürlich bei Änderung des aktuellen Preises auch abgeändert würden.
Man könnte natürlich die Preise auch nach Aktualisierung einfach in die entsprechende Spalte kopieren. Ich denke, aber dass dies wesentlich eleganter geht...
Anbei mein Code, eine Mischung aus VBA Rekorder und eigenen laienhaften Versuchen, der leider nicht so ganz funktioniert:
Sub Monatspreise()
ActiveSheet.Select
Range("B7").Select
If ActiveCell.Value = "Januar" Then Range("B8:B999").Select
Selection.Copy
Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
If ActiveCell.Value = "Februar" Then Range("B8:B999").Select
Selection.Copy
Range("F8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
If ActiveCell.Value = "März" Then Range("B8:B999").Select
Selection.Copy
Range("I8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' und so weiter und so fort bis Dezember
End Sub
vielen Dank für Euer Bemühen,
viele Grüße,
Bulli