|
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!
|