Formeln durch Makro fortschreiben

[D K]

Hallo an alle!

Ich brauche eure Hilfe: 
Ich habe eine Tabelle mit sehr vielen, zum Teil auch sehr langen Formeln, z.B. steht in Zelle B3:
=WENN(C3="fehlt";"prüfen";WENN(D3="fehlt";"prüfen";WENN(E3="fehlt";"prüfen";WENN(F3="fehlt";"prüfen";WENN(G3="fehlt";"prüfen";WENN(H3="fehlt";"prüfen";WENN(I3="fehlt";"prüfen";WENN(J3="fehlt";"prüfen";WENN(K3="fehlt";"prüfen";WENN(L3="fehlt";"prüfen";WENN(M3="fehlt";"prüfen";WENN(N3="fehlt";"prüfen";WENN(O3="fehlt";"prüfen";"nicht prüfen")))))))))))))
Gibt es eine Möglichkeit per Makro eine Zelle inkl. Formel zu nehmen und quasi mit Hilfe des Makros die Formel bis auf Höhe der letzten beschriebenen Zeile (aus Spalte A) "zu ziehen"? So dass die Formeln jeweils für die Zellen fortgeschrieben werden?
So wie man es auch per Hand machen könnte. Allerdings würde ich das gerne durch ein Makro durchführen lassen, da die Daten in Spalte A variieren können und automatisch befüllt werden. Die Formeln müsste man dann immer händisch anpassen und das ist sehr umständlich. 
Ich habe schon verschiedene Möglichkeiten getestet, aber nichts hat funktioniert. 



Kann mir jemand von euch helfen? Oder vielleicht weiß jemand wo ich die Lösung finden kann? Ich weiß nämlich nicht genau mit welchen Worten ich danach suchen soll. 

Vielen herzlichen Dank schon mal und viele Grüße

Kathi

[steve1da]

Hola,

zum Makro kann ich nichts sagen, allerdings kann man deine Formel auch so schreiben:

Code:

=WENN(ZÄHLENWENN(C3:O3;"fehlt");"prüfen";"nicht prüfen")

Gruß,
steve1da

[D K]

Hallo steve1da, 

löst zwar nicht mein eigentliches Problem, ist aber interessant zu wissen und macht alles etwas einfacher und verständlicher. Deswegen vielen Dank für die Antwort, werde es gleich einpflegen!

[RPP63]

Moin Kathi!
Wie wäre es, einfach einen Doppelklick auf das Ausfüllkästchen zu machen?

Fragt sich Ralf

[Kuwer]

Hallo Kathi,

Sub FormelKopieren()
 Range("A3", Cells(Rows.Count, 1).End(xlUp)).Offset(, 1).Formula = Range("B3").Formula
End Sub

Gruß Uwe

[D K]

Moin Kathi!
Wie wäre es, einfach einen Doppelklick auf das Ausfüllkästchen zu machen?

Fragt sich Ralf

Hallo Ralf,

Ja, das würde natürlich auch gehen. Allerdings muss das dann händisch durchgeführt werden und genau das will ich damit vermeiden. 


Trotzdem danke für die Antwort!

[D K]

Hallo Kathi,

Sub FormelKopieren()
 Range("A3", Cells(Rows.Count, 1).End(xlUp)).Offset(, 1).Formula = Range("B3").Formula
End Sub

Gruß Uwe

Hallo Uwe!
Es funktioniert, vielen Dank!! 
Hoffentlich klappt es auch noch wenn ich es für alle Spalten anwende, aber das wird sich zeigen :)
Beste Grüße von Kathi

[RPP63]

Ich bin ja durchaus ein Makrofan aber:
B1 markieren, Strg+Umschalt+rechts, Doppelklick, fertig.
Der Makrorekorder sagt dazu:

Code:

   Range("B1").Select
   Range(Selection, Selection.End(xlToRight)).Select
   Selection.AutoFill Destination:=Range("B1:AC32")

Sollte ein Tipp bzgl. der Autofill-Methode sein.
Dass Rekordercode überarbeitet werden sollte, ist klar.

Gruß Ralf