wert einer zelle als neue position auslesen
11.07.2003 15:37:21
susanne
befasse mich noch nicht so lange mit makros und stoße schon bei kleinen problemen an meine grenzen
und wollte es nun mal auf diesem wege versuchen eine anwort zu finden.
und zwar ärgert mich folgendes makro:
Sub MSaveMonth()
' MSaveMonth Macro
' Macro recorded 11.07.03 by ICA_GmbH
' Speichert den eingegebenen Monat in der Historie.
Range("A4:L23").Select
Range("L23").Activate
Selection.Copy
Sheets("Historie").Select
** Range("B2").Select *********************
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("B2:D21").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("C2:C21").Select
Selection.Delete Shift:=xlToLeft
Range("B4:H21").Select
Range("H21").Activate
Selection.NumberFormat = "0.00"
Range("A2:H21").Select
Range("H21").Activate
Selection.Font.Bold = True
Selection.Font.Bold = False
Range("A2").Select
ActiveWorkbook.Save
End Sub
--------------------------------------------------------------------
in der reihe mit den vielen **** also:
Range("B2").Select
hier soll statt der statischen Zelle B2 der Wert der Zelle (z.b. A2) ausgelesen werden und als position zum kopieren benutzt werden.
wahrscheinlich super einfach, aber ich schlag mich mit diesem problem jetzt schon einige stunden rum und ich glaub nicht,
dass ich von alleine drauf komme.
wenn jemand ne idee hätte wäre ich für jede hilfe wirklich dankbar!
lg susanne