Hallo zusammen,

ich bin nicht besonders bewandert im VBA und habe mir versucht ein Makro aufzunehmen und es dann auf einem aktivX Steuerelement zu legen.

Soweit so gut. Es hat geklappt, allerdings drei Probleme:

1. Wenn ich das Steuerelement in ein anderes Blatt verlege dann muss ich mit Active arbeiten...kann mir da jemand sagen was ich am Code änder muss?

2. Er soll eine CSV mit Semikolon als Trennzeichen speichern...macht er nur mit Komma...auch wenn ich Local:=true benutze. Jemand eine Idee?

3. Er soll die definierten Spalten formatieren, so... Doch da bekomme ich den Fehler das er das nicht selectieren kann.

Range("B:B,D:D,F:F,G:G,H:H,K:K").Select
    

Sub CSVsave()
'
' CSVsave Makro
'

'
    Range("A2:O2").Select
    Selection.AutoFill Destination:=Range("A2:O37000"), Type:=xlFillDefault
    Range("A2:O37000").Select
    Columns("A:O").Select
    Range("O1").Activate
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B:B,D:D,F:F,G:G,H:H,K:K").Select
    Range("K1").Activate
    Application.CutCopyMode = False
    Selection.NumberFormat = "0.00"
    Range("A1").Select
    ChDir "A:\"
    ActiveWorkbook.SaveAs Filename:= _
        "A:\AS Update2.csv", FileFormat:=xlCSV, Local:=True, _
    CreateBackup:=False
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

Ich danke euch schon mal im Vorraus!