Makro code funktioniert nicht - Woran liegt es?

[FR-CGI]

Hallo,

Ich moechte dass das Makro in Abhangigkeit des Spaltenbuchstabens in Zelle A57 (bspw. Spalte W) die Werte aus Spalte W in die Spalte B kopiert. Irgendwas macht das Makro es kommen aber keine Werte in Spalte B an?
Hat jemand eine Idee woran es liegt?

Danke

Sub Makro4()
'
' Makro4 Makro
'
' Tastenkombination: Strg+Umschalt+A
'   Col = Activesheet.Range("A57").Value
    Columns("col").Select
    Selection.Copy
    Columns("B:B").Select
    ActiveSheet.Paste
End Sub

[FR-CGI]

oder dieses hier, das wuerde auch mein Problem loesen. Aber wie muss ich es schreiben dass der Editor
RC[Range("A56")]" akzeptiert? in der Zelle A56 steht die Anzahl der Spalten nach Rechts von wo er die Werte nehmen soll.
In der unten aufgefuehrten Schreibweise akzeptiert er es nicht



Tastenkombination: Strg+Umschalt+A
    Range("B8").Select
    ActiveCell.FormulaR1C1 = "=RC[Range("A56")]"
    Range("B8").Select
    Selection.AutoFill Destination:=Range("B8:B13"), Type:=xlFillDefault
    Range("B8:B13").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Save
End Sub

[AlterDresdner]

'   Col = Activesheet.Range("A57").Value
    Columns("col").Select

Hallo,
wenn Du die beiden Zeilen durch
    col = ActiveSheet.Range("A57").Value 'Apostroph vorn weg
    Columns(col).Select 'Anführungszeichen weg
ersetzt, tut es Dir den Willen.
Gruß der AlteDresdner

[RPP63]

Moin!
Oder ein schlichter Zwei(einhalb)zeiler:

Code:

Columns(Range("A57")).Copy: Range("B1").PasteSpecial xlValues
Application.CutCopyMode = False

Gruß Ralf