Formel einfügen geht nicht

Computer: Software & Programmierung Visual Basic
1

Hallo, hab heute wieder ein spannendes problem.

Ich möchte auf 100 seiten, alle 54 zeilen eine formel einfügen, und zwar diese:

=WENN(ODER(ISTZAHL(C63);ISTZAHL(D63));E49+C63-D63;"")

nur halt imma mit angepassten zahlen

mein versuch:

start = 63

For i = 0 To 100

formel = „=WENN(ODER(ISTZAHL(C“ & CStr(start) _
& „);ISTZAHL(D“ & CStr(start) _
& „));E“ & CStr(start - 14) & „+C“ & CStr(start) _
& „-D“ & CStr(start) _
& „;“""")"

Worksheets(1).Cells(start, 5).Value = formel

2

ok, problem gelöst mit englischen funktionsnamen, und formulalocal statt value. Hab aber ein Neues Problem:

Kann man einer Zelle einen Wert zuweisen in meinem fall z.B. =E12 ihn aber nicht anzeigen?

Danke

3

Kann man einer Zelle einen Wert zuweisen in meinem fall z.B.
=E12 ihn aber nicht anzeigen?

3 Möglichkeiten

  1. Spalte oder Zeile mit betreffender Zelle Ausblenden

  2. Textfarbe weiß Hintergrund weiß

  3. Zelle Benutzerdefiniert Formatieren mit „“;"";""

MfG Stefan

4

ok, problem gelöst mit englischen funktionsnamen, und
formulalocal statt value. Hab aber ein Neues Problem:

Hi Wotan,
bei deutschem Excel kenne ich das so:

Formel="=Wenn(…)"
Range(„A1“).FormulaLocal = Formel

oder

Formel="=If(…)"
Range(„A1“).Formula = Formel

K.A. wie das bei englischem Excel ist, ob da Formula und FormulaLocal identisch ist o.ä.

Gruß
Reinhard

5

Lösung mit verstecktem Namen und Vba

Kann man einer Zelle einen Wert zuweisen in meinem fall z.B.
=E12 ihn aber nicht anzeigen?

Hi Wotan,

ja,

Einfügen–Namen–Definieren
Name: Geheim
bezieht sich auf: =Tabelle1!$E$12

Dann folgendes Makro laufen lassen:

Sub Verstecken()
ActiveWorkbook.Names(„Geheim“).Visible = False
End Sub

Benutzung in einer Zelle:

=Geheim

Gruß
Reinhard