Excel Makro zum füllen von Zellen mit Formel
21.03.2024 11:19:08
Anja1511
ich möchte für mein Tabellenblatt "Daten" in der sich die Tabelle1 befindet innerhalb der Tabelle die Spalte 3 "Linien" über ein Makro mit der folgenden Formel füllen lassen
=WENN(ISTZAHL([@Testzeitraum1]);WENN(GANZZAHL([@Testzeitraum1])=[@Testzeitraum1];SVERWEIS([@[ICTO-No.]];Tabelle3;13;FALSCH);"");"")
Hierzu habe ich schon folgendes Makro erstellt, das mit jeder Formel funktioniert aus meiner "Ziel-Formel". Ich finde aber leider nicht den Fehler. Könnt ihr mir helfen?
Sub InsertFormulaInColumnC()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
' Definiere das Arbeitsblatt (Daten)
Set ws = ThisWorkbook.Sheets("Daten")
' Bestimme die letzte Zeile in Spalte C
lastRow = ws.Cells(ws.Rows.Count, 3).End(xlUp).Row
' Schleife durch jede Zeile in Spalte C und füge die Formel ein
For i = 7 To lastRow
' Füge hier deine gewünschte Formel ein
ws.Cells(i, 3).Formula = "=IF(ISNUMBER(ws.Cells(i, 4).Value),IF(INT(ws.Cells(i, 4).Value)=ws.Cells(i, 4).Value,VLOOKUP([ws.Cells(i, 1).Value],'CaRE-Abzug'!A:BC,13,FALSE),""""),"""")"
Next i
End SubAnzeige