Thema Datum  Von Nutzer Rating
Antwort
22.01.2025 22:53:58 Dagmar
NotSolved
22.01.2025 23:20:01 Gast01
NotSolved
22.01.2025 23:21:03 ralf_b
NotSolved
23.01.2025 09:44:43 Dagmar
NotSolved
23.01.2025 14:12:32 Gast01
NotSolved
23.01.2025 16:13:48 Dagmar
NotSolved
23.01.2025 20:12:55 ralf_b
NotSolved
23.01.2025 21:51:26 Dagmar
NotSolved
24.01.2025 07:00:46 ralf_b
NotSolved
24.01.2025 18:26:24 Dagmar
NotSolved
25.01.2025 13:03:48 ralf_b
NotSolved
26.01.2025 10:59:44 Dagmar
NotSolved
Rot Formeln in erste leere Zelle einfüben.
26.01.2025 13:08:47 ralf_b
NotSolved
27.01.2025 21:58:11 Dagmar
NotSolved
28.01.2025 00:56:38 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
ralf_b
Datum:
26.01.2025 13:08:47
Views:
51
Rating: Antwort:
  Ja
Thema:
Formeln in erste leere Zelle einfüben.

das du das nicht lesen kannst ist nicht klar. 
Weil, das ist ein Forum für Leute, die sich gegenseitig bei Problemen helfen. Wie es in allen fachspezifischen Foren so üblich ist.
Wenn du nur einen Dienstleister suchst, der deine Aufgaben erledigt, dann bist du hier falsch. Die Codes ,die du hier bekommst zeigen meist nur den direkten Weg. Alle Unwägbarkeiten, die beim Arbeiten mit Daten vorkommen können sind dort nicht abgeprüft und können im schlimmsten Falle echt übel werden wenn man sie im produktiven Umfeld einfach so einsetzt. Das ist der Preis bei kostenloser Hilfe. 

Du wolltest doch ursprünglich das die Formeln aus den Spalten in die neue Zeile übernommen werden. Das läßt sich aus Post vom 23.01.2025 09:44:43 ableiten. Genau das macht der Code. 

Ich erkläre dir den Code auch wenn ich schon Kommentare eingefügt hatte.   

das Worksheet_selection change makro reagiert immer wenn eine Zelle ausgewählt wird. Hier wird gepüft ob es sich um Spalte a oder b handelt und dann geprüft ob man sich in einer leeren Zelle befindet und oben drüber die Zelle gefüllt ist. Target ist eine Variable ,die die aktive Zelle repräsentiert. Sind die Prüfungen erfolgreich wird das Ersetzungsmakro aufgerufen. 

und hier passiert Folgendes.

 Split("G,H,I,K,M,O", ",")  hier werden die Spalten, für die Formeleinfügeoperation festgelegt.   

In der äusseren for-schleife erhält itm pro durchgang jeweils einen der Buchstaben aus dem Array mit den Spaltenbezeichnungen.

intersect()  gibt die schnittmenge aus dieser Spalte und dem im Blatt benutzten Bereich zurück. Damit wird dann weitergemacht. 

die innere for- schleife durchläuft die Zellen der Schnittmenge(eine Spalte) von unten nach oben um die nächste Formel in einer Zelle zu finden, die der neuen Zeile am nächsten ist. 

 in der gefundenen Formel werden dann die vorhandenen Zeilennummern durch die Zeilennummer der neuen Zeile(aktive Zelle) ersetzt. 

Cells(lrow, itm).FormulaLocal = stextformula 

Ich habe mich dazu entschieden die Formeln, die du angegeben hast nicht zu verwenden, sondern die Formeln aus der jeweiligen Spalte zu nutzen.
Damit mußt du die Formeln nicht im Code festschreiben und der Code ist flexibler. Es reicht quasi nur die Spalten in den Split-Befehl zu schreiben.

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.01.2025 22:53:58 Dagmar
NotSolved
22.01.2025 23:20:01 Gast01
NotSolved
22.01.2025 23:21:03 ralf_b
NotSolved
23.01.2025 09:44:43 Dagmar
NotSolved
23.01.2025 14:12:32 Gast01
NotSolved
23.01.2025 16:13:48 Dagmar
NotSolved
23.01.2025 20:12:55 ralf_b
NotSolved
23.01.2025 21:51:26 Dagmar
NotSolved
24.01.2025 07:00:46 ralf_b
NotSolved
24.01.2025 18:26:24 Dagmar
NotSolved
25.01.2025 13:03:48 ralf_b
NotSolved
26.01.2025 10:59:44 Dagmar
NotSolved
Rot Formeln in erste leere Zelle einfüben.
26.01.2025 13:08:47 ralf_b
NotSolved
27.01.2025 21:58:11 Dagmar
NotSolved
28.01.2025 00:56:38 ralf_b
NotSolved