Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1700to1704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Anpassung Tabelle in Ordner speichern

Anpassung Tabelle in Ordner speichern
12.07.2019 18:45:15
Richard
Liebe Excelgemeinde,
es wäre nett wenn mir jemand beim "Feintuning" helfen würde:
Habe ein Tabellenblatt mit Autofilter
Code:
Private Sub cmb_Branche_Ordner_Click()
Dim rngBereich As Range
Dim strWBName$, sPath$
Dim NewWB As Workbook
Dim oSH As Worksheet
With ThisWorkbook 'Diese Arbeitsmappe
Set oSH = .Sheets("tbl_Daten") 'Tabelle anpassen
'Pfad
sPath = IIf(Right$(.Path, 1) = "\", .Path, .Path & "\")
'Dateiextention
strWBName = Mid$(.name, InStrRev(.name, "."), Len(.name))
With oSH
'Dateiname
strWBName = .Range("O2").Value & strWBName
'Filterbereich
Set rngBereich = .AutoFilter.Range
End With
'Neue Datei
Set NewWB = Workbooks.Add(xlWBATWorksheet)
'kopieren
rngBereich.Copy
'einfügen
With NewWB.Sheets(1).Cells(1, 1)
.PasteSpecial xlPasteValues 'Werte
.PasteSpecial xlPasteFormats 'Format
End With
'speichern
On Error Resume Next
Application.DisplayAlerts = False
NewWB.SaveAs sPath & strWBName, .FileFormat
Application.DisplayAlerts = True
'Fehler beim speichern
If Err.Number  0 Then
MsgBox "Fehler Nr.: " & Err.Number & vbCr & vbCr & Err.Description
End If
NewWB.Close False
End With
End Sub
der Code funktioniert aber ich hätte gerne folgendes
1,unter strWBName = .Range("O2").Value & strWBName soll mir nach der Filterung auch dieser gefilterte Name übergeben werden hier wird mir immer der Wert von Spalte O Zeile 2 übergeben
2,das Format (Spaltenbreite wird mir nicht übernommen)
3,beim speichern von NewWB.SaveAs ...möchte ich gerne ,da der Ordner immer ein anderer ist,diesen auch frei wählen können.
Im voraus vielen Dank für die Mühe
Gruß Richard

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anpassung Tabelle in Ordner speichern
14.07.2019 18:05:36
onur
1) In O2 muss der Neme der NEUEN Datei (ohne Endung) stehen.
2) Spaltenbreite (so wie Zeilenhöhe) hat eigentlich nix mit der Formatierung der Zelle zu tun - sie bezieht sich immer auf eine ganze Spalte.
3) Für Ordnerauswahl musst du den Code hier hinzufügen:
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & " \"
.Title = "Bitte Ordner wählen"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
Folder = .SelectedItems(1)'Diesen Ordner beim Speichern mit angeben.
MsgBox Folder' Nur zum Testen
End With 

Und zwar so:
Private Sub cmb_Branche_Ordner_Click()
Dim rngBereich As Range
Dim strWBName$, sPath$
Dim NewWB As Workbook
Dim oSH As Worksheet
Dim Folder
With ThisWorkbook 'Diese Arbeitsmappe
Set oSH = .Sheets("tbl_Daten") 'Tabelle anpassen
'Pfad
sPath = IIf(Right$(.Path, 1) = "\", .Path, .Path & "\")
'Dateiextention
strWBName = Mid$(.Name, InStrRev(.Name, "."), Len(.Name))
With oSH
'Dateiname
strWBName = .Range("O2").Value '& strWBName
'Filterbereich
Set rngBereich = .AutoFilter.Range
End With
'Neue Datei
Set NewWB = Workbooks.Add(xlWBATWorksheet)
'kopieren
rngBereich.Copy
'einfügen
With NewWB.Sheets(1).Cells(1, 1)
.PasteSpecial xlPasteValues 'Werte
.PasteSpecial xlPasteFormats 'Format
End With
'speichern
End With
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & " \"
.Title = "Bitte Ordner wählen"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
Folder = .SelectedItems(1) 'Diesen Ordner beim Speichern mit angeben.
'MsgBox Folder ' Nur zum Testen
End With
On Error Resume Next
Application.DisplayAlerts = False
NewWB.SaveAs Folder & "\" & strWBName ', .FileFormat
Application.DisplayAlerts = True
'Fehler beim speichern
If Err.Number  0 Then
MsgBox "Fehler Nr.: " & Err.Number & vbCr & vbCr & Err.Description
End If
NewWB.Close False
End Sub

Anzeige
AW: Anpassung Tabelle in Ordner speichern
18.07.2019 10:22:27
Richard
Hallo Onur,
Verzeih die späte Reaktion, musste dringend für ein paar Tage verreisen.
zuerst vielen Dank für Deine Bearbeitung und Erklärung, werde den Code mir genauer ansehen und einbauen.
Vielen Dank
Richard

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige