Erledigt
19.11.2020 14:00:52
Clara
Sub Aktualisieren()
Dim rngBereich As Range
Set rngBereich = Range("A1:O20")
Dim rngZelle As Range
Application.ScreenUpdating = False
For Each rngZelle In rngBereich
'Anlagenummer aktualisieren
If rngZelle.Value = "Anlagenummer" Then
Range(rngZelle.Offset(1, 0), rngZelle.Offset(300, 0)).Select
Selection.FormulaR1C1 = "=IFERROR(AGGREGATE(15,6,Datenbank!R10C3:R50000C3/( _
Datenbank!R10C2:R50000C2=R4C),ROW(R[-4]C[-1])),"""")"
End If
'StB BW zum FYE aktualisieren
If rngZelle.Value = "StB BW zum FYE" Then
Range(rngZelle.Offset(1, 0), rngZelle.Offset(300, 0)).Select
Selection.FormulaR1C1 = "=IFERROR(INDEX(Datenbank!C[5],AGGREGATE(15,6,ROW(Datenbank! _
R10C[-2]:R50000C[-2])/(Datenbank!R10C[-2]:R50000C[-2]=""Ergebnis"")/(ROW(Datenbank!R10C[-2]:R50000C[-2])>MATCH(RC[-3],Datenbank!C[-2],0)),1)),"""")"
End If
'HB BW zum FYE aktualisieren
If rngZelle.Value = "HB BW zum FYE" Then
Range(rngZelle.Offset(1, 0), rngZelle.Offset(300, 0)).Select
Selection.FormulaR1C1 = "=IFERROR(INDEX(Datenbank!C[7],AGGREGATE(15,6,ROW(Datenbank! _
R10C[-3]:R50000C[-3])/(Datenbank!R10C[-3]:R50000C[-3]=""Ergebnis"")/(ROW(Datenbank!R10C[-3]:R50000C[-3])>MATCH(RC[-4],Datenbank!C[-3],0)),1)),"""")"
End If
Next
'Hardcoding
Range("A4:J304").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub