Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige