Thema Datum  Von Nutzer Rating
Antwort
Rot Makro anpassen
 23.05.2014 15:45:54 Oliver
NotSolved

Ansicht des Beitrags:
Von:
Oliver		 Datum:
23.05.2014 15:45:54		 Views:
1532		 Rating:
     
Antwort:
  Ja
Thema:
Makro anpassen

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.

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

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro anpassen
 23.05.2014 15:45:54 Oliver
NotSolved