VBA - Application.If funktioniert nicht

Hallo zusammen,
Ich bekomme ein scheinbar einfaches Problem nicht gelöst. Ich habe ein Workbook mit mehreren Output- Arbeitsblättern, die zu befüllen sind. Um die Größe des Excel-Files so klein wie möglich zu halten, verwende ich zum befüllen der Seiten Application.Sumif anstatt Formeln einzufügen. Dies klappt auch ohne Probleme (siehe Excel file), aber für eine Spalte brauche ich Application.If und daran habe ich mir nun schon seit mehreren Tagen die Zähne ausgebissen.
https://www.herber.de/bbs/user/105280.xlsm
Mein Ziel ist in Spalte I die Formel IF(F7=0,0,IF(F7<0,H7/-F7,F7) einzufügen, aber in Form von Application.If. Ich habe schon folgendes versucht:
.Cells(i, "I").Value = Application.If(.Cells(i, "F") = 0, 0, Application.If(.Cells(i, "F") < 0, .Cells(i, "H") / -.Cells(i, "F"), .Cells(i, "F")))
Aber das resultiert in der Fehlermeldung Run-time error 438. Habt ihr eine Idee wie ich Application.If einfügen kann?
Viele Grüße
Judith

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…statt WorksheetFunction benutzt, ohne sich dabei wirklich auszukennen, Judith;
Ersteres wird nämlich nicht vom VBE-Intellisense unterstützt, der dir zeigen würde, dass es das nicht gibt, weil es in VBA nicht benötigt wird. Der WorksheetFunction-Container enthält nämlich nicht alle WorksheetFunctions! Die restlichen kann man dann nämlich nur so wie Matti es zeigt oder per vbFkt Evaluate (für US-Original-Fml-Notation als Text) behandeln.
VBA enthält die If…Then…ElseIf…Then…Else…End If-Konstruktion und außerdem eine eigene Fkt, das (duale) IIf(…, …, …), die du aber nur verwenden kannst, wenn sichergestellt ist, dass keine der beiden Lösungsmöglichkeiten einen Fehler verursacht!
Darüber hinaus gibt's noch die vbFkt Switch, das FktsPendant zur vbKonstruktion Select Case…Case…Case Else…End Select. Hier gilt aber das Gleiche wie bei IIf !
Damit solltest du dein Problem ebenfalls lösen können.
Morrn, Luc :-?
Besser informiert mit …

Beliebteste Forumthreads (12 Monate)

	I	J
5	Formel	Wert
6	DEV %	DEV %
7	(5)%	(5)%
8	13%	13%
9	11%	11%
10	13%	13%
11	1%	1%
12	(2)%	(2)%
13	(1)%	(1)%

VBA - Application.If funktioniert nicht

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - Application.If funktioniert nicht

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread