Kopieren/Exportieren ohne VBA + mehr als 255 Zeich
22.04.2013 15:45:36
Thomas
ich habe folgenden Code:
Code:
Sub export()
Dim Original As String
Dim Kopie As String
Dim i As Integer
Dim j As Integer
Worksheets(3).Shapes("Rechteck 15").Visible = False
Worksheets(3).Shapes("Rechteck 17").Visible = False
Worksheets(3).Shapes("Rechteck 18").Visible = False
Worksheets(3).Shapes("Rechteck 19").Visible = False
Worksheets(6).Shapes("Rechteck 25").Visible = False
Worksheets(6).Shapes("Rechteck 29").Visible = False
Worksheets(6).Shapes("Rechteck 26").Visible = False
Worksheets(6).Shapes("Rechteck 30").Visible = False
Worksheets(3).Shapes("Rechteck 20").Visible = False
Worksheets(6).Shapes("Rechteck 31").Visible = False
Worksheets(6).Shapes("Rechteck 32").Visible = False
Original = ActiveWorkbook.Name
Kopie = "aktueller_Stand.xls"
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\" & Kopie
For i = 1 To Workbooks(Original).Sheets.Count
If Workbooks(Original).Sheets(i).Name "Wert" Then
Workbooks(Original).Sheets(i).Copy _
After:=Workbooks(Kopie).Sheets(Workbooks(Kopie) _
.Sheets.Count)
j = j + 1
End If
Next 'i
Application.DisplayAlerts = False
For i = 1 To Workbooks(Kopie).Sheets.Count - j
Workbooks(Kopie).Sheets(1).Delete
Next 'i
Application.DisplayAlerts = True
ThisWorkbook.Close False
Dieser Code realisiert mir das er die komplette Datei exportiert in eine neue ohne Makros und Buttons.
Jetzt hab ich das Problem das bei 255 Zeichen abgehackt wird.
Dazu gibt es ja seitens Microsoft folgende Abhilfe:
Code:
Sub mehr_als_255()
Application.ScreenUpdating = False
Set xSheet = ActiveWorkbook
xSheet.Copy Before:=Sheets(xSheet.Index)
Set ySheet = ActiveWorkbook
xSheet.Range("A:I").Copy
ySheet.Range("A1").Select
ySheet.Paste
Application.CutCopyMode = False
Range("A1").Select
Dieser ist jedoch nur für einzelne Sheets.
Mein Problem ist jetzt die Verknüpfung/Verbindung dieser beiden Codes damit ich einen Export hinbekomme ohne Makros/Buttons sowie mit allen Zeichen auch über 255.
Vielen Dank!
Beste Grüsse