AW: 1000 mal die geleiche Formel
Reinhard
Hi Timonski,
du hast ja Makros in deiner Arbeitsmappe, also wirst du im VB-Editor "DieseArbeitsmappe" finden trotz "VbA nein" Level.
In das Fenster von "DieseArbeitsmappe" kopierst du den nachfolgenden Code.
Er ersetzt, wie auch im Code angemerkt, deine Formeln in den Spalten M bis X, AC, G, H.
Weitere Formeln kannst du daraufaufbauend noch integrieren.
Gruß
Reinhard
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Set ws1 = Worksheets(Sh.Name)
Set ws2 = Worksheets("Index")
r = Target.Row
c = Target.Column
Select Case c
Case 2 'Spalte B
If ws1.Cells(r, 2) <> "" Then
' ersetzt Formeln in Spalten M bix X
For n = 1 To Len(ws1.Cells(r, 2))
ws1.Cells(r, 12 + n) = Mid(ws1.Cells(r, 2), n, 1)
Next n
' ersetzt Formel in Spalte G
ws1.Cells(r, 7) = WorksheetFunction.Sum(ws1.Range(Cells(r, 14), Cells(r, 24)))
' ersetzt Formel in Spalte H
ws2.Activate
ws1.Cells(r, 8) = WorksheetFunction.Lookup(ws1.Cells(r, 2), _
ws2.Range(Cells(1, 1), Cells(15, 1)), _
ws2.Range(Cells(1, 2), Cells(15, 2)))
' ersetzt Formel in Spalte AC
ws1.Cells(r, 29) = ws1.Cells(r, 7) & " " & ws1.Cells(r, 8)
Else
For n = 1 To Len(ws1.Cells(r, 2))
ws1.Cells(r, 12 + n) = ""
Next n
ws1.Cells(r, 7) = ""
ws1.Cells(r, 8) = ""
ws1.cell(r, 29) = ""
End If
Case 3 'Spalte C
Case Else
Set ws1 = Nothing
Set ws2 = Nothing
Exit Sub
End Select
ws1.Activate
Set ws1 = Nothing
Set ws2 = Nothing
End Sub