FileFormat ???

[GMG-CC]

Moin,

wieso um alles in der Welt willst du in eines solchen Uralt-Format speichern, das heutzutage keinerlei Bedeutung hat? Oder willst du die Daten hinterher in Multiplan (der Vorgänger von Excel) verwenden?

Du machst es uns (durch Unachtsamkeit?) wirklich nicht leicht ...

[Steffl]

Hallo Charly,

nehme bitte das &-Zeichen und nicht das +-Zeichen.

[karomue]

Hallo Günther, welches uralt-Format, stehe im Moment etwas auf dem Schlauch...
Hallo Stefan, und wo war das bitte genau?

Code:

fileSaveName = Application.GetSaveAsFilename( _
   fileFilter:="Text Files (*.xlsm), *.xlsm")
If fileSaveName <> False Then
   MsgBox "Save as " & fileSaveName
End If

Application.GetSaveAsFilename = "C:\Users\Charly\EigeneDokumente\Telekom\ev" + AuswMonat + AuswJahr + ".xlsm" '(fileFilter:="Text Files (*.xlsm), *.xlsm")

Habe im Moment etwas "gelesen" und probiert:
leider wird der angegebene Ordner nicht geöffnet, es erscheint zwar der ...Telekom-Ordner (Speichern) aber egal was ich dort eingebe, gespeichert wird nix..

[karomue]

Es geht darum: Einzelverbindungsnachweise der Telekom im *..slk-Format in Excel einzulesen (das geht ja, liegt z.B. als 07_2015_EVN.slk vor) und dann zu speichern. Im Ordner Telekom mit dem Speichern-Fenster (das kommt momentan) kann ich aber eingeben was ich will, gespeichert wir nix.

[karomue]

Code:

Sub Telefon_Einzelverbindung()
'
' Telefon Makro für Download-File itemizedbill
' Makro am 01.07.99 von Karl-Robert Müller aufgezeichnet
' Letzte Änderung 18.9.99
' Letzte Änderung 21.8.2001 Array auf 17 erweitert, Formatkennzeichen angepasst
'

'A Abschnitt (Array =1,2)           neu
'B Anbieter  2,2
'C Anschluß 3,2
'D Kostenart/Anschlußnr 4,2
'E Anschlußart 5,2
'F Datum 6,4
'G Beginn 7,1
'H Dauer 8,1
'I Nutzer 10,2                              neu
'J Empfänger 11,2                       neu
'K Stichwort 12,2                       neu
'L Zielnr. 12,2
'M Zielortsnetz 13,2
'N Tarifart 14,2
'O Tarifeinheit 15,1
'P Nettoges.Preis DM 16,2
'Q Nettoges.Preis EUR 17,2

'ab Jan 2003:
'A Produkt ISDN (Array=1,2)
'B Anbieter Deutsche Telekom AG 2,2
'C Anschlußart Rufnummer 3,2
'D Anschluß --> Rufnummer, Zahl 4,2
'E Datum 5,4
'F Beginn 6,1
'G Dauer 7,1
'H Zielrufnummer 8,2
'I Zielortsnetz 9,2
'J Service/Tarifart 10,1
'K Tarifeinheit/Preis/min € 11,2
'L Nettogesamtbetrag € 12,2

'1. Zahl=Spalten-Nr., 2.Zahl: 1=Standard, 2=Text, 4=Datum TMJ

   Dim TabAnfang%, TabEnde%, Test1%, Test2, neu As Integer, Spalte%
   Dim Summe As Single, Summe1 As Single
   Dim Test$, Testa$, Sort As String, Argu$
   Dim zeit As Date
   
   Mldg = "Falls neues File geladen werden soll, muß dies in/als ""C:\Eigene Dateien\Telekom\ev*.slk"" vorliegen"          'bis 7.csv"" vorliegen"
   MsgBox (Mldg)
   JahrJetzt = Mid$(Now, 7, 4)
   MonatJetzt = Mid$(Now, 4, 2)
   AuswJahr = InputBox(" Bitte Auswertejahr -->1999,2000,2001<-- eingeben", "Jahr", JahrJetzt)
   AuswMonat = InputBox(" Bitte Auswertemonat -->01,02,...12<-- eingeben", "Monat", MonatJetzt)
   
   Select Case AuswMonat
       Case Is = 1, "Jan", "jan"
           AuswMonat = "01"
       Case Is = 2, "Feb", "feb"
           AuswMonat = "02"
       Case Is = 3, "Mar"
           AuswMonat = "03"
       Case Is = 4, "Apr"
           AuswMonat = "04"
       Case Is = 5, "Mai"
           AuswMonat = "05"
       Case Is = 6, "Jun"
           AuswMonat = "06"
       Case Is = 7, "Jul"
           AuswMonat = "07"
       Case Is = 8, "Aug"
           AuswMonat = "08"
       Case Is = 9, "Sep"
           AuswMonat = "09"
       Case Is = 10, "Okt"
           AuswMonat = "10"
       Case Is = 11, "Nov"
           AuswMonat = "11"
       Case Is = 12, "Dez"
           AuswMonat = "12"
   End Select
           
       
   
   If Left(Cells(1, 1).Value, 7) <> "Buchung" Then         'prüfen, ob Original- oder bearbeitetes File vorliegt
                                                                                      'wenn nein, Original aufbereiten
       'Name = "C:\Eigene Dateien\Telekom\ev" + AuswMonat + AuswJahr + "*.csv"
       'Workbooks.Open FileName:="C:\Eigene Dateien\Telekom\evn" + AuswMonat + AuswJahr + ".slk"         'bis 6.2003".csv"   gelöscht, da nicht alles eingelesen wird
       Columns("A:A").Select
                       'neu ab 2003:
       'Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _             'ab 7/2003 gelöscht, da slk File
       'TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
       'Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
       ':=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 4), Array(6, 1), _
       'Array(7, 1), Array(8, 2), Array(9, 2), Array(10, 1), Array(11, 2), Array(12, 2))                                                                 '1. Zahl=Spalten-Nr., 2.Zahl: 1=Standard, 2=Text, 4=Datum TMJ
       
       'Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _                             'bis Ende 2002
       'TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
       'Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
       ':=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 4), _
       'Array(7, 1), Array(8, 1), Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2), _
       'Array(14, 2), Array(15, 1), Array(16, 2), Array(17, 2))                                                                 '1. Zahl=Spalten-Nr., 2.Zahl: 1=Standard, 2=Text, 4=Datum TMJ
           
           'TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _                               'ganz alt
           'Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
           ':=Array(Array(1, 1), Array(2, 2), Array(3, 2), Array(4, 1), Array(5, 4), Array(6, 1), _
           'Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 2), Array(12, 2), Array(13, 2))
       
       'ActiveWindow.LargeScroll ToRight:=1
       Cells(5, 10).Select
       neu = 0
       If Left$(Cells(5, 10).Value, 8) = "Tarifart" Then neu = 1       'Feldänderung ab 8.2010 entfällt Tarifart
       'Columns("O:Q").Select                                       '-> 2002 Tarifeinh - Nettoges.Preis EUR
       Columns("K:L").Select                                         'Tarifeinh - Nettoges.Preis EUR
       Selection.NumberFormat = "0.0000"

       MsgBox "The name of the active workbook is " & ActiveWorkbook.Name
       
       MsgBox "Welcome to Microsoft Excel version " & _
           Application.Version & " running on " & _
           Application.OperatingSystem & "!"
           
'Application.SaveWorkspace "C:\Users\Charly\EigeneDokumente\Telekom\ev" + AuswMonat + AuswJahr + ".xlsm"

fileSaveName = Application.GetSaveAsFilename( _
   fileFilter:="Text Files (*.xlsm), *.xlsm")
If fileSaveName <> False Then
   MsgBox "Save as " & fileSaveName
End If

Application.GetSaveAsFilename = "C:\Users\Charly\EigeneDokumente\Telekom\ev" + AuswMonat + AuswJahr + ".xlsm" '(fileFilter:="Text Files (*.xlsm), *.xlsm")




'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
       'ActiveWorkbook.SaveAs FileName:="C:\Users\Charly\EigeneDokumente\Telekom\ev" + AuswMonat + AuswJahr + ".xls", _
           FileFormat:=xlExcel5, Password:="", WriteResPassword:="", _
           ReadOnlyRecommended:=False, CreateBackup:=False
           
'        ActiveWorkbook.SaveAs FileName:="D:\Bibliotheken\EigeneDokumente\Telekom\ev" + AuswMonat + AuswJahr + ".xlsm", _
'            FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
'            ReadOnlyRecommended:=False, CreateBackup:=False
           
' xlsm verwenden wegen Makros!!!
'______________________________________________
       
'        ActiveWorkbook.SaveAs FileName:="D:\Bibliotheken\Documents\Telekom\ev" + AuswMonat + AuswJahr + ".xlsx", _
'            FileFormat:=xlSYLK, Password:="", WriteResPassword:="", _
'            ReadOnlyRecommended:=False, CreateBackup:=False



           
'    ActiveWorkbook.SaveAs FileName:="C:\Users\Karomue\Documents\Telekom\test.xls" _
'        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
'        ReadOnlyRecommended:=False, CreateBackup:=False
'    Application.CommandBars("Stop Recording").Visible = False
'    Application.Goto Reference:="saveAs"
           

       'Columns("F:F").Select                                       '-> 2002 Datum
       Columns("E:E").Select                                       'Datum
       'Range("F6").Activate                                        '-> 2002 Datum
       Range("E6").Activate                                        'Datum
       Selection.NumberFormat = "d-mmm-yy"

           
       Rows("1:4").Select                                          'erste 4 Zeilen löschen
       Selection.Delete Shift:=xlUp
       'Range("C3:D1000").Select                              '-> 2002 Anschl. - AnschlNr.
       Range("D2:D1000").Select                              'Anschl.
       Selection.NumberFormat = "0"
       With Selection
           .HorizontalAlignment = xlRight
           .VerticalAlignment = xlBottom
           .WrapText = False
           .Orientation = 0
           .ShrinkToFit = False
           '.MergeCells = False
       End With
       Columns("A:C").Select
       Selection.Delete Shift:=xlToLeft
       'Columns("B:B").Select                  'war 2002
       'Selection.Delete Shift:=xlToLeft   'war 2002
       Rows("2:12").Select
       Selection.Insert Shift:=xlDown
       Range("B1").Select
       Selection.Cut
       Range("B2").Select
       ActiveSheet.Paste
       Range("C1").Select
       Selection.Cut
       Range("C3").Select
       ActiveSheet.Paste
       Range("D1").Select
       Selection.Cut
       Range("D4").Select
       ActiveSheet.Paste
       Range("E1").Select
       Selection.Cut
       Range("E5").Select
       ActiveSheet.Paste
       Range("G1").Select
       Selection.Cut
       Range("G2").Select
       ActiveSheet.Paste
       Range("H1").Select
       Selection.Cut
       Range("H3").Select
       ActiveSheet.Paste
       Range("I1").Select
       Selection.Cut
       Range("I4").Select
       ActiveSheet.Paste
       Range("J1").Select
       Selection.Cut
       Range("J5").Select
       ActiveSheet.Paste
       'Range("L1").Select
       'Selection.Cut
       'Range("L2").Select
       'ActiveSheet.Paste
       'Range("M1").Select
       'Selection.Cut
       'Range("M3").Select
       'ActiveSheet.Paste
       'Range("N1").Select
       'Selection.Cut
       'Range("N4").Select
       'ActiveSheet.Paste
   End If
   
   Cells.Select
   'Range("A2").Activate
   Selection.Font.Bold = True
   With Selection.Font
       .Name = "Arial"
       .Size = 7
       .Strikethrough = False
       .Superscript = False
       .Subscript = False
       .OutlineFont = False
       .Shadow = False
       .Underline = xlUnderlineStyleNone
       .ColorIndex = xlAutomatic
   End With
   Cells.EntireColumn.AutoFit
   'Columns("H:H").Select
   'Range("H2").Activate
   'Selection.ColumnWidth = 5.29
   'Columns("I:I").ColumnWidth = 18.14
   'Selection.ColumnWidth = 10.86
   'Columns("L:N").Select           'ZielrufNr - Tarifart
   'Range("H2").Activate
   'With Selection
   '    .HorizontalAlignment = xlRight
   '    .VerticalAlignment = xlBottom
   '    .WrapText = False
   '    .Orientation = 0
   '    .ShrinkToFit = False
   '    '.MergeCells = False
   'End With
   Columns("A:A").Select
   Selection.ColumnWidth = 11
    Columns("B:B").Select
   Selection.ColumnWidth = 8
   Columns("C:D").Select
   Selection.ColumnWidth = 7
   Columns("E:E").Select
   Selection.ColumnWidth = 12
   Columns("F:F").Select
   Selection.ColumnWidth = 19
   If neu = 1 Then
       Columns("G:G").Select
       Selection.ColumnWidth = 14
       Columns("H:I").Select
       Selection.ColumnWidth = 6
       Columns("J:J").Select
       Selection.ColumnWidth = 7
   Else
       Columns("G:H").Select
       Selection.ColumnWidth = 6
       Columns("I:I").Select
       Selection.ColumnWidth = 7
   End If
  'ActiveWindow.LargeScroll Down:=6
   'Columns("I:I").Select
   'Range("I218").Activate
   'Selection.ColumnWidth = 6.14
   'Range("I221").Select

   Rows("1:5").Select
   With Selection
       .HorizontalAlignment = xlLeft
       .VerticalAlignment = xlBottom
       .WrapText = False
       .Orientation = 0
       .IndentLevel = 0
       .ShrinkToFit = False
       .MergeCells = False
   End With

   For i = 1 To 20                                                         'TabellenAnfang festlegen
       Cells(i, 1).Select
       If Left(ActiveCell.Value, 11) = "76110556930" Then Exit For
   Next i
   TabAnfang = i
   
   For j = 1 To 1000                                                        'Tabellenende festlegen
       Cells(TabAnfang + j, 1).Select
       If Left(ActiveCell.Value, 11) <> "76110556930" Then Exit For
   Next j
   TabEnde = j + TabAnfang - 1
   
   'Range(Cells(TabAnfang, 1), Cells(TabEnde, 13)).Select                                          '--> 2002 nach Ziel-Nr., Datum, Zeit sortieren
   'Selection.Sort Key1:=Range("H6"), Order1:=xlAscending, Key2:=Range("B6") _
   '    , Order2:=xlAscending, Key3:=Range("C6"), Order3:=xlAscending, Header:= _
   '    xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
   
   Range(Cells(TabAnfang, 1), Cells(TabEnde, 9)).Select    'nach Ziel-Nr., Datum, Zeit sortieren
   Selection.Sort Key1:=Range("E6"), Order1:=xlAscending, Key2:=Range("B6") _
       , Order2:=xlAscending, Key3:=Range("C6"), Order3:=xlAscending, Header:= _
       xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
     
   Summe = 0                                                               'Summe Beträge
   For i = TabAnfang To TabEnde
       Cells(i, neu + 8).Value = Cells(i, neu + 8).Value * 1            'formatiert Zellen als Zahl, war 9, neu 12, 2003 wieder 9
       Summe = Summe + Cells(i, neu + 8).Value
   Next i
   
   Cells(TabEnde + 1, neu + 8).Value = Summe
       
   Cells(TabAnfang, 5).Select                                      'Tabelle für Ruf-Nr., Betragssumme und Zeitsumme zusammenstellen,
   Test = ActiveCell.Value                                             'war 5, neu 8, 2003 wieder 5
   Test1 = 6
   Test2 = TabAnfang
   
   Spalte = 4
   Argu = "[h]:mm:ss"
   Formatier TabAnfang, TabEnde, Spalte, Argu
   
   'Range(Cells(TabAnfang, 4), Cells(TabEnde, 4)).Select
   'Selection.NumberFormat = "[h]:mm:ss"
   For i = TabAnfang To TabEnde
       Cells(i, 4).Value = CDate(Cells(i, 4).Value)
   Next i
   z = 1
   Cells(TabAnfang, 5).Select
   Do While Test <> ""
       z = 1
       For i = 1 To 200
           If ActiveCell.Value = "" Then
               Test = ""
           End If
           Test = ActiveCell.Value
           Testa = Cells(Test2 + i - 1, 6).Value
           Cells(Test2 + i, 5).Select
            If ActiveCell.Value <> Test Then Exit For
            z = z + 1
       Next i

       Cells(TabEnde + Test1, 4).Select
       If Test <> "" Then
           Cells(TabEnde + Test1, 4).Value = z
       End If
       Cells(TabEnde + Test1, 5).Select
       Selection.NumberFormat = "@"
       ActiveCell.Value = CStr(Test)
       Cells(TabEnde + Test1, 6).Select
       ActiveCell.Value = Testa
       Summe = 0
       Summe1 = 0
       zeit = "00:00:00"
       For Sum = 0 To i - 1
           Summe1 = Summe1 + Cells(Test2 + Sum, neu + 8).Value    'Preis
           zeit = zeit + Cells(Test2 + Sum, 4).Value
       Next Sum
       
       Cells(TabEnde + Test1, neu + 8).Value = Summe1
       Cells(TabEnde + Test1, neu + 9).Value = zeit
       Cells(TabEnde + Test1, neu + 9).Select
       Selection.NumberFormat = "[h]:mm:ss"

       
       Test1 = Test1 + 1
       Test2 = Test2 + i
       Cells(Test2, 5).Select
       
   Loop
   
   Cells(TabEnde + 6, 1).Value = "Anfang"
   Cells(TabEnde + 6, 2).Value = TabEnde + 6
   Cells(TabEnde + 6, 2).Select
   Selection.NumberFormat = "0"
   Cells(TabEnde + Test1 - 1, 1).Value = "Ende"
   Cells(TabEnde + Test1 - 1, 2).Value = TabEnde + Test1 - 1
   Cells(TabEnde + Test1 - 1, 2).Select
   Selection.NumberFormat = "0"

   
   Range(Cells(TabEnde + 6, neu + 8), Cells(TabEnde + Test1 - 1, neu + 8)).Select 'Auswertetabelle Betrag formatieren und Summen rechnen
   Selection.NumberFormat = "0.0000"
   Summe = 0
   Summe1 = 0
   For i = (TabEnde + 6) To (TabEnde + Test1 - 2)
       Summe = Summe + Cells(i, neu + 8).Value
       Summe1 = Summe1 + Cells(i, neu + 9).Value
   Next i
   Cells(TabEnde + Test1 - 1, neu + 8).Value = Summe
   Cells(TabEnde + Test1 - 1, neu + 9).Value = Summe1

   Sort1 = MsgBox("Nummern-Auswertung nach Zeit absteigend sortieren?", vbYesNo)
   
   If Sort1 = 6 Then
       Sort = "Ja"
   End If
   
   If Sort = "Ja" Then
       Range(Cells(TabEnde + 6, 5), Cells(TabEnde + Test1 - 2, 10 + 3)).Select
       Selection.Sort Key1:=Range("M10"), Order1:=xlDescending, Header:= _
           xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
   End If

End Sub
Sub Summe()

   'if not exist worksheet.name = ("Summe1") then
   'ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
   'ActiveSheet.Name = "Summe"
   For s = 1 To 12
       If s < 10 Then
           t = "0" + Right(Str(s), 1)
       End If
       u = "ev" & t & "2000"
       Worksheets(u).Activate
       'Cells(1, 1).Select
       For i = 1 To 1000                                                         'TabellenAnfang festlegen
           Cells(i, 1).Select
           If ActiveCell.Value = "Anfang" Then Exit For
       Next i
       anfang = i
       'Cells(1, 1).Select
           For i = 1 To 1000                                                         'TabellenAnfang festlegen
           Cells(i, 1).Select
           If ActiveCell.Value = "Ende" Then Exit For
       Next i
       Ende = i - 1
       
   Next s
   

End Sub
Sub Formatier(TabAnfang As Integer, TabEnde As Integer, Spalte As Integer, Argu As String)

   Range(Cells(TabAnfang, Spalte), Cells(TabEnde, Spalte)).Select
   Selection.NumberFormat = Argu

End Sub

hier der gesamte Code, wir stecken momentan etwa da wo eine Reihe 'xxxxxxxxxxxxxxxxxx steht; falls es jemand interessiert. Ich mache für heute erstmal Schluß, vielleicht fällt mir ja im Schlaf was ein :@

[Käpt'n Blaubär]

Hallo Charly,,

das *.SYLK-Format ist das Uralt-Format. Ich selbst habe es letztmalig eingesetzt, als ich meine Dateien von Multiplan 4.0 nach Excel5 ... glaube ich ...,
umgezogen habe. In Internetzeiten ist das gefühlt ein Sprung vom Neandertal auf die ISS.  Als dauerhaftes Dateiformat braucht das kein Mensch.

Nun schreibst Du von einem *.sik-Format. Wenn ich eine Datei unter *.sik speichere, dann sagt mir die Datei mit einer solchen Extension, ich bin
eine Sicherungskopie auf die ich notfalls zurückgrreifen kann. Aber, daß ist eine Vereinbarung mit mir selbst. Ich kann sie jederzeit durch das Ändern
der Extension wieder zu einer Datei machen, die weiß, ... ich bin eine Exceldatei.

Nun zu Deinem oben gezeigten Code. Schmeiße die vielen überflüssigen "Selects" und "Activates" raus. Erstens sind etwa 99% davon ohnehin
überflüssig und zweitens machen Sie den Makrodurchlauf unendlich langsam.
Falls Du einen Beweis dafür brauchst, daß ich recht habe, ... gehe in das Makro, setze oben einen Haltepunkt und gehe im Einzelschrittmodus durch
den Gesamtcode. Dann kannst Du Dich daran weiden, wie Dein Makro blind und planlos durch den Code stolpert.

[Steffl]

Hallo Charly,

Hallo Stefan, und wo war das bitte genau?

hier

Code:

Application.GetSaveAsFilename = "C:\Users\Charly\EigeneDokumente\Telekom\ev" + AuswMonat + AuswJahr + ".xlsm" '(fileFilter:="Text Files (*.xlsm), *.xlsm")

und so müsste es lauten

Code:

Application.GetSaveAsFilename = "C:\Users\Charly\EigeneDokumente\Telekom\ev" & AuswMonat & AuswJahr & ".xlsm" '(fileFilter:="Text Files (*.xlsm), *.xlsm")

[karomue]

Hallo Stefan, bring leider auch nix. Und mit + geht es übrigens auch  
Hallo Käp'tn.

*.slk ist eines von der Telekom angebotenen Formate zum Einlesen.

Die Selects sind Prüfpunkte für mich, im Einzelschritt. Brauche ich zur Orientierung, sollte das Makro je zu Laufen kommen, werden sie natürlich auskommentiert/entfernt. Die Activates brauche ich aber schon - meine ich, oder?

[Rabe]

Hi Charly,

Die Selects sind Prüfpunkte für mich, im Einzelschritt. Brauche ich zur Orientierung, sollte das Makro je zu Laufen kommen, werden sie natürlich auskommentiert/entfernt. Die Activates brauche ich aber schon - meine ich, oder?

echt, Du brauchst wirklich das:

Code:

      Range("B1").Select
      Selection.Cut
      Range("B2").Select
      ActiveSheet.Paste
      Range("C1").Select
      Selection.Cut
      Range("C3").Select
      ActiveSheet.Paste
      Range("D1").Select
      Selection.Cut
      Range("D4").Select
      ActiveSheet.Paste
      Range("E1").Select
      Selection.Cut
      Range("E5").Select
      ActiveSheet.Paste
      Range("G1").Select
      Selection.Cut
      Range("G2").Select
      ActiveSheet.Paste
      Range("H1").Select
      Selection.Cut
      Range("H3").Select
      ActiveSheet.Paste
      Range("I1").Select
      Selection.Cut
      Range("I4").Select
      ActiveSheet.Paste
      Range("J1").Select
      Selection.Cut
      Range("J5").Select
      ActiveSheet.Paste

statt das:

Code:

      Range("B1").Cut Range("B2")
      Range("C1").Cut Range("C3")
      Range("D1").Cut Range("D4")
      Range("E1").Cut Range("E5")
      Range("G1").Cut Range("G2")
      Range("H1").Cut Range("H3")
      Range("I1").Cut Range("I4")
      Range("J1").Cut Range("J5")

[karomue]

Hallo Stefan, bring leider auch nix. Und mit + geht es übrigens auch  
Hallo Käp'tn.

*.slk ist eines von der Telekom angebotenen Formate zum Einlesen.

Die Selects sind Prüfpunkte für mich, im Einzelschritt. Brauche ich zur Orientierung, sollte das Makro je zu Laufen kommen, werden sie natürlich auskommentiert/entfernt. Die Activates brauche ich aber schon - meine ich, oder?

Trotz Deines schönen Spruchs "wer aufgibt.." bin ich aber schon wohl soweit.

1. probiert wurden di FileFormate: xlExcel8 und 5, xlOpenXMLWorkbookMacroEnabled und xlOpenXMLWorkbook, xlWorkbookNormal und ..Default, xlSYLK,
2. alle mit *.xls, xlsx, xlsm,
3. aus der Excel2007 Entwicklerreferenz: Application.GetSaveAsFilename.

Jetzt habe ich noch ein File aus dem Internet "VBA-Programmierung mit Microsoft Office 2007" zum durcharbeiten...

Frage: ist mein Excel kaputt?? :@