Zusammengefasster Code für viele Zeilen
05.08.2020 11:16:27
Dominik
ich möchte einen VBA Code zusammenfassen.
Ich filtere Daten aus einer großen Datenquelle und füge Sie in eine andere Exceldatei ein. Ich _
habe mir mittels Makrorekorders einen Code gebastelt, der das für mich macht. Allerdings mit _ dem Manko, dass ich Zeile für Zeile den gleichen Code eintragen müsste. Da ich blutiger Anfänger in VBA bin ist es sehr umständlich aus vielen "Wissensfetzten" geschrieben.
Sub Datenübertragen()
Application.ScreenUpdating = False
'Zeile 3
Windows("Liste_Datenquelle").Activate
Sheets("Zielliste").Select
Range("B3").Select
Selection.Copy
Windows("Liste_Datenquelle").Activate
Range("AC1").Select
ActiveSheet.Paste
ActiveSheet.Range("$A$1:$AA$3602").AutoFilter Field:=3, Criteria1:=Range("AC1")
Range("AC1").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.ScrollColumn = 1
X = WorksheetFunction.Subtotal(3, Range("A:A" & _
Ende))
Windows("Liste_Datenquelle").Activate
Sheets("Zielliste").Select
Range("AW3").Select
ActiveCell.FormulaR1C1 = X
'Zeile 4
Range("B4").Select
Selection.Copy
Windows("Liste_Datenquelle").Activate
Range("AC1").Select
ActiveSheet.Paste
ActiveSheet.Range("$A$1:$AA$3602").AutoFilter Field:=3, Criteria1:=Range("AC1")
Range("AC1").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.ScrollColumn = 1
XX = WorksheetFunction.Subtotal(3, Range("A:A" & _
Ende))
Windows("Liste_Datenquelle").Activate
Sheets("Zielliste").Select
Range("AW4").Select
ActiveCell.FormulaR1C1 = XX
'Zeile 5,6,7,8...
Application.ScreenUpdating = True
End Sub
Logischerweise muss ich die Werte rechts immer an die jeweilige Zeile anpassen...
Kann mir jemand auf die Sprünge helfen und den Code für Zeile 3-600 verallgemeinern?
Besten Dank im Voraus schon mal.
Gruß
Domi
