Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Spalten per VBA nach unten kopieren

Spalten per VBA nach unten kopieren
28.08.2013 14:06:49
Dierk
Guten Tag,
ich hätte eine Bitte. Ich suche einen Automatismus für folgende Fragestellung.
Ich habe in Spalte 1 das Datum stehen. In den folgenden Spalten jeweils die Umsätze einen Abt.
Datum 1 2 3
1.1.13 0 0 0
2.1.13 50 34 55
3.1.13 45 12 34
4.1.13 34 33 10
usw.
In der Originaldatei ist das Datum für ein Jahr abgebildet und es gibt insgesamt 22 Abteilungen.
Jetzt soll nach Möglichkeit das Ergebnis wie folgt sein.
Datum 1
1.1.13 0
2.1.13 50
3.1.13 45
4.1.13 34
1.1.13 0
2.1.13 34
3.1.13 12
4.1.13 33
In Spalte c würde ich mir dann jeweils die Abteilungennamen, also "1" , "2" etc. reinkopieren. Dann könnte ich über PIVOT auswerten.
Es würde mich reichen, wenn erst einmal die Werte alle in Spalte B stünden.
Vielen Dank
SG
Dierk

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten per VBA nach unten kopieren
28.08.2013 15:06:55
Bastian
Hallo Dierk,
lässt sich sicher noch verschönern, aber sollte funktionieren:
Option Explicit
Sub CopyColumns()
Dim intZaehler As Integer
Dim lngLZeile1 As Long
Dim lngLZeile2 As Long
Dim lngLRow As Long
lngLZeile1 = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
lngLZeile2 = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
lngLRow = Worksheets("Tabelle2").Cells(1, Columns.Count).End(xlToLeft).Column
For intZaehler = 3 To lngLRow
Range(Cells(2, 1), Cells(lngLZeile1, 1)).Copy
ActiveSheet.Paste Destination:=Worksheets("Tabelle2").Range("A" & lngLZeile2 + 1)
Range(Cells(2, intZaehler), Cells(lngLZeile1, intZaehler)).Cut
ActiveSheet.Paste Destination:=Worksheets("Tabelle2").Range("B" & lngLZeile2 + 1)
lngLZeile2 = lngLZeile2 + lngLZeile1 - 1
Cells(1, intZaehler).ClearContents
Next intZaehler
End Sub

Gruß, Bastian
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige