Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

wenn funktion über vba in zelle

wenn funktion über vba in zelle
22.04.2005 08:38:55
Erik
Hallo, ich möchte über einen VBA-Code eine Formel in eine Zelle einfügen:
1. mgl:ActiveCell.FormulaR1C1 = "=WENN(I3+4=A1;""Anrufen"";"""")"
2. mgl: dim f as string - f= "=WENN(I3+4=A1;""Anrufen"";"""")" - Activecell.formular1c1=f
Die Funktion wird wunderbar in die Zelle eingefügt, sieht dann auch absolut identisch aus, als wenn ich die formel per hand reinschreiben würde.(wo sie auch funktioniert)
Allerdings wird die Formel nicht als Formel interpretiert, sondern nur als Text, ich brauche e aber als Formel.
Wer kann helfen?
PS:Auch in Englisch mit if... funktionierts nicht.

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

Betreff
Datum
Anwender
Anzeige
AW: wenn funktion über vba in zelle
22.04.2005 09:05:27
jan-und-iana
Hallo Erik,
probier mal anstatt,
ActiveCell.FormulaR1C1 = ...
ActiveCell.FormulaLocal = ...
Der Unterschied besteht darin, dass Excel die Eigenschaft von .FormulaLocal in einer nutzerverständlichen (entsprechend der Schreibweise) Art und Weise interpretiert und bei der Eigenschaft FormulaR1C1 erwartet Excel 'Z1S1-Bezüge in der Sprache des Makros', was nicht deiner Schreibweise entspricht.
Mit Schreibweise meine ich "=WENN(I3+4=A1;""Anrufen"";"""")"
Ich hoffe ich konnte dir weiterhelfen
Gruß, jan-und-jana
AW: wenn funktion über vba in zelle
22.04.2005 10:35:47
Erik
Es klappt trotzdem nicht.
AW: wenn funktion über vba in zelle
22.04.2005 11:02:04
jan-und-iana
Hallo Erik,
ich hab es bei mir getestet und es funktioniert.
Ich habe in A1, 7 geschrieben.
in I3, 3 geschrieben.
auf Strg+q hab ich folgendes Makro Modul1.Makr01 gelegt (mit Makro Aufzeichnen).

Sub Makro1()
' Makro1 Makro
' Makro am 22.04.2005 von jan-und-jana aufgezeichnet
'    ActiveCell.FormulaR1C1 = "=WENN(I3+4=A1;""Anrufen"";"""")"
ActiveCell.FormulaLocal = "=WENN(I3+4=A1;""Anrufen"";"""")"
End Sub

Jetz selectiere ich eine beliebige Zelle im Tabellen-Blatt, wo sich A1 und I3 befinden und siehe da es funktioniert.
Gruß jan-und-jana
PS.: Ich konnte die Datei leider nicht hoch laden um es zu zeigen
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige