Daten mit mehreren Abhängigkeiten per VBA kopieren
31.01.2014 17:51:01
Dani
ich möchte in einem Zellbereich, der immer bei der gleichen Zelle anfängt aber eine Variable Breite und Länge hat, von allen Zellen die eine Zahl beinhalten die Zeilen- und Spaltenüberschrift, sowie die jeweilige Zahl in einem neuen Tabellenblatt per Makro zusammenfügen. Das Makro wird im Blatt der Quelldaten ausgeführt. Wenn der Datensatz bereits im Zielblatt existiert, soll der größere Wert bestehen bleiben / eingetragen (die Daten werden aus mehreren Datenexportdateien automatisch eingelesen, bei denen es Überschneidungen geben kann).
Ich habe folgendes versucht, aber es klappt nicht (der Teil, dass nur der größere Wert bestehen bleibt und dass das Datum und die fixen Spalten vorne kopiert werden ist noch nicht drin, weil es schon nicht klappt den Wert zu kopieren...)
Sub aggregieren()
Dim LetzteZeile As Long
Dim LetzteSpalte As Long
Dim Startzeile As Long
Dim Startspalte As Long
Dim AktuelleZeile As Long
Dim AktuelleSpalte As Long
Dim AktuelleZelle As Range
Dim LetzteZielzeile As Long
Dim Wertebereich As Range
LetzteZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
LetzteSpalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
LetzteZielzeile = Sheets("AggregierteDaten").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Startzeile = 2
Startspalte = 6
Wertebereich = ActiveSheet.Range(Cells(Startzeile, Startspalte), Cells(LetzteZeile, _
LetzteSpalte))
For Each AktuelleZelle In Wertebereich
If AktuelleZelle "" Then
AktuelleZelle.Copy
Sheets("AggregierteDaten").Cells(AktuelleZelle).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
Next AktuelleZelle
End Sub
Hier eine Beispieldatei: https://www.herber.de/bbs/user/89048.xlsx
Es wäre total toll, wenn mir jemand helfen könnte!
Viele Grüße,
Dani