Cells eintragen
05.10.2003 08:54:46
Erich M.
ich möchte mit einem Makro Werte und Formeln in Zellen eintragen:
Sheets("Abgleich").Select
Cells.Clear
Cells(2, 1) = "Anfangsbestand lt. Test:"
Cells(2, 2) = "=Tabelle3!K2" '168927200,50"
Cells(3, 1) = "Anfangsbestand lt. Original:"
Cells(3, 2) = "=-SUM(Tabelle1!C:C)"
Cells(4, 1) = "Differenz"
Cells(4, 2) = "=SUM(B2:B3)"
'Cells(5, 2) = "=wenn(B4=0;GLÜCKWUNSCH IMPORT ERFOLGREICH;FEHLER FEHLER)"
Range("B2:B4").Select
Selection.NumberFormat = "#,##0.00"
Die Zellen (2,1) bis (4,2) funktionieren!
Leider bekomme ich die "WENN-Formel" in Cells(5,2) nicht hin.
Wie muss ich die WENN-Formel aufbauen?
Verschiedene Versuche mit "" bzw. Macrorecorder sind gescheitert.
Besten Dank für eine Hilfe!
mfg
Erich