Daten aus Liste selektieren
03.12.2013 20:46:29
Befipri
ich habe folgendes Makro geschrieben, das funktioniert auch ist jedoch viel zu langsam.
Der Ausgangspunkt ist: Ich habe eine Tabelle, in der sind Daten für jeden Monat von Januar bis Dezember ab dem Jahr 2010 bis 2020. In einer anderen Tabelle möchte ich immer nur die Daten von einem Jahr z.B. 2012 angezeigt bekommen und dazu jeden Monat.
Sub Test()
Dim QuelleArr
Dim ZielArr(1 To 6)
Dim ZielDatum As Variant
Dim i, k, a As Long
a = 7
Set QuelleArr = Worksheets(2).Range("B5:H" & cells(rows.count,2))
Set Ziel = Worksheets(1).Range("C7:H18")
Wert = QuelleArr
ZielDatum = Worksheets(3).Cells(3, 2)
For i = 1 To UBound(Wert, 1) Step 1
If ZielDatum = QuelleArr(i, 2)
ZielArr(1) = QuelleArr(i, 2)
ZielArr(2) = QuelleArr(i, 3)
ZielArr(3) = QuelleArr(i, 4)
ZielArr(4) = QuelleArr(i, 4)
ZielArr(5) = QuelleArr(i, 5)
ZielArr(6) = QuelleArr(i, 6)
Worksheets(1).Cells(a, 3) = ZielArr(1)
Worksheets(1).Cells(a, 4) = ZielArr(2)
Worksheets(1).Cells(a, 5) = ZielArr(3)
Worksheets(1).Cells(a, 6) = ZielArr(4)
Worksheets(1).Cells(a, 7) = ZielArr(5)
Worksheets(1).Cells(a, 8) = ZielArr(6)
a = a + 1
End If
Next i
End Sub
Viele Dank schon mal!