Thema Datum  Von Nutzer Rating
Antwort
Rot Filtern und Datei erstellen
23.08.2016 15:28:38 Christian
NotSolved
23.08.2016 19:38:51 Gast17499
NotSolved

Ansicht des Beitrags:
Von:
Christian
Datum:
23.08.2016 15:28:38
Views:
1034
Rating: Antwort:
  Ja
Thema:
Filtern und Datei erstellen

Hallo zusammen,

ich habe folgende Datenlage:

 

Merkmal Name Vorname Geb-Datum

 

Alle Personen, die ein gleiches Merkmal haben soll mittels VBA in eine eigene Datei kopiert werden.

Dazu nutze ich:

 

Private Sub CommandButton1_Click()
    Dim v, D As Object, wb As Workbook
    
    Application.ScreenUpdating = False
    
    Set D = CreateObject("scripting.dictionary")
    
    With Tabelle1 'ggf. ANPASSEN !!!!
        If .AutoFilterMode Then .AutoFilterMode = False
        With .Range("A1").CurrentRegion
        
        
            For Each v In .Columns(1).Offset(1).Value
                If v <> "" Then D(v) = 0
            Next
            For Each v In D.Keys
                Set wb = Workbooks.Add(xlWBATWorksheet)
                .AutoFilter 1, v
                .Copy wb.Sheets(1).Cells(1)
                With wb.Sheets(1)
                    .Name = v
                    .PageSetup.FitToPagesTall = 1
                    .PageSetup.FitToPagesWide = 1
                    .Cells.Font.Name = "Calibri"
                    .Cells.Font.Size = 11
                    .UsedRange.EntireColumn.AutoFit
                End With
                wb.SaveAs .Parent.Parent.Path & "\" & v & ".xlsx", xlOpenXMLWorkbook
                wb.Close False
            Next
            .AutoFilter
        End With
    End With
    
 
Leider wird aber nur der Name der betreffenden Person und das Merkmal in die neue Datei übertragen. Ich möchte aber auch die anderen Daten kopieren. Wo muss ich diese Änderung vornehmen.
 
Vielen Dank für die Hilfe
 
Christian

Ihre Antwort
  • 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: Name: Email:

 
 

  • 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
Rot Filtern und Datei erstellen
23.08.2016 15:28:38 Christian
NotSolved
23.08.2016 19:38:51 Gast17499
NotSolved