Office: Zeile Duplizieren und Tabelle erweitern

Hallo Forum,

dies ist mein erster Post hier. Ich habe eine Idee bezüglich einer Liste die Wochenendaktivitäten speichert. Die Tage Samstag und Sonntag werden rot markiert, durch Ausblendung wird immer nur der jeweilige Monat angezeigt, die Formeln funktionieren und die Daten passen für alle Monate/Jahre.

Nun wollte ich per VBA eine Funktion erstellen, die eine Zeile "dupliziert" und unter die zu duplizierende einfügt.

Beispiel:
Sonntags waren wir essen und danach noch in der Stadt (pro zeile soll nur eine Aktivität sein)
Ergo möchte ich für Sonntag zwei Einträge haben - dies habe ich mit folgendem Code gelöst:

Code:

Das funktioniert soweit auch wie gewollt, allerdings gibt es zwei Probleme.

1. Wie erweitere ich die Tabelle beim ausführen des Codes? (Formate beibehalten) Aktuell wird dann einfach pro Duplikat ein Tag vom Monat entfernt, da ich halt einfach überschreibe..
2. Wenn ich die duplizierte Zeile dann lösche, funktionieren die Bezüge nicht mehr

Ich müsste praktisch "nur" die ganze Tabelle an dem jeweiligen Punkt um einen Nach unten schieben, und beim löschen wieder zurücksetzen - am liebsten mit einem Button, so wie es im Moment so "naja" klappt.

Mit freundlichen Grüßen,

Fuurious

P.S. : Bin noch nicht lange am VBA programmieren, habe vorher nur in Java programmiert

:)

 

Jemand eine Idee? *biggrin.gif*
Ich finde irgendwie keine Lösung..

 

Hallo Fuurious,

Grüße von Dir (von Hand) sind mir lieber als vom Automaten. Bekommst ja auch eine persönlich für Dich erstellte Antwort:

Formel für A3 (und runterkopieren):
Code:

(Den Sinn Deiner Formel habe ich nicht verstanden. Warum willst Du eine 0 zurückgegeben haben sobald das Jahr wechselt? Kannst Du aber noch obigen Muster wieder ergänzen)

Code:
Code:

Grüße
EarlFred

 

Hallo EarlFred,

ich bedanke mich für deine Antwort. Das mit INDEX() funktioniert super - das war ne geniale Idee.

Eine kleine Frage noch: Alles funktioniert soweit, doch wenn ich nun einen duplizierten Tag wieder lösche funktionieren die Formeln ja nicht mehr (wird deutlich, wenn man z.B. dann mal den Monat ändert.) -> Liegt daran, dass ja nur die Werte kopiert werde. Ich habe es mit verschiedenen PasteSpecial werten probiert, wenn ich jedoch die Formel kopiere dann funktioniert es auch nicht da dann ja das "Muster" normal weiterläuft *biggrin.gif*
Kann man das auch noch irgendwie fixxen?

Zu meinen Grüßen: Bin noch neu hier, hab es nur bei einigen in der Signatur gesehen - da dachte ich das sowas in der Art hier "gern" gesehen wird.
Habs aber wieder geändert *Smilie

Ich bedanke mich, und sende ganz persönliche und liebe Grüße an dich *Smilie

Fuurious

 

Hallo Fuurious,

es ist eine persönliche Vorliebe. Vorzuschreiben, was andere gerne sehen wollen, liegt mir fern. Im Gengensatz zum Fehlen habe ich es aber noch nicht erlebt, dass sich jemand über das Vorhandensein persönlicher Grüße beschwert (weder im Forum, noch im Bäckerladen, noch sonstwo). *wink.gif*

Grüße
EarlFred

 

Hat zufällig noch jemand eine Idee um das in #4 beschriebene Problem zu lösen?

Grüße

Fuurious

 

Hallo Fuurious,

klar. Lösche nicht die Zeile mit der Formel, sondern die mit den Fixwerten - ich dachte, soweit wäre das selbsterklärend.

Aber warum machst Du das überhaupt mit dem Formelgedöns? Makros hast Du ohnehin in der Mappe, dann kannst Du die Daten auch gleich per VBA fix eintragen.

Grüße
EarlFred