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

Tabellenblätter zusammenführen, aber

Tabellenblätter zusammenführen, aber
Christo
Hallo,
das folgende Makro funktioniert fast perfekt, bloss ...
- die Titelzeilen 1-5 der "Herkunftstabelle" werden immer mitkopiert
- im Zielblatt sollte in der Spalte "S" bei jedem Datensatz, die Herkunftstabelle stehen
( Die Daten der Herkunftstabellen haben im Maximum Spalten von A - P
Wer weiss Rat und jetzt schon Danke.
Christo
Sub Total_Tabelle()
Dim wksZ As Worksheet, wksQ As Worksheet, lngZ As Long, lngQ As Long
Set wksZ = Worksheets("Gesamt")   ' Zielblatt "Gesamt" muss existieren
lngZ = wksZ.Cells(wksZ.Rows.Count, 1).End(xlUp).Row
gesamt_Loeschen ' löscht den gesamten Inhalt in "Gesamt"
' erstellt die Titelzeile
For Each wksQ In Worksheets
With wksQ
If wksQ.Name = "Totale" Then GoTo sprung   ' wird nicht kopiert
If wksQ.Name = "IST_VERS" Then GoTo sprung ' wird nicht kopiert
If wksQ.Name = "IST_STRV" Then GoTo sprung ' wird nicht kopiert
If .Name  wksZ.Name Then
lngQ = .Cells(.Rows.Count, 1).End(xlUp).Row - 1
If lngQ > 0 Then .Rows(2).Resize(lngQ).Copy wksZ.Rows(lngZ + 1)
lngZ = lngZ + lngQ
End If
sprung:
End With
Next wksQ
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
DOPPELT (owT)
19.01.2012 07:41:20
Erich
(ohne weiteren Text)
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige