Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeilen mit bestimmten Werten in versch. Tabellenbl

Zeilen mit bestimmten Werten in versch. Tabellenbl
15.04.2008 14:53:47
sascha76er
Betreff: Zeilen mit bestimmten Werten in verschiedene Tabellenblätter kopieren.
Hallo,
ich möchte gerne wenn in dem Tabellenblatt "Export" in der Zelle für die Warengruppe die ganze Zeile in das gleichnachmige Tabellenblatt für die entsprechende Warengruppe kopieren. Kann mir jemand hier einen Tipp geben, wie ich dies via VBA lösen kann.
Hier mein Beispiel: https://www.herber.de/bbs/user/51570.xls
Vorab vielen Dank und Gruß
Sascha

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen mit bestimmten Werten in versch. Tabell
15.04.2008 15:07:00
Rudi
Hallo,
ungetestet, ohne Fehlerbehandlung:

Sub export()
Dim lngRow As Long, wksTarget As Worksheet, strTarget As String
With Sheets("export")
For lngRow = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
strTarget = .Cells(lngRow, 2)
Set wksTarget = Sheets(strTarget)
.Rows(lngRow).Copy wksTarget.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
.Rows(lngRow).Delete
Next lngRow
End With
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Zeilen mit bestimmten Werten in versch. Tabell
15.04.2008 15:27:00
sascha76er
Hallo,
in der Testdatei hat es einwandfrei funktioniert, nun ist bekomme ich aber bei größeren Datenmengen die Fehlermeldung : Laufzeitfehler '9': Index außerhalb des gültigen Bereichs.
Beim Debuggen wird die folgende Zeile angemarkert: Set wksTarget = Sheets(strTarget)
Hab die Datei hier mal zum Download bereitgestellt: http://www.mediafire.com/?hbyj5kaemwp
Gruß
Sascha

Anzeige
AW: Zeilen mit bestimmten Werten in versch. Tabell
15.04.2008 16:42:00
Rudi
Hallo,

Beim Debuggen wird die folgende Zeile angemarkert: Set wksTarget = Sheets(strTarget)


dann gibt es das Blatt nicht.


Sub export()
Dim lngRow As Long, wksTarget As Worksheet, strTarget As String
With Sheets("export")
For lngRow = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
strTarget = .Cells(lngRow, 2)
On Error Resume Next
Set wksTarget = Sheets(strTarget)
On Error GoTo 0
If wksTarget Is Nothing Then
Set wksTarget = Worksheets.Add
wksTarget.Name = strTarget
End If
.Rows(lngRow).Copy wksTarget.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
.Rows(lngRow).Delete
Next lngRow
End With
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Zeilen mit bestimmten Werten in versch. Tabell
16.04.2008 11:25:26
sascha76er
Hallo,
hat alles nun super funktioniert.
Danke
Sascha
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige