Betrifft: Makro Wenn Zelle nicht leer dann Formel einf�gen
von: Brockmann
Hallo an alle,
habe mal wieder ein Problem.
Ich habe eine Exceltabelle in der ich per Makro Daten aus einer Text-Datei einlesen. Jetzt m�chte nach dem importieren der Daten ein Makro ausf�hren k�nnen welches mir ab der Zeile 12 in den Spalten E und F folgende Formel einf�gt
F�r Spalte E: =F12/(Stundenverrechnungssatz!$E$4/60)/60
f�r Splate F: J12-H12-G12
wenn in der gleichen Zeile die Spalte A nicht leer ist.
Das Tabellenblatt hat den Namen "Blatt 223"
Vielleicht kann mir ja jemand von euch weiter helfen.
Vielen Dank.
Betrifft: Makro Wenn Zelle nicht leer dann Formel einf�gen1
von: Hajo_Zi
Betrifft: AW: Makro Wenn Zelle nicht leer dann Formel einf�gen1
von: Brockmann
Hallo Hajo_Zi,
wow f�r die Express-Antwort erstmal vielen Dank.
Zwei Dinge sind mir beim Test aufgefallen.
1. Er beginnt bereits in der 1. Zeile mit dem Einsetzen der Formel, sollte es aber erst ab Zeile 12 tun.
2. Bei der Formel habe ich einen Fehler gemacht. Denn es soll nicht in jeder Zeile die gleiche Formel eingesetzt werden sonder passend zu jeder Zeile.
Zeile 12 w�re die Formel: =F12/(Stundenverrechnungssatz!$E$4/60)/60 und J12-H12-G12
Zeile 13 w�re die Formel: =F13/(Stundenverrechnungssatz!$E$4/60)/60 und J13-H13-G13
Zeile 14 w�re die Formel: =F14/(Stundenverrechnungssatz!$E$4/60)/60 und J14-H14-G14
.
.
.
Kannst du das noch einflie�en lassen.
Vielen Dank.
Gru� David
Betrifft: Makro Wenn Zelle nicht leer dann Formel einf�gen2
von: Hajo_Zi
Hallo David,Option Explicit Sub Formel() Dim LoLetzte As Long Dim LoI As Long With Worksheets("Blatt 223") LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _ .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) For LoI = 12 To LoLetzte If .Cells(LoI, 1) <> "" Then .Cells(LoI, 5).Formula = "=F" & LoI & "/(Stundenverrechnungssatz!$E$4/60)/60" .Cells(LoI, 6).Formula = "=J" & LoI & "-H" & LoI & "-G" & LoI End If Next LoI End With End Sub Gru� Hajo
Betrifft: AW: Makro Wenn Zelle nicht leer dann Formel einf�gen2
von: Brockmann
Geschrieben am: 14.06.2013 12:03:47
Funktioniert prima.
Vielen Dank und sch�nes Wochenende!
Gru� David
Mithilfe der WENN-Funktion haben Sie in Excel die Möglichkeit, Aktionen ausführen zu lassen, wenn die ausgewählte Zelle beispielsweise leer ist.
So wenden Sie die WENN-Funktion in Excel an
Möchten Sie, dass Excel, wenn eine Zelle leer ist beispielsweise etwas addiert oder eine andere Aktion ausführt, können Sie das mithilfe der WENN-Funktion festlegen.
- Die Syntax der WENN-Funktion sieht folgendermaßen aus: „=WENN(Prüfung;[Dann_Wert];[Sonst_Wert])“
- Möchten Sie zum Beispiel, dass automatisch etwas addiert wird, wenn es sich bei der Auswahl um eine Zelle mit Inhalt handelt, könnte die Formel wie folgt aussehen: „WENN(B1=““;““;B1+20)“.
- Alternativ können Sie die Excel-Formel auch so anpassen, dass anstatt einer Addition eine Subtraktion ausgeführt wird oder dass ein Text ausgegeben wird.
Zellen mit ISTLEER-Funktion überprüfen
Mit der ISTLEER-Funktion überprüft Excel automatisch eine von Ihnen festgelegte Zellenauswahl auf ihren Inhalt.
- Die Syntax der ISTLEER-Funktion ist simpel. Geben Sie, um die Funktion zu nutzen, einfach „=ISTLEER(Zelle)“ in ein freies Feld ein.
- Ist kein Zelleninhalt vorhanden, gibt Excel standardmäßig das Ergebnis „WAHR“ aus.
- Findet Excel bei der Überprüfung einen Wert, wird als Ergebnis „FALSCH“ zurückgegeben.
Möchten Sie die Funktionen der ISTLEER-Funktion erweitern, können Sie diese beispielsweise mit einer WENN-Funktion kombinieren. Durch die Verschachtlung der beiden Funktionen sind Sie dann beispielsweise in der Lage, eine Ziffer als Ausgabeergebnisse zu erhalten anstatt WAHR oder FALSCH.
Um zu prüfen, ob ein Zelle nicht leer ist, benötigen wir die WENN Funktion, sowie zwei Anführungszeichen und Vergleichsoperatoren.
Formel
=WENN(A4<>"";"Ok";"Vorname eintragen")
Funktionsweise der Formel
Um zu prüfen, ob eine Zelle nicht leer ist, müssen wir schauen, ob diese ungleich zwei Anführungszeichen (<>"") ist. Die doppelten Anführungszeichen ("") kann man auch als Leerstring bzw. eine Zeichenkette mit der Länge 0 bezeichnen. Das Kleiner-als-Zeichen (<) und Größer-als-Zeichen (>) ergeben zusammen den Ungleich-Operator (<>). Man kann sich dies auch wie folgt merken:
Wenn etwas kleiner (<) oder größer (>) ist, kann es nicht gleich (=) sein.
Wenn etwas kleiner (<) oder größer (>) als leer ("") ist, dann ist es nicht leer.
Wenn in der Zelle also nichts drin ist, entspricht dies einem String der Länge 0 und somit ist der Ausdruck aus dem Beispiel in A4<>"" gleich WAHR und in A6<>"" gleich FLASCH.
Wenn sich in der Zelle Leerzeichen oder unsichtbare Zeichen wie z.B. ein Zeilenumbruch befinden, ist diese nicht mehr leer.