Registriert seit: 28.05.2014
Version(en): 2013 / 2016
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 ...
Beste Grüße
Günther
Excel-ist-sexy.de …schau doch mal rein!
Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb- Files mehr herunter! -> So geht's ohne!
Registriert seit: 11.04.2014
Version(en): Office 2007
Hallo Charly,
nehme bitte das &-Zeichen und nicht das +-Zeichen.
Gruß Stefan
Win 10 / Office 2016
Registriert seit: 19.07.2015
Version(en): 365/2016
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..
Grüße, Charly
Registriert seit: 19.07.2015
Version(en): 365/2016
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.
Grüße, Charly
Registriert seit: 19.07.2015
Version(en): 365/2016
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 :@
Grüße, Charly
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
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.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!
Grüße aus Norderstedt, Peter
Registriert seit: 11.04.2014
Version(en): Office 2007
Hallo Charly,
(16.08.2015, 15:28)karomue schrieb: 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")
Gruß Stefan
Win 10 / Office 2016
Registriert seit: 19.07.2015
Version(en): 365/2016
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?
Grüße, Charly
Registriert seit: 10.04.2014
Version(en): 2016 + 365
17.08.2015, 08:52
(Dieser Beitrag wurde zuletzt bearbeitet: 17.08.2015, 08:53 von Rabe.)
Hi Charly,
(17.08.2015, 08:38)karomue schrieb: 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")
Registriert seit: 19.07.2015
Version(en): 365/2016
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?? :@
Grüße, Charly
|