folgende 3 Formeln hätte ich gerne in unten angeführtes Makro eingebaut.
Nachfolgende Formel steht in Spalte A
=WENN(C3>0;ZÄHLENWENN(L$1:L3;L3);"")
Nachfogende Formel steht in Spalte B
=WENN(C3>0;(ZÄHLENWENN(M$1:M3;M3)&". "&I3);" ")
Nachfogende Formel steht in Spalte M
=(L3 & I3)
Die Tabelle hat eine Überschrift mit drei Zeilen und es können bis zu 1000 Werte untereinander stehen. Das Makro soll sich automatisch aktualisieren.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
If Target.Column <> 3 Then Exit Sub
If IsEmpty(Range("C" & Target.Row)) Then
Range("E" & Target.Row & ":M" & Target.Row).ClearContents
Exit Sub
End If
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = False
With Application
var = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 2, 0)
If Not IsError(var) Then
Target.Offset(0, 2) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 2, 0)
Target.Offset(0, 3) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 3, 0)
Target.Offset(0, 4) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 4, 0)
Target.Offset(0, 5) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 5, 0)
Target.Offset(0, 6) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 6, 0)
Target.Offset(0, 7) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 7, 0)
Target.Offset(0, 8) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 8, 0)
Target.Offset(0, 9) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 9, 0)
Else
Target.Offset(0, 2) = "?"
Target.Offset(0, 3) = "?"
Target.Offset(0, 4) = "?"
Target.Offset(0, 5) = "?"
Target.Offset(0, 6) = "?"
Target.Offset(0, 7) = "?"
Target.Offset(0, 8) = "?"
Target.Offset(0, 9) = "?"
End If
End With
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Vielen Dank für eure Hilfe!
Tschüß
Rolf