ich habe in Problem was meine Makros angeht (bzw. nur eines).
Ich habe eine Arbeitsmappe in welcher ich viele Daten in verschiedenen Arbeitsblättern habe. Ich möchte nun ein Makro einrichten, welches es mir ermöglicht alle Arbeitsblätter auf Knopfdruck auszuwerten und bestimmte Daten aus diesen Arbeitsblättern in ein "Sammelarbeitsblatt" zu speichern.
Die Arbeitsblätter sind alle gleich aufgebaut. Allerdings wächst meine Datenbank stetig und so würde ich gerne einen Button einrichten, welcher direkt gewünschte Daten in das Sammelblatt kopiert.
Ich bin bisher so weit gekommen:
Sub Auswertung()
' Auswertung Makro
Sheets("Auswertung Wohnen").Select
Columns("D:E").Select
Range("D3").Activate
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("F:G").Select
Range("F3").Activate
Selection.Copy Destination:=Columns("D:E")
Range("D1:E1").Select
ActiveCell.FormulaR1C1 = "=W_2!RC[-2]"
Range("D3").Select
ActiveCell.FormulaR1C1 = "=W_2!R[8]C"
Range("D3").Select
Selection.AutoFill Destination:=Range("D3:D43"), Type:=xlFillValues
Range("D3:D43").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = _
"=AVERAGE(RC[2],RC[4],RC[6],RC[8],RC[10],RC[12],RC[14],RC[16])"
Range("B3").Select
Selection.AutoFill Destination:=Range("B3:B43"), Type:=xlFillValues
Range("B3:B43").Select
End Sub
Mein Problem ist jetzt nur, dass wenn ich dieses Makro auf ein weiteres Arbeitsblatt anwende nur die werte aus der Liste W_2 bekomme und nicht aus dem neuen.Es wäre mir eine Riesen Hilfe wenn jemand wüsste wie ich das Problem lösen könnte.
Vielen Dank
Vinc