Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1436to1440
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
Inhaltsverzeichnis

Arbeitsblätter zusammenkopieren

Arbeitsblätter zusammenkopieren
21.07.2015 09:38:39
Frank
Hallo zusammen,
ich habe folgendes Problem. Ich habe eine Arbeitsmappe mit 100 Arbeitsblättern. Auf jedem Blatt stehen 40 Datensätze (ab Zeile 3 bis Zeile 42, ab Spalte A bis Spalte Z). Ich habe jetzt die Anforderung erhalten, dass alle Datensätze in einem Arbeitsblatt als fortlaufende Liste erscheinen sollen. Mit diesem Makro klappt das aber leider nicht:

Sub ausschneiden()
Dim i As Long
For i = 1 To Sheets.Count
Sheets(i).Select
Range("A3").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Cut
Sheets("Seite1_1").Select
Range("A3").Select
Selection.End(xlDown).Select
Range("A43").Select
ActiveSheet.Paste
Next i
MsgBox "fertig"
End Sub
Was mache ich falsch?
Gruß
Frank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsblätter zusammenkopieren
21.07.2015 10:12:03
UweD
Hallo
so...
Ohne select usw....
Sub Kopieren()
Dim i&, LR1%, LR2%
Dim TB
Set TB = Sheets("Seite1_1")
For i = 1 To Sheets.Count
With Sheets(i)
If .Name  TB.Name Then
'erste freie Zeile der Spalte A, mindestens aber 3
LR1 = WorksheetFunction.Max(3,TB.Cells(Rows.Count, 1).End(xlUp).Row + 1)
'letzte Zeile der Spalte A
LR2 = .Cells(Rows.Count, 1).End(xlUp).Row
'kopieren
.Range("A3:Z" & LR2).Copy TB.Cells(LR1, 1)
End If
End With
Next i
MsgBox "fertig"
End Sub

Gruß UweD

AW: Arbeitsblätter zusammenkopieren
21.07.2015 10:39:37
Frank
Hallo UweD,
super, besten Dank. Das klappt wie geschmiert.
Gruß
Frank
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige