Thema Datum  Von Nutzer Rating
Antwort
Rot Automatisches Splitten von Reihen in unterschiedliche Workbooks
 15.03.2017 15:08:59 Michael
Solved
15.03.2017 17:35:52 gast
NotSolved

Ansicht des Beitrags:
Von:
Michael		 Datum:
15.03.2017 15:08:59		 Views:
914		 Rating:
     
Antwort:
 Nein
Thema:
Automatisches Splitten von Reihen in unterschiedliche Workbooks
Hallo Zusammen Ich habe eine grosse Gesamttabelle, die ich gemäss Kriterium um Reihe K in einzelne Worksheets splitten soll. Quasi zu Händen verschiedener Abteilungen. Habe auf YouTube eigentlich die perfekte Lösung gefunden (https://www.youtube.com/watch?v=sCjqBlOk6f8&t=601s), ich muss dazu sagen ich bin Anfänger in VBA und sollte das für meinen Chef lösen. Der Code ist wie folgt: sub Split() Dim wswb As String Dim wssh As String wswb = ActiveWorkbook.Name wssh = ActiveSheet.Name vcolumn = InputBox("Spalte?") Columns(vcolumn).Copy Sheets.Add ActiveSheet.Name = "_Summary" Range("A1").PasteSpecial Columns("A").RemoveDuplicates Columns:=1, Header:=xlYes vCounter = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To vCounter vfilter = Sheets("_Summary").Cells(i, 1) Sheets(wssh).Activate ActiveSheet.Columns.AutoFilter field:=Columns(vcolumn).Column, criterial:=vfilter Cells.Copy Workbooks.Add Range("A1").PasteSpecial If vfilter <> "" Then ActiveWorkbook.SaveAs ThisWorkbook.Path & "\ split \" & vfiller Else ActiveWorkbook.SaveAs ThisWorkbook.Path & "\ split \_empty" End If ActiveWorkbook.Close Next i Sheets("_Summary").Delete End Sub Das Problem liegt in der Zeile " ActiveSheet.Columns.AutoFilter field:=Columns(vcolumn).Column, criterial:=vfilter" Hier erhalte ich ständig die Fehlermeldung " Anwendungs-oder objektdefinierter Fehler. Vielen Dank schon mal vorab. Gruss Michael

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 Automatisches Splitten von Reihen in unterschiedliche Workbooks
 15.03.2017 15:08:59 Michael
Solved
15.03.2017 17:35:52 gast
NotSolved