Thema Datum  Von Nutzer Rating
Antwort
23.01.2019 22:30:38 Ingo
NotSolved
24.01.2019 20:43:53 Ingo
NotSolved
24.01.2019 22:34:40 Flotter Feger
****
Solved
25.01.2019 10:18:48 Ingo
NotSolved
25.01.2019 10:40:11 Flotter Feger
NotSolved
Blau Gleiche Zeilen in übrigen Tabellenblätter kopieren
 25.01.2019 18:34:10 Fkotter Feger
NotSolved

Ansicht des Beitrags:
Von:
Fkotter Feger		 Datum:
25.01.2019 18:34:10		 Views:
458		 Rating:
     
Antwort:
  Ja
Thema:
Gleiche Zeilen in übrigen Tabellenblätter kopieren

Hallo,

kam jetzt doch früher dazu, als ich dachte ...

Den Code in ein allgemeines Modul.

Sub Aufteilen()
Dim arr As Variant
Dim i As Long
Dim j As Long
Dim lRow As Long
Dim WS As Worksheet

arr = ActiveSheet.UsedRange

For i = LBound(arr) To UBound(arr)
    If WorkSheetExists(arr(i, 1)) Then
        Set WS = Worksheets(arr(i, 1))
    Else
        Set WS = Worksheets.Add(after:=Worksheets(Worksheets.Count))
        ActiveSheet.Name = arr(i, 1)
    End If
    lRow = WS.Cells(Rows.Count, 1).End(xlUp).Row + 1
    For j = LBound(arr) To UBound(arr, 2)
        WS.Cells(lRow, j) = arr(i, j)
    Next j
Next i
End Sub

Function WorkSheetExists(ByVal WS As Variant) As Boolean
On Error Resume Next
WorkSheetExists = Not Worksheets(WS) Is Nothing
End Function

VG Sabina

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
23.01.2019 22:30:38 Ingo
NotSolved
24.01.2019 20:43:53 Ingo
NotSolved
24.01.2019 22:34:40 Flotter Feger
****
Solved
25.01.2019 10:18:48 Ingo
NotSolved
25.01.2019 10:40:11 Flotter Feger
NotSolved
Blau Gleiche Zeilen in übrigen Tabellenblätter kopieren
 25.01.2019 18:34:10 Fkotter Feger
NotSolved