Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1412to1416
1412to1416
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten kopieren

Forumthread: 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

Anzeige

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

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

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige