Makro für Zeilen einfügen mit Formel
13.05.2003 11:20:54
Dominik
Ich brauche ein Makro, welches mir Zeilen einfügt und zudem noch eine Formel in Spalte D.
Das ist was ich bisher habe:
Sub Makro()
'
' Makro
'
Selection.Insert Shift:=xlDown
For Each Cell In Range("D:D")
If Cell.Interior.ColorIndex = 15 Then Cell.Formula = "=IF(ISNA(VLOOKUP(A4:A10000,'C:\Excel\[test.xls]Tabelle1'!$B$2:$H$10000,7,FALSE)),0,VLOOKUP(A4:A10000,'C:\Excel [test.xls]Tabelle1'!$B$2:$H$10000,7,FALSE))"
Next Cell
End Sub
Allerdings wird hier in jede Zelle der Spalte D die Formel eingetragen.
Dürfte für Euch Excel-Cracks doch kein Problem sein, oder?
MfG
Dominik