Formel per VBA nach IF-Abfrage in ganze Spalte schreiben

Hallo,



wenn du das über Spalten machst, musst du halt Column nehmen anstatt Row.



IIF ist wie If aber in einem Ausdruck. IIF funktioniert so: =IIF(Bedingung, true part, false part)

Mod ist Rest. Damit habe ich getestet, ob die Zeilennummer ohne Rest durch 2 teilbar ist, also ob es eine gerade Zeilennummer ist.

In der Formel dann

=IIF(Zeilennummer durch 2 teilbar ohne Rest, dann Count-Formel, sonst Summenformel)



Die jeweilige Adresse in der Spalte A ist die Adresse von rngC.offset(0,-1). Diese habe ich als Variable in die Formel eingegeben. Also Formel abgeschlossen mit Anführungszeichen, dann Variable eingesetzt und dann wieder die schließende Klammer der Formel
mit & ")".

Address hat dann noch die beiden Argumente für die Schreibweise. .Address(0,0) heißt, dass sowohl Zeile als auch Spalte relativ sein sollen.



Ich würde beide Formeln mit einer If-Abfrage zusammenfassen. Dann hast du eine einheitliche Formel und nicht jede Zeile etwas anderes.



Mit freundlichen Grüßen

Claus

Kannst Du mir also eine Tipp geben? Kann man alte Excel 4.0 Makros tatsächlich "irgenwie automatisch" in VBA übersetzten lassen, oder ist das ein Märchen?

Automatisches Umschreiben ist schon seit jeher ein Märchen, ich habe selber schon mal einen Konverter für Delphi nach VBA geschrieben um eine große Mathe-Unit zu übersetzen.

Sowas funktioniert nur auf einer ganz grundlegenden Ebene, viele Sachen die in der einen Sprache möglich sind lassen sich nur schwierig oder überhaupt nicht in einer anderen realisieren.

Also bleiben Dir 2 Möglichkeiten:

a) Du installierst Dir eine virtuelle Maschine, z.B. Virtual Box von Oracle, installierst Dir ein WinXP und OfficeXP und lädst die Datei dort.

b) Du schreibst Dein Programm mal neu, was nicht sooo schwierig ist.

Also Deine Kästchen und alles in Ehren, aber so funktioniert heute kein Programm mehr und vieles läßt sich da viel einfacher machen. Eine Idee:

Spalte A ist EN, Spalte B ist DE, Spalte C ist das Datum der letzten Abfrage, Spalte D und E ist ein Zähler für Richtig und Falsch beantwortet.

Damit hast Du schon alle Informationen die nötig sind. Nun brauchst Du nur per Zufall eine Zeile auswählen, dann kannst Du je nach Datum und Zählerstand auswerten ob die Vokabel abgefragt werden soll oder nicht, z.B.: If Rnd() <= Richtig / Falsch Then ...

Die Abfrage selber kann man mit einer Userform machen oder erst mal simpel mit InputBox/MsgBox.

Zählerstand updaten, fertig.

Bei der Neueingabe zu kucken ob es die Vokabel schon gibt ist trivial, Range.Find bietet da alle Möglichkeiten.

Man kann dann auch schick optisch mit ein Diagramm darstellen wie viele Formeln richtig / falsch dargestellt wurden etc.... naja, kann man zum Schluß irgendwann machen.

Wenn ich das so überlege, dann reduziert sich damit der ganze Aufwand auf vielleicht 50 bis 100 Zeilen Code, mehr braucht es nicht.

Andreas.

Hallo Frank,

sie Spalte X liegt hinter W und würde in die Summe mit einbezogen werden. Oder stehen die Werte W21:AD21 auf einem anderen Blatt?

Wenn du mal die Syntax für eine Formel in VBA nicht kennst, gebe die Formel ins Blatt ein, selektiere dann die Formelzelle, wechsele in den VBA-Editor, öffne das Direktfenster und gebe dort ein:

?activecell.Formula

Damit wird die die Formelsyntax angezeigt.

Du musst die Funktion auch ins Englische übersetzen. Probiere es mal mit:

.Range("X21:X" & LRow).Formula = "=SUM(W21:AD21)"

Edit: Übrigens kannst du die vorherige Formel vereinfachen, um das UND aus der Formel zu bekommen. Probiere:

=IF(A1<>"""",A1,IF(B1<>"""",B1,C1+D1))

Claus

Hallo!

Was genau ist dir unklar? Die benötigte Formel, um das auszurechnen, oder wo und wie du sie in Access verwenden kannst?

Grundsätzlich kannst du z.B. in einer Abfrage oder in einem Formular sog. Ausdrücke, d.h. Formeln, verwenden. Ähnlich wie du das vielleicht aus Excel kennst. Mal am Beispiel einer Abfrage erläutert:

1. erstelle eine neue Abfrage auf Basis deiner Tabelle
2. im Abfrageentwurf füge alle Felder, die du sehen willst, unten ins Abfragegitter ein
3. setze danach den Cursor in eine leere Spalte des Abfragegitters und schreib in der Zeile
   Feld deine Formel mit den Feldnamen rein, also sowas wie:
   
   Dauer / Kilometer
   
4. wechsle in die Datenansicht der Abfrage und kontrolliere, ob in dieser berechneten Spalte der gewünschte Wert steht oder du noch etwas anpassen musst

Hallo!

Das ist das Standardverhalten von Access/ACE. Wenn in einer berechneten Spalte ein Alias aus der selben Abfrage verwendet wird, wird er im WHERE-Abschnitt (=Kriterium) nicht erkannt. Dabei ist es egal, wieviele Tabellen beteiligt sind.

In deiner funktionierenden Abfrage dürfte strukturell etwas anders sein. Wenn du das klären willst, kannst du ja mal den SQL-Text der Abfrage hier posten.

Die einzige Lösung ist jedenfalls, statt des Alias die 1. Berechnung in der 2. berechneten Spalte zu wiederholen (bzw. zumindest im WHERE-Abschnitt des SQL-Statements). D.h. anstelle von [Error_Abs] musst du nochmal die Berechnung in die 2. Formel schreiben.