Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1464to1468
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

Code ändern

Code ändern
16.12.2015 09:06:38
Thomas
Hallo zusammen,
mit diesem Code werden alle KW49,KW50,KW51,KW52 in das Tabellenblatt Zusammenfassung zusammengeführt.
Sub zusammenfassung()
Dim vntQUELLE As Variant
Dim wsZiel As Worksheet
Dim intINDEX As Integer
vntQUELLE = Array("KW49", "KW50", "KW51", "KW52")
Set wsZiel = Worksheets("Zusammenfassung")
For intINDEX = LBound(vntQUELLE) To UBound(vntQUELLE)
With Worksheets(vntQUELLE(intINDEX))
.Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 1)).Copy
If IsEmpty(wsZiel.Cells(2, 1)) Then
wsZiel.Cells(2, 1).PasteSpecial xlPasteAll
Else
wsZiel.Cells(wsZiel.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
End If
Application.CutCopyMode = False
End With
Next
End Sub

kann man diesen Code ändern, das er einfach alle Tabellenblätter wo KW zusammenführt?
Denn manchmal gibt es keine z.B. KW50 und dann kommt fehlermeldung
Hoffe ihr könnt mir helfen.
Danke
LB Thomas

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Doppelt owT
16.12.2015 11:49:13
Bernd
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige