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

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

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige