Sep 14, 2022, updated at 08:45:09 (UTC)

3046

Excel Vba Kopieren und Einfügen von Daten basierend auf Kriterienüberschriften in mehrere Arbeitsblätter

Moin,

komme bei einer copy and paste Aufgabe nicht voran.

Ich habe mehrere Tabellen zu unterschiedlichen Aufträgen, die untereinander mit einer variablen Zeilenanzahl in einem Arbeitsblatt aufgelistet sind. Den Auftragsnamen sowie die Tabelle darunter möchte ich kopieren und in der selben Arbeitsmappe in unterschiedliche Arbeitsblätter einfügen. Dabei haben die Arbeitsblätter die Namen der Aufträge, sprich Auftrag 1, Auftrag 2 etc.

Hoffe könnt mir da weiterhelfen.

Grüße
Basti

Please also mark the comments that contributed to the solution of the article

Content-Key: 3935996689

Url: https://administrator.de/contentid/3935996689

Printed on: April 26, 2024 at 07:04 o'clock

12 Comments

Latest comment

Moin.

Sub Kopiere_Tabellen()
    On Error Resume Next
    Dim ws As Worksheet, cell As Range, intLast As Long, wsNew As Worksheet, r As Long
    Set ws = Sheets("Tabelle1")  
    With ws
        lastrow = .Cells(Rows.Count, "A").End(xlUp).Row  
        intLast = lastrow
        For r = lastrow To 1 Step -1
            If .Cells(r, "A").Value = "A" Then  
                Set wsNew = Sheets(.Cells(r - 1, "A").Value)  
                If Err.Number <> 0 Then
                    Set wsNew = Sheets.Add(After:=Sheets(Sheets.Count))
                    wsNew.Name = .Cells(r - 1, "A").Value  
                    Err.Clear
                Else
                    wsNew.Range("A:I").Clear  
                End If
                .Range(.Cells(intLast, "I"), .Cells(r - 1, 1)).Copy Destination:=wsNew.Range("A1")  
                intLast = r - 3
            End If
        Next
    End With
End Sub

Der Wert "A" im If in Zeile 9 und das "Tabelle1" in Zeile 4 müssen natürlich an die eigenen Gegebenheiten angepasst werden...

Cheers
certguy

Thanks, klappt super und habs angepasst!

Ich müsste das täglich laufen lassen, daher meckert der Code, weil ja die Arbeitsblätter schon vorhanden sind. Wäre da eine For Each schleife nötig, um die Daten bei bereits existierenden Arbeitsblättern einzutragen?

Zitat von @Bastian94:
Wäre da eine For Each schleife nötig, um die Daten bei bereits existierenden Arbeitsblättern einzutragen?

Nein nicht zwingend, Ein "On Error Resume Next" einbauen und dann checken ob das Object nicht Nothing ist geht auch. S. Anpassung oben.

Top, versteh es, danke dir! Versuche gerade das Problem zu beheben, dass er restliche Daten, die täglich in diesen Arbeitsblättern gepflegt werden, löscht. Ich schaue mal was die Lösung dafür ist.

dass er restliche Daten, die täglich in diesen Arbeitsblättern gepflegt werden, löscht.

Macht das Skript doch hiermit.

wsNew.UsedRange.Clear

Denn sonst würde ja ein Mischmasch entstehen wenn du das Skript erneut anwendest, und da noch alte Zeilen von vorher stehen ...

Ja das hab ich rauslesen können. Mit „restlichen Daten“ sind weitere Tabellen gemeint, die außerhalb der zu importierenden Tabellen (Range(A1:I1)) schon vorhanden sind. Es wird also der komplette Inhalt im jeweiligen Arbeitsblatt gelöscht…

Sonst wir hier nichts gelöscht.

Hab das heute mehrmals getestet. Der komplette Content im Arbeitsblatt wird gelöscht und die Tabelle importiert.

Zitat von @Bastian94:

Hab das heute mehrmals getestet. Der komplette Content im Arbeitsblatt wird gelöscht und die Tabelle importiert.

Habe ich ich doch oben schon geschrieben..

wsNew.UsedRange.Clear

löscht jeglichen Inhalt des Sheets, aber niemals das Sheet ansich !!!!!!
Denn würdest du das nicht machen und in dem Bereich des Einfügens schon was stehen und der kopierte Inhalt kürzer sein als das was da vorher schon steht gibt's ja inkonsinstenzen ...
Also nochmal dein Vorhaben genau überdenken... Anpassen darst du ja gerne auch selbst, wir kennen deinen Workflow nicht!!!!!

Achso dann ich hab ich das falsch vestanden...sorry

Jeglicher Inhalt soll nicht gelöscht werden, sondern nur die Range von Spalte A:I, wo die Tabelle täglich eingefügt wird :D

Zitat von @Bastian94:
Jeglicher Inhalt soll nicht gelöscht werden, sondern nur die Range von Spalte A:I, wo die Tabelle täglich eingefügt wird :D

Siehe mein ergänzter Hinweis dazu im letzten Kommentar.
Und warum änderst du das dann nicht passend??? Koppschüttel, wohl mal wieder copy n paster syndrom.

wsNew.Range("A:I").Clear

s. A. o.

me => out. Schließen bitte nicht vergessen.
Cheers
cg

Ich hab nicht gesehen, dass du den Code angepasst hast. So passt es perfekt. Danke dir für die Mühe!
Gruß
Basti

German solved Question VB for Applications Development