Office: Hilfe mit Makro / Tabellenblätter zusammen fügen

Hallo!

Ich hoffe, ihr könnt mir helfen.

Und zwar habe ich eine Exceldatei mit mehreren Tabellenblätter, wobei ich die Tabellenblätter noch einmal extra in ein Gesamtes Tabellenblatt einfügen möchte.

Dies habe ich mit dem folgenden Makro hinbekommen:

Sub neut()
For i = 1 To Sheets.Count + 1
If i > Sheets.Count Then
Set NewSheet = Worksheets.Add
NewSheet.Name = "Auswertung"
End If
If Sheets(i).Name = "Auswertung" Then
MsgBox "Aktuallisation der Tabelle"
Exit For
End If
Next i
Set ws1 = Worksheets("Auswertung")
anz1 = ws1.Cells(65356, 1).End(xlUp).Row
ws1.Range("a2:b" & anz1).ClearContents
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Auswertung" Then
anz1 = ws1.Cells(65356, 1).End(xlUp).Row
Set ws2 = Worksheets(Sheets(i).Name)
anz2 = ws2.Cells(65356, 1).End(xlUp).Row
ws2.Range("a2:m2" & anz2).Copy Destination:=ws1.Range("a" & anz1 + 1)

End If
Next i
End Sub

Jetzt möchte ich aber ein Tabellenblatt aus der Gesamtliste entfernen.

Wie kann ich das machen?

Gruß
Jenny

 

Hi Jenny,

das verstehe ich nicht. Meinst du jetzt die aus einem einzelnen Tabellenblatt eingefügten Daten in das Tabellenblatt mit der Gesamtübersicht?

Oder einfach nur ein Tabellenblatt?

Vielelicht kannst du das nochmal genauer erklären....

PS. könntest Du den Code in Code-Tags setzen? dann kann man es besser lesen....(oben gibt es einen Button "Code"...)

 

Hallo!

also die Excel-Datei besteht aus 35 Tabellenblätter, nun habe ich es ja geschafft, dass sich alle 35 Tabellenblätter in einem Tabellenblatt automatisch einfügen.

Mein Problem ist aber, das ich ein Tabellenblatt von den 35 nicht in der Gesamtaufstellung haben möchte. Ich kann das Tabellenblatt aber nicht löschen, da diese mit den anderen durch einzelne Formel verbunden ist.

Ich hoffe, dass ich den Code-Tab richtig angewendet habe und Du dies jetzt so besser überblicken kannst. Leider muss ich auch zugeben, dass ich den Code nicht selber hergestellt habe, sondern mir diese im Internet gesucht habe, da ich nicht so viel Ahnung davon habe :cry:

Code:

Sub neut()
For i = 1 To Sheets.Count + 1
    If i > Sheets.Count Then
       Set NewSheet = Worksheets.Add
       NewSheet.Name = "Auswertung"
    End If
    If Sheets(i).Name = "Auswertung" Then
       MsgBox "Aktuallisation der Tabelle"
       Exit For
    End If
Next i
Set ws1 = Worksheets("Auswertung")
anz1 = ws1.Cells(65356, 1).End(xlUp).Row
ws1.Range("a2:m" & anz1).ClearContents
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Auswertung" Then
       anz1 = ws1.Cells(65356, 1).End(xlUp).Row
       Set ws2 = Worksheets(Sheets(i).Name)
       anz2 = ws2.Cells(65356, 1).End(xlUp).Row
       ws2.Range("a2:m" & anz2).Copy Destination:=ws1.Range("a" & anz1 + 1)
       
    End If
Next i
End Sub

Vielen Dank für Deine Bemühungen.

Gruß

Jenny