Letzter Wert des Vormonats ermitteln .....
04.10.2007 22:10:07
proxima05
ich habe mehrere Tabellen, aus denen aus der Spalte E, respektive G der letzte Wert (Zahl) des Vormonats (Datum dazu in Spalte A) herausgelesen werden soll. Realisiert werden soll es über den nachfolgenden Code; dieser zieht mir allerdings nur den Wert des letzten Datum des Vormonats + 1 Tag.
An welcher Stelle muss ich da modifizieren?
Allerbesten Dank
Ralph
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Private Sub GetPrevValue_Click()
'Zieltabelle, ZielZeile, ZielSpalte, QuellSpalte, QuellMappe, Tabellenname(n)
GetPrevValuesM Workbooks("Tabelle.xls").Sheets("Summary"), 4, 5, 5, ActiveWorkbook, "ABC"
GetPrevValuesM Workbooks("Tabelle.xls").Sheets("Summary"), 5, 5, 7, ActiveWorkbook, "DEF", "GHI" _
End Sub
Public Sub GetPrevValuesM(Zieltabelle As Worksheet, ZielZeile As Long, ZielSpalte As Integer, _
QuellSpalte As Integer, Quellmappe As Workbook, ParamArray Tabellen() As Variant)
Dim intc As Integer
Dim lngZeileLetzterTagVormonat As Long
'### Parameter:
' ZielTabelle = Tabelle in welche die Werte geschrieben werden
' ZielZeile = Zeile in der die Eintragungen starten
' ZielSpalte = Spalte in welche geschrieben wird
' QuellSpalte = Spalte aus der gelesen wird
' QuellMappe = Mappe die ausgelesen werden soll
' Tabellen() = Name der Tabelle(n) aus welche(r)(n) gelesen werden soll
On Error Resume Next
For intc = 0 To UBound(Tabellen)
lngZeileLetzterTagVormonat = Quellmappe.Sheets(Tabellen(intc)).Cells(65536, 1).End(xlUp).Row
Do While Month(CDate(Quellmappe.Sheets(Tabellen(intc)).Cells(lngZeileLetzterTagVormonat - 1, 1)) _
)