Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.07.2017 14:03:16 |
Christian |
|
|
Mit VBA Wert in Spalte suchen, selektieren, in neuen Tabellenblatt kopieren und speichern |
04.07.2017 18:45:24 |
Ben |
|
|
|
05.07.2017 14:09:09 |
Gast31210 |
|
|
|
05.07.2017 19:24:46 |
Ben |
|
|
Von:
Ben |
Datum:
04.07.2017 18:45:24 |
Views:
538 |
Rating:
|
Antwort:
|
Thema:
Mit VBA Wert in Spalte suchen, selektieren, in neuen Tabellenblatt kopieren und speichern |
Hallo Christian,
mit den fogenden Code können Inhalte gezielt gefiltert und in eine neue Arbeitsmappe kopiert werden:
Sub FiterData()
Dim wsh As Worksheet
Dim iNum As Integer
Dim iMxNum As Integer
Dim strFilename As String
Dim wbkIns As Workbook
Dim rngFlt As Range
Set wsh = ThisWorkbook.Worksheets(1)
With wsh
iMxNum = WorksheetFunction.Max(wsh.Range("B:B"))
For iNum = 0 To iMxNum
If .AutoFilterMode Then
.UsedRange.AutoFilter
End If
.UsedRange.AutoFilter Field:=2, Criteria1:=iNum
Set wbkIns = Nothing
.UsedRange.SpecialCells(xlCellTypeVisible).Copy
Set wbkIns = Application.Workbooks.Add
wbkIns.Worksheets(1).Paste
VBA.DoEvents
If Not wbkIns Is Nothing Then
strFilename = ThisWorkbook.FullName & " - " & CStr(iNum) & ".xlsx"
If Not Dir(strFilename) = "" Then
Kill strFilename
End If
wbkIns.SaveAs strFilename
wbkIns.Close True
End If
.UsedRange.AutoFilter
Next
End With
End Sub
Voraussetzung:
In der ersten Zeile muss eine Überschriften-Zeile vorhanden sein.
Die neu erstellten Arbeitsmappen werden im gleichen Pfad und Dateinamen gespeichert wie die mit dem Code zuzüglich der gefilterten Nummer.
Achtung: Etwaige zuvor bereits vorhandene Arbeitsmappen mit dem gleichen Dateinamen im gleichen Pfad werden ohne Nachfrage gelöscht.
LG, Ben
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.07.2017 14:03:16 |
Christian |
|
|
Mit VBA Wert in Spalte suchen, selektieren, in neuen Tabellenblatt kopieren und speichern |
04.07.2017 18:45:24 |
Ben |
|
|
|
05.07.2017 14:09:09 |
Gast31210 |
|
|
|
05.07.2017 19:24:46 |
Ben |
|
|