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

Spalten kopieren

Spalten kopieren
13.03.2015 14:26:30
Floh
Hallo,
Ich habe folgendes Problem:
Ich habe eine Arbeitsmappe mit ca. 100 Blättern. Jedes Blatt hat mehrere Spalten und viele Zeilen.
nun möchte ich aus jedem Blatt die ganze Spalte A kopieren und alle Spalten A in einem neuen Blatt nebeneinander haben.
wie geht das? (ausser von Hand)
Danke

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten kopieren
13.03.2015 14:31:35
ChrisL
Hi Floh
Sub t()
Dim WS As Worksheet, WS2 As Worksheet, iCounter As Integer
Set WS2 = Worksheets("Zusammenfassung") ' Name anpassen
For Each WS In ThisWorkbook.Worksheets
If WS.Name  WS2.Name Then
iCounter = iCounter + 1
WS.Columns(1).Copy WS2.Columns(iCounter)
End If
Next WS
End Sub

cu
Chris

AW: Spalten kopieren
13.03.2015 14:56:54
Floh
Wow, richtig gut, danke! hat mir grad ne stunde geschenkt!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige