ich habe mal wieder ein kleines Problem.
Folgendes Makro wurde ausgetueftelt um Werte aus einem Blatt als durchschnittswert auf ein anderes Blatt zu uebertragen. Leider funktioniert die Geschichte noch nicht ganz. Bisher werden mir die Durchschnittswerte immer im gleichen Tabellen-Blatt ausgegeben wie in dem in welchem die Eingabe erfolgt. Ich komm einfach nicht auf meinen Fehler.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCell As Range
Set KeyCells = Range("N9:N50")
If Intersect(KeyCells, Range("N9:N50")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect "heute"
Application.EnableEvents = False
With Sheets("Pipeline")
Range("Z10:Z100").FormulaR1C1 = _
"=IFERROR(AVERAGEIF(Quotation!R9C3:R28C16,Pipeline!RC[-23],Quotation!R9C14:R32C14),"""") _
_
_
_
Range("Z10:Z40").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
Application.EnableEvents = True
ActiveSheet.Protect "heute"
End Sub
Vielen Dank im Voraus fuer einen Korrekturvorschlag.
Viele Gruesse,
Christoph