AW: Speichern nur sichtbarer Spalten - Zusatzfrage
28.08.2006 16:12:24
Gerhard
Hallo Franz,
bekomme leider bei
Set wks = wbThis.Worksheets(Blatt) 'Tabelle die kopiert werden soll
einen Laufzeitfehler #13, Typen unverträglich
Hier meine konfiguration!
Private Sub CommandButton1_Click()
'Kopiert Tabellen in neue Arbeitsmappe, nur Werte, ausgeblendete Spalten werden gelöscht
Dim wbThis As Workbook
Dim wbNeu As Workbook
Dim wks As Worksheet
Dim Spalte As Integer
Dim Blatt As Variant
Dim I As Integer
Set wbThis = ThisWorkbook
' Datei Speichern falls nicht gespeichert
If wbThis.Saved = False Then
wbThis.Save
End If
Blatt = Array("eCopy SSOP 3.1", "uniFLOW direct", "uniFLOW dealer", _
"Equitrac Office 3.0", "PAS + Pagerouter", "NSA MEAP", "NSA", "iW Publishing Man.", _
"Callisto", "BTA V3.6", "BTA Gold V3.6", "UGW", "Unix Linux driver", "OS400 driver", _
"ADOS b25") 'Namen der Blätter, die Kopiert werden sollen
'Blatt = Array(1, 3, 5) 'Alternative mit Nummern der Blätter
For I = 0 To UBound(Blatt)
Set wks = wbThis.Worksheets(Blatt) 'Tabelle die kopiert werden soll
wks.UsedRange.Value = wks.UsedRange.Value 'Formeln durch Werte ersetzen
If I = 0 Then
wks.Copy 'Blatt in neue Arbeitsmappe kopieren
Set wbNeu = ActiveWorkbook
Else
'Blatt am Ende der neuen Arbeitsmappe einfügen
wks.Copy After:=wbNeu.Sheets(wbNeu.Sheets.Count)
End If
Set wks = wbNeu.Worksheets(wbNeu.Sheets.Count)
With wks
'Ausgeblendete Spalten löschen
For Spalte = .UsedRange.Column + .UsedRange.Columns.Count To 1 Step -1
If .Columns(Spalte).Hidden = True Then .Columns(Spalte).Delete
Next
'Alle Spalten einblenden
.Cells.EntireColumn.Hidden = False
End With
Next
Application.Dialogs(xlDialogSaveAs).Show
'Datei mit Originaldaten schließen ohne zu speichern
wbThis.Close savechanges:=False
End Sub
Noch eine Idee?
Find es super das du mir so hilfst, ich lerne sehr viel dabei