Excel Formel in vba code umwandeln?

=WENN(ODER(ISTLEER(A1);ISTLEER(B1));"";A1-B1+1)

Bin absoluter Anfänger

2 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

Slevi89

27.11.2019, 14:02

Public Sub Code()

If IsEmpty(ActiveSheet.Cells(1,1)) Or IsEmpty(ActiveSheet.Cells(1,2)) Then

ActiveSheet.Cells("hier muss rein, wo dein Ergebnis hingeschrieben werden soll") = ""

Else

ActiveSheet.Cells("hier muss rein, wo dein Ergebnis hingeschrieben werden soll") = ActiveSheet.Cells(1,1) - ActiveSheet.Cells(1,2) +1

End If

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

VBA

29.11.2019, 14:57

Jede Funktion die du im Blatt verwenden kannst gibt es analog auch in VBA.
Tippe: Worksheetfunction. (mit tippen des "." Punktes erhälst du das Kontaaxt Menu aller Funktionen. Aus dem Semicolon wird allerdings ein "comma".
Wenn du auf dem Arbeitsblatt einfach die Zelle als Referenz genommen hast so wird dies nun auf wendiger:
=WENN(A1=0;"richtig";"falsch")
Result = Worksheetfunction.If(Worksheets("Tabelle1").Range("A1").Value=0,"richtig","falsch")

Ähnliche Fragen

Excel Vba in schleife?

ich möchte diese formel in einer schleife ,aslo das es mehrere zellen ausrechnet nicht nur A1 und B1

Sub test()

Worksheets("Tabelle1").Range("C1") = IIf((IsEmpty(Range("A1")) + IsEmpty(Range("B1"))) <> 0, "", (Range("A1") - Range("B1") + 1))

End Sub

...zur Frage

Excel Vba Typen Unverträglich?

Sub test()

For i = 1 To 10

Worksheets("Tabelle1").Range("C1:C10") = IIf((IsEmpty(Range("A1:A10")) + IsEmpty(Range("B1:B10"))) <> 0, "Not Calculable", (Range("A1:A10") - Range("B1:B10") + 1))

End Sub

...zur Frage

Excel VBA Zelleninhalt in Zellen Aufteilen

Hallo,

Ich möchte gerne diesen Inhalt:"VE=0,00126"der in Zeile A1 Steht so Aufteilen das am Ende in A1 "VE=" steht und in B1"0,00126" Gibt es einen Befehl der mir da helfen könnte? Mfg Dennis

...zur Frage

VBA für Datum und Uhrzeitauflistung (Fortführung), beim öffnen der Arbeitmappe?

Hallo VBA-Profis,

ich hätte gerne (bei Zelle A1 und B1 beginnend) ein VBA, dass beim öffnen der Arbeitsmappe, das Datum und die Uhrzeit sich auflistet, bzw. Fortführt.

D. h. beim 1. öffnen der Arbeitsmappe soll die Zelle A1 mit Datum und B1 mit Uhrzeit versehen werden (ungefähr so siehe Abb.)

Jetzt möchte ich, dass beim 2. öffnen der Arbeitsmappe, die Daten in A1 und B1 bestehen bleiben und das neue Datum und Uhrzeit in A2 (Datum) und B2 (Uhrzeit) eingetragen wird.

Beim 3. öffnen, A3 und A4 aktualisiert wird, u.s.w., aber die vorherigen Daten sollen stets erhalten bleiben.

Gibt es einen Möglichkeit dies stetig fortzuführen, optimal wäre sicherlich die Spalte A und B ohne Begrenzung, außer der möglichen Zeilenmenge-Verfügbarkeit von 1.048.576 Zeilen (so bei EXCEL 2019).

Ich habe keine VBA-Syntax-Kenntnisse !

Freue mich über eine Idee Eurerseits.

Gruß Tron

...zur Frage

Excel vba formel falsch,Was?

Sub test()
  Worksheets("Tabelle1").Range("A1") = worksheetfunction.iif(or(isempty(Range(A1)),isempty(Range(B2)),""(Range(A1-B2+1))
End Sub

...zur Frage

Excel in Sverweis die Matrix per Formel ändern?

Beispiel:

In A1 steht 11 als Zahl und in B1 die 14

Ich möchte, dass bei einem Sverweis die Matrix auf Basis von A1 verwendet wird.

(SVERWEIS(B3;H [A1]:L[B1];4;0)

...zur Frage

Excel =wenn A1 > als B1 dann "Text" in C1 Formel?

Hallo zusammen,

Ich möchte meine Tabelle so gestalten:

wenn A1 = kleiner als B1 dann sollte in C1 ein "Text" erscheinen.

Wie lautet diese Formel !?

Danke :)

...zur Frage

EXCEL Hilfe; WENN A1=C1 / DANN A2=C2?

Hallo zusammen ich benötige Hilfe bei dieser Formel.
Ich möchte gerne bei Excel eine Tabelle erstellen.
Es besteht aus 2 Zellen (A1 und B1) und 5 Zeilen. Hier ist bei A1 bis A5 jeweils eine Zahl selbst reinzuschreiben, zb. 10, 20, 30, usw.
Was ich möchte ist; B1 bis B5 soll dann automatisch ausfüllen WENN in A1 die 10 steht soll in B1 "Zehn" stehen wenn in A2 allerdings die 30 steht soll in B1 "Dreizig" stehen.
Dazu gibt es natürlich eine zweite Tabelle (C1-5 und D1-5) wo die zugehörigen "Daten" nebeneinander stehen. Es sind nur Beispiele hier. In der realität geht es nur um Zahlen (Gerätenummern die gewissen Fahrzeugen zugeordnet sind)
Eine einfache wenn Funktion scheint nicht auszureichen ich habe selbst die einfachste Version ausprobiert. Klappt nicht
=WENN(A1=C1;B1=D1)
selbst das klappt nicht, sonst hätte ich das 5x ineinander verschachteln wollen.

...zur Frage

Excel rechnet Prozent falsch

Prozentrechnug in Excel mit falschen Ergebnis:

Bsp.

Umsatz 85.000,00€ (A1)

Bonus in Prozent 0,90% (B1)

Taschenrechnerergebnis: 765€
Excel-Ergebnis 7,65€ (C1)

Mein Lösungsweg 85.000/100*0,90

Formel In Excel: (C1): =A1/100*B1 ergibt dann seltsamer Weise in Excel nicht 765€ sondern 7,65€...!!!

Was mache ich falsch....????

...zur Frage

Dezimalzahl mit Wenn-Dann Formel in Excel in Binärzahl umwandeln?

Wie der Titel schon sagt, wie kann man mit Excel eine Dezimalzahl in eine Binärzahl umwandeln. Wir sollen ne Tabelle machen, wo dann oben halt die Potenzen stehen (also bspw. 128 in A1, 64 in B1 usw), und darunter in die Zellen soll die Formel reinkommen und dementsprechend dann 1 oder 0. Das Ganze soll man mit einer Wenn-Dann Formel rechnen. Hat einer irgendeine Ahnung wie die Formel geht? Danke schon mal ;)

...zur Frage

Excel VBA - Nächste Leere Zelle finden?

Hallo, ich habe eine Sub geschrieben, die die nächste leere Zelle finden soll und dort etwas einfügen soll. Das ganze wird immer wieder wiederholt. Dabei habe ich allerdings ein Problem. In den Zellen A1-A10 stehen Formeln, die entweder einen Wert, oder "" ausgeben. Nehmen wir das Beispiel, dass in A1-A5 Werte stehen und A6-A10 leere Zellen sind, bzw "" (also nur eine Formel mit Ergebnis "" enthalten). Nun werden diese mit folgendem Code in das andere Tabellenblatt kopiert.

Wenn ich jetzt das ganze wiederhole, werden die neuen Daten in Tabellenblatt B erst in A11 eingefügt, obwohl A6-A10 ja leere Zellen sind.

Wie kann ich es abändern, dass Excel das Formelergebnis "" als leere Zelle ansieht?

Hier der Code:

Sub Test()

Worksheets("A").Range("A1:A10").Copy

Worksheets("B").Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False

End Sub

...zur Frage

Excel VBA - Zellen nach Datum löschen?

Hallo Liebe Excel - Kenner,

gibt es die Möglichkeit oder einen Code, wo ich Zellen löschen die ich nach Datum und Uhrzeit bestimme?

Bsp: Zelle A1: K30 löschen am 25.03.2016 - 14:00 Uhr

Gruß Manuel

...zur Frage

Excel: Inhalt einer Zelle übertragen

Wie kann ich den Inhalt einer Zelle an eine andere Zelle Übertragen?

Beispiel: A1= 5 ; B1 enthält eine Formel ; C1 soll den Wert von A1 übernehmen.

Allerdings darf C1 keine Formel, sondern nur den Wert "5" enthalten.

Kann ich eine Formel in der Zelle B1 erzeugen, in der der Inhalt von A1 in C1 kopiert wird? Wie müsste so eine Formel aussehen? (VBA/Makro möchte ich nicht verwenden)

...zur Frage

excel Range als Datum formatieren?

Hallo, wie kann ich per Excel Vba eine beliebige Range auf einem individuellen Tabellenblatt als benutzerdefinertes Datumsformat formatieren?

Worksheets("Tabellenblatt5").Range("A1:A14") = Format("ddd. * dd.mm.yyyy")

Mein bisheriger Versuch funktioniert leider nicht.

Danke

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen