Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Code nach Löschen von Tabellenblättern funktioniert nicht mehr
03.11.2021 14:07:52 Gast75533
NotSolved
03.11.2021 21:48:05 ralf_b
NotSolved
03.11.2021 23:22:37 xlKing
NotSolved

Ansicht des Beitrags:
Von:
Gast75533
Datum:
03.11.2021 14:07:52
Views:
126
Rating: Antwort:
  Ja
Thema:
VBA Code nach Löschen von Tabellenblättern funktioniert nicht mehr

Hallo zusammen,

ich habe folgenden VBA Code in Excel 2016

Sub Aufteilen()
Dim Zelle1 As Range
Dim Zelle2 As Range
Dim shQuelle As Worksheet
Set shQuelle = ActiveSheet
With shQuelle.UsedRange
    .Sort key1:=.Cells(1, 13), order1:=xlAscending, Header:=xlYes
    Set Zelle1 = .Cells(2, 13)
    Do Until Zelle1 = ""
        Set Zelle2 = Zelle1.EntireColumn.Find(what:=Zelle1.Value, lookat:=xlWhole, _
searchdirection:=xlPrevious)
        Sheets.Add after:=Sheets(Sheets.Count)
        ActiveSheet.Name = Zelle1.Value
        .Rows(1).Copy ActiveSheet.Cells(1, 1)
        Range(Zelle1, Zelle2).EntireRow.Copy ActiveSheet.Cells(2, 1)
        Set Zelle1 = Zelle2.Offset(1, 0)
    Loop
End With
    
End Sub

Der Code teilt ein Tabellenblatt nach den Kriterien der Spalte M auf. Das funktioniert! Es wird jeweils ein Tabellenblatt erzeugt! wenn ich jedoch die Tabellenblätter lösche und die VBA neu starte, stoppt die VBA bei

.Sort key1:=.Cells(1, 13), order1:=xlAscending, Header:=xlYes

was muss ich hier ändern, damit ich dies immer wieder nutzen kann?

Beste Grüße

Mario


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 VBA Code nach Löschen von Tabellenblättern funktioniert nicht mehr
03.11.2021 14:07:52 Gast75533
NotSolved
03.11.2021 21:48:05 ralf_b
NotSolved
03.11.2021 23:22:37 xlKing
NotSolved