Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.01.2019 22:30:38 |
Ingo |
|
|
|
24.01.2019 20:43:53 |
Ingo |
|
|
|
24.01.2019 22:34:40 |
Flotter Feger |
|
|
|
25.01.2019 10:18:48 |
Ingo |
|
|
|
25.01.2019 10:40:11 |
Flotter Feger |
|
|
Gleiche Zeilen in übrigen Tabellenblätter kopieren |
25.01.2019 18:34:10 |
Fkotter Feger |
|
|
Von:
Fkotter Feger |
Datum:
25.01.2019 18:34:10 |
Views:
519 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
24.01.2019 20:43:53 |
Ingo |
|
|
|
24.01.2019 22:34:40 |
Flotter Feger |
|
|
|
25.01.2019 10:18:48 |
Ingo |
|
|
|
25.01.2019 10:40:11 |
Flotter Feger |
|
|
Gleiche Zeilen in übrigen Tabellenblätter kopieren |
25.01.2019 18:34:10 |
Fkotter Feger |
|
|