Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Per Makro Zeilen einfügen bzw. löschen

Per Makro Zeilen einfügen bzw. löschen
27.06.2007 14:19:14
Salim

Hallo zusammen,
ich versuche eine etwas komplizierte Veranstaltung hier zu lösen und wende mich deshalb an euch Profis. Würde mich über einen Feedbacksehr freuen.
Ich möchte in 2 Zellen n12 und n13 zwei Datums eingeben, für das Projektbeginn und für die letzte erfolgenden Einzahlung aus diesem Projekt.
Eine erste Zeile für die Projektabrechnung steht mit dem Datum Projektbeginn bereits zur Verfügung (Zeile 20).
Jetzt möchte ich folgendes machen:
Über Makro ausrechnen wiviele Kalenderwochen zw. Projektbeginn und letzte Einzahlung bestehen. Diese Anzahl X - 1 an Zeilen unter der Zeile 21 einfügen mit den Formeln, die in Zeile 21 vorhanden und ausgeblendet sind.
Falls das Datum der letzten Einzahlung sich ändert, müssten die Anzahl der Kalenderwochen wieder angepasst werden, d.h. entweder Zeilen löschen falls letzte Einzahlung früher bzw. einfügen (mit Formeln aus Zeile 21) falls später.
Hat jemand eine Idee wie ein solches Makro aussehen könnte?
Ich habe die Datei auch angefügt um das Ganze etwas verständlicher zu machen.
Vielen Dank und Gruss
Salim
https://www.herber.de/bbs/user/43630.xls

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per Makro Zeilen einfügen bzw. löschen
27.06.2007 20:36:00
Daniel
Hi
hier als ersten Step mal die einfachste Übung: Anzahl Kalenderwochen berechnen und bei einem Leerblatt die Zeilen einfügen:
die Kalenderwochen bereche ich, indem ich die Datumsdifferenz durch 7 teile und abrunde, falls das nicht immer das gewünschte ergebnis bringt, kannst du die Formel ja noch variieren:

Sub Makro2()
Dim Anz As Integer
Anz = Int((Range("N13").Value - Range("n12").Value) / 7) - 1
Rows(21).Copy
Rows(22).Resize(Anz).Insert shift:=xlDown
Application.CutCopyMode = False
End Sub


Gruß, Daniel

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige