Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1548to1552
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1548to1552
1548to1552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

GerdL-weitere Frage zu VBA

GerdL-weitere Frage zu VBA
26.03.2017 21:46:11
Pet
Hallo Gerd,
ich muss Dich nochmals um Hilfe bitten.
Habe jetzt versucht auch die Summe vom 11. bis zum Ende des Monats einzugügen.
Doch ich kann Deinen VBA-Code nicht dahingehend abändern.
Auch müssten die Beiden Summenzeilen Fett formatiert sein.
Bsp.-Datei beigefügt!
https://www.herber.de/bbs/user/112442.xlsm
Ich hoffe, dass Du mir netterweise nochmal helfen kannst.
Vielen, vielen Dank
Pet

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: GerdL-weitere Frage zu VBA
26.03.2017 22:44:27
Gerd
Hallo Pet! 
Sub teste2()
Dim HL As Long, DR As Long, LZ As Long
Const DTE As Date = #2/10/2017#    'Monat/Tag/Jahr
Const DTE2 As Date = #2/28/2017#
'Ueberschriftenzeile ermitteln
HL = Columns(1).Find("Datum", lookat:=xlWhole, LookIn:=xlValues).Row
'letzte Zeile für erste Teilsumme ermitteln
DR = Application.Match(CLng(DTE), Columns(1), 1)
With Rows(DR + 1)
.Insert
.Cells(0, 1) = "Summe bis " & CStr(DTE)
.Cells(0, 3).FormulaR1C1 = "=SUM(R[-1]C:R[" & -DR + HL & "]C)"
.Cells(0, 1).Resize(1, 3).Font.Bold = True
End With
'letzte Zeile für zweite Teilsumme ermitteln
LZ = Cells(Rows.Count, 1).End(xlUp).Row
Cells(LZ + 1, 1) = "Summe bis " & CStr(DTE2)
Cells(LZ + 1, 3).FormulaR1C1 = "=SUM(R[-1]C:R[" & -LZ + DR + 1 & "]C)"
Cells(LZ + 1, 1).Resize(1, 3).Font.Bold = True
For DR = Cells(Rows.Count, 1).End(xlUp).Row To HL Step -1
If Cells(DR, 1) = "" Then Rows(DR).Delete
Next
End Sub

Gruß Gerd
Anzeige
AW: GerdL-weitere Frage zu VBA
27.03.2017 00:49:47
Pet
Lieber Gerd!
Tausend Dank!
Es klappt einfach nur PERFEKT!
Du bist ein Genie ;-)
Gruß aus dem Saarland
Pet

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige