Hallo!

Versuchs mal hiermit!!!

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Range("A1").Value = Now() End Sub

Gruß Frank!!!

...zur Antwort

Hallo! In welchen Zellen stehen denn die Werte? Bedingte Formatierung aufrufen, die Zelle mit dem Ergebnis musst du als bedingt formatieren! Bsp.: 1. Bedingung: = (C1<1,4), dann auf Format und den Hintergrund rot einstellen. 2. Bedingung: = (C1>1,4), dann auf Format und den Hintergrund grüneinstellen. Ich hoffe dass ich helfen konnte, eine Rückantwort wäre nett!!!

Gruß Frank H.!!!

...zur Antwort

Hallo Vicky0415!

In Zelle A1 steht dein Wert = 1660

In Zelle B1 steht 100

In Zelle B2 steht 8

In Zelle A3 schreibst du die Fomel: = A1*B2/B1

Alles Andere musst6 du dann anpassen, oder selbst lösen oder éiter fragen.

Kannst mich auch direkt kontaktieren: franknwtn15@arcor.de

Gruß Frank!!!

...zur Antwort

Hallo arokh1234!

Kontrollkästchen1 - Doppelklick und dann im VBA - Editor folgenden Code eingeben:

Private Sub CheckBox1_Click()

If CheckBox1 = True Then CheckBox2 = True End If

End Sub

Ich hoffe es hilft dir weiter???

Gruß Frank H.!!!

...zur Antwort

Hallo! Nehmen wir an in A1 steht das Jahr. Die Daten dann ab A3, dann schreibe in A3 = DATUM(A1;1;1). In A4 schreibst du =A3+1, das dann runterziehen bis zur Zelle A61. In A62 schreibst du dann wegen des Schaltjahres =DATUM($A$1;2;TAG(A61)+1) und in A63 wieder = A62+1, weiter runterziehen! Ich hoffe ich konnte helfen. Antwort wäre nett! Gruß Frank!

...zur Antwort

Hallo! Nehmen wir an in A1 steht das Jahr. Die Datumwerte dann ab A3 abwärts. In A3 schreibst du =DATUM(A1;1;1), in A4 schreibst du = A3+1 und ziehst die Formel nach unten. In A62 musst du dann wegen der Schaltjahre folgende Formel einsetzen: =DATUM($A$1;2;TAG(A61)+1), dann wieder = A62+1. Sollte hoffentlich helfen! Antwort wäre nett! Gruß Frank!

...zur Antwort

Schau mal hier und stell dort deine Frage erneut! www.herber.de/forum Gruß Frank!

...zur Antwort

Hallo!

Vielleicht so???

.TextBox11.Value = Round(CDbl(.TextBox10.Value) + CDbl(.TextBox5.Value) - CDbl(.TextBox6.Value), 2)

Du musst dier Textfelder an deine anpassen.

Ansonsten empfehle ich dir die Seite: www.herber.de/forum

Gruß Frank H.

...zur Antwort

Guten Morgen!

WENN - Verschachtelungen sind auf 8 begrenzt, aber mit einem Trick erweiterbar. Nach 8x WENN normal abschließen und dann das & setzen und weiter geht es mit WENN. Ich hoffe icjh konnte helfen!!! Nachricht wäre nicht schlecht. Gruß Frank H.

...zur Antwort

Guten Morgen!!!

Wenn ich mich recht entsinne, nennen sich diese Formeln - "Matrixformeln" -. Diese geschweiften Klammern werden nicht von Hand eingegeben, sondern mittels der Tastenkombination STRG - UMSCHALT - RETURN abgeschlossen, dann werden die geschweiften Klammern automatisch gesetzt und die Formel sollte funktionieren!!!

Gruß Frank H.

...zur Antwort

Hallo!

Mit einem Button geht das.

Der Code hierfür:

Private Sub CommandButton1_Click()

Worksheets(1).Name = Worksheets(1).Range(&quot;A2&quot;).Value

End Sub

Die 1 steht für das erste Tabellenblatt von links!!!

Ich hoffe ich konnte helfen, Feedback wäre nett!!!

...zur Antwort

Hallo!!!

Versuche es mal mit: =ZÄHLENWEN(A1:A1000;"DEIN SUCHKRITERIUM"). Den Spaltenbereich musst du noch anpassen!

Hats geholfen???

...zur Antwort

Hallo!!!

=WENN(UND(F3=1;D3>=14);12;"")

Das alles musst du natürlich für deine Bedingungen noch erweitern. 8 wenn Abfragen sind zulässig!!!

Kannst dich ja melden ob es geholfen hat!!!

Gruß Frank!

...zur Antwort