Office: (Office 365) Zellen mit Formel füllen wenn ...

Hallo und wieder ich :-)
Zu meinem Problemchen fand ich allerlei, nur nicht das was ich brauche:

Ich möchte in jeder Zeile einer Tabelle per Makro 5 zusätzliche Zellen mit einer Formel einfügen.
Und zwar in alle Zeilen die schon tatsächlich Inhalte haben.
Da gibt es doch bestimmt einen Trick?

Danke schon mal :-)

 

Range("A1:A15").Formula = "=Row(1:1)"

 

Danke Hajo, aber ich möchte, wie erwähnt, nur in Zeilen die schon in den Zellen davor einen Inhalt haben, die Formel einfügen.
Das Problem ist das ich unterschiedlich große Tabellen bearbeiten möchte.

 

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

Gruß Hajo

 

Danke sehr Hajo, hier die anonymisierte Beispieldatel.
Die Formeln (hab ich von dir) sollen nur bis Zeile 117 eingefügt werden.
In 118 nicht mehr.
Die Größe der Tabelle ist variabel, es kann 117 die letzte, oder auch 398 die letzte Zeile sein.
Bis zur Zeile 117 ist alles wie es sein soll.

 

Hallo

Warum in meinen Augen so ein blödsinn mit VBA??
Nutze Intelligente Tabellen.
Oder noch besser nutze PQ dann braucht man keine Registerformeln mehr.

 

Diese Tabellen werden von einer TEststation erstellt auf die ich keinen großen Einfluß habe.
Zudem ist es ja auch nicht verkehrt ein wenig mit Excel zu probieren

 

Ja, du kannst da mit LET arbeiten :)
=LET(wer;BEREICH.VERSCHIEBEN(A3:I3;0;0;ANZAHL2(A:A));WECHSELN(LINKS(TEXT(wer;"#.##0");3);".";",")*1)
Mit VBA suchst du einfach nach "Letzte Zeile bestimmen", da gibts hunderte Seiten, das merk ich mir auch nie, weil googlen schneller und zuverlässiger ist.
Die Let-Funktion brauchst du halt nur einmal einfügen.

 

Danke czil, das war was ich suchte :-)
Leider bin ich erst heute wieder dazu gekommen