die Erklärungsdatei ist jetzt nachstehend verlinkt:
https://www.herber.de/bbs/user/34348.xls
Ich benötige dringend Eure Hilfe.
Gruß
Dietlind
Sub Formelnaktualisieren()
Dim wks As Worksheet
Set wks = ActiveWorkbook.Sheets("Tabelle1")
Dim Zeile As Long, Zeile1 As Long
Zeile1 = 20 '1. Zeile mit Formel
Zeile = Zeile1
'Formel in Spalte E erzeugen
With wks
Do Until IsEmpty(.Cells(Zeile, "A"))
'Formel in Spalte E erzeugen
.Cells(Zeile, "E").Formula = "=HLOOKUP(A" & Zeile & "," & .Cells(Zeile, "D").Value & _
",3,False)"
'Formel in Spalte G erzeugen
.Cells(Zeile, "G").Formula = "=COUNTIF(" & .Cells(Zeile, "F").Value & ",""K"")"
Zeile = Zeile + 1
Loop
End With
End Sub