Thema Datum  Von Nutzer Rating
Antwort
03.11.2021 14:26:40 Mario
NotSolved
03.11.2021 21:50:28 ralf_b
NotSolved
04.11.2021 07:58:59 Gast66220
NotSolved
Blau VBA Code nach Löschen von Tabellenblättern funktioniert nicht mehr
 04.11.2021 08:38:22 Gast39386
NotSolved

Ansicht des Beitrags:
Von:
Gast39386		 Datum:
04.11.2021 08:38:22		 Views:
267		 Rating:
     
Antwort:
  Ja
Thema:
VBA Code nach Löschen von Tabellenblättern funktioniert nicht mehr

Problem gelöst:

Sub aufteilen()
Dim Zelle1 As Range
Dim Zelle2 As Range
Dim shZiel As Worksheet
Set Zelle2 = Tabelle2.Cells(1, 13)
Zelle2.CurrentRegion.Sort key1:=Zelle2, order1:=xlAscending, Header:=xlYes
Do
    Set Zelle1 = Zelle2.Offset(1, 0)
If Zelle1 = "" Then Exit Sub
    Set Zelle2 = Zelle1.EntireColumn.Find(what:=Zelle1.Value, lookat:=xlWhole, searchdirection:=xlPrevious)
    On Error Resume Next
    Set shZiel = Sheets(Zelle1.Value)
    If Err <> 0 Then
        Set shZiel = Worksheets.Add(after:=Sheets(Sheets.Count))
        shZiel.Name = Zelle1.Value
    Else
        shZiel.Cells.Clear
    End If
    On Error GoTo 0
    Tabelle2.Rows(1).Copy shZiel.Cells(1, 1)
    Range(Zelle1, Zelle2).EntireRow.Copy shZiel.Cells(2, 1)
Loop
   
End Sub

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
03.11.2021 14:26:40 Mario
NotSolved
03.11.2021 21:50:28 ralf_b
NotSolved
04.11.2021 07:58:59 Gast66220
NotSolved
Blau VBA Code nach Löschen von Tabellenblättern funktioniert nicht mehr
 04.11.2021 08:38:22 Gast39386
NotSolved