Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1348to1352
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

Erste Zeile nicht mitkopieren

Erste Zeile nicht mitkopieren
19.02.2014 11:34:27
janesch
Hallo Excel-Freunde,
habe mir hier folgendes sehr nützliches VBA Code gefunden.
Private Sub Zusammenführen()
Dim wksT As Worksheet
Dim wksS As Worksheet
Dim i As Integer
Dim RowsT As Integer
Application.ScreenUpdating = False
Set wksT = ActiveWorkbook.Sheets.Add(, Worksheets(Worksheets.Count), , xlWorksheet)
wksT.Name = "Zusammenführung"
For i = 1 To Worksheets.Count - 1
Set wksS = Worksheets(i)
RowsT = wksT.Cells(Rows.Count, 1).End(xlUp).Row + 1
wksS.UsedRange.Copy Destination:=wksT.Cells(RowsT, 1)
Next i
End Sub
Ich möchte gerne, dass die erste Zeile der in den einzelnen Blättern nicht mitkopiet werden soll.
Was muss ich im Code ändern.
Grüße
Janesch

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

Betreff
Datum
Anwender
Anzeige
AW: Erste Zeile nicht mitkopieren
19.02.2014 11:42:01
Rudi
Hallo,
    For i = 1 To Worksheets.Count - 1
Set wksS = Worksheets(i)
RowsT = wksT.Cells(Rows.Count, 1).End(xlUp).Row + 1
With wksS.UsedRange
.Offset(1).Resize(.Rows.Count - 1).Copy Destination:=wksT.Cells(RowsT, 1)
End With
Next i

Mit UsedRange würde ich aber nicht arbeiten.
Gruß
Rudi

AW: Erste Zeile nicht mitkopieren
19.02.2014 11:46:44
janesch
Hallo Rudi,
danke für deine schnelle Hilfe und Tipp, habe dein Code ausprobiert..und es klappt alles wunderbar.
Besten Dank!!!
Wünsche dir noch einen schönen Tag.
Grüße
Janesch
Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige