Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1252to1256
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1252to1256
1252to1256
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter zusammenfügen

Tabellenblätter zusammenfügen
Natascha
Hallo zusammen,
ich hab ein kleines Problem.
Ich möchte 8 Tabellenblätter zu einem zusammenfügen, soweit so gut.
Mein Problem ist, das er immer die erste Zeile (also die Überschrift) kopiert, wenn ansonsten nichts auf dem Tabellenblatt eingetragen ist.
Ich bräuchte jetzt also eine Abfrage, die überprüft ob die zweite Zeile leer ist, wen dem so ist soll er nichts machen. Leider weiß ich gerade nicht wirklich wie ich das am besten einbauen kann.
So sieht es bis jetzt aus: 
Sub Übertrag()
' Übertrag Makro
Sheets("Michi").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 11)).Copy
Sheets("Cockpit").Select
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Michi").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 4)).ClearContents
Sheets("Taschi").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 11)).Copy
Sheets("Cockpit").Select
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Taschi").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 4)).ClearContents
Sheets("Vjollca").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 11)).Copy
Sheets("Cockpit").Select
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Vjollca").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 4)).ClearContents
Sheets("Peter").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 11)).Copy
Sheets("Cockpit").Select
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Peter").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 4)).ClearContents
Sheets("Vanny").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 11)).Copy
Sheets("Cockpit").Select
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Vanny").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 4)).ClearContents
Sheets("Herzi").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 11)).Copy
Sheets("Cockpit").Select
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Herzi").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 4)).ClearContents
Sheets("Ivonne").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 11)).Copy
Sheets("Cockpit").Select
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Ivonne").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 4)).ClearContents
Sheets("Steffi").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 11)).Copy
Sheets("Cockpit").Select
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Steffi").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 4)).ClearContents
End Sub

Ich hoffe ihr könnt mir Helfen. :)
Viele Grüße
Natascha

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabellenblätter zusammenfügen
24.02.2012 13:09:49
Rudi
Hallo,
teste das mal: 
Sub Übertrag()
' Übertrag Makro
Dim wks As Worksheet, arrSheets
arrSheets = Sheets(Array("Michi", "Taschi", "Vjollca", "Peter", "Vanni", "Herzi", "Ivonne", " _
Steffi"))
For Each wks In arrSheets
With wks
If .Cells(2, 1)  "" Then
.Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).Copy
Sheets("Cockpit").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:= _
xlPasteValues
.Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).ClearContents
End If
End With
Next
End Sub

Gruß
Rudi
AW: Tabellenblätter zusammenfügen
24.02.2012 13:16:57
Natascha
Danke für die schnelle Antwort. :)
Aber leider zeigt er mir dann immer einen Syntaxfehler an.
Ich glaub ich hab das Problem jetzt auch schon selbst gelöst.
Ich habe einfach überall das "End.(xlUp) gelöscht. So müsste das doch funktionieren!?
Trotzdem vielen Dank und viele Grüße
:)
Anzeige
AW: Tabellenblätter zusammenfügen
24.02.2012 13:34:03
Rudi
Hallo,
hab keinen Syntaxfehler.
Kommt wohl durch die Forensoftware. 
Sub Übertrag()
' Übertrag Makro
Dim wks As Worksheet, arrSheets
arrSheets = Sheets(Array("Michi", "Taschi", "Vjollca", _
"Peter", "Vanni", "Herzi", "Ivonne", "Steffi"))
For Each wks In arrSheets
With wks
If .Cells(2, 1)  "" Then
.Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).Copy
Sheets("Cockpit").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial _
Paste:=xlPasteValues
.Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).ClearContents
End If
End With
Next
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige