Letzte Zeile bei jedem Duchlauf neu berechnen
31.08.2006 17:21:51
Anton
ich habe ein kleines Makro in eine Schleife gesteckt.
Das makro soll seine Ergebnisse immer am Ende anfügen.
Bislang sucht er sich jedes mal die selbe "letzte Zelle" aus.
Wer von Euch kann mir da weiterhelfen?
Dank und Grüße in Eure Richtung.
Servus,
Anton
Hier mein Code:
Sub DualMakro()
Dim Eingabe1 As String
Dim Eingabe2 As String
Dim Datum As Date
'Auswertungsdatum auswählen
Eingabe1 = InputBox("Bitte geben Sie das Anfangs-Datum" & Chr(10) & "der Auswertung ein:" & Chr(10) & "(TT.MM.JJJJ)", "Datum 1:")
Eingabe2 = InputBox("Bitte geben Sie das End-Datum" & Chr(10) & "der Auswertung ein:" & Chr(10) & "(TT.MM.JJJJ)", "Datum 2:")
'Eingabeprüfung
If Eingabe1 = "" Or Eingabe2 = "" Then Exit
Sub 'abbrechen wurde gewählt
If CDate(Eingabe1) > CDate(Eingabe2) Then
Eingabe2 = Eingabe1
MsgBox ("Ohne eine korrekte 2. Eingabe" & Chr(10) & "wird nur der " & Eingabe1 & Chr(10) & "ausgewertet.")
Call Makro2(CDate(Eingabe1))
Else
For Datum = CDate(Eingabe1) To CDate(Eingabe2)
Call Makro2(Datum)
Next Datum
End If
End Sub
Sub Makro2(Datum As Date)
'Dim Datum As Date (wird schon verwendet)
Dim EingabeErsatz As String
EingabeErsatz = Format(Datum, "dd.mm.yyyy")
MsgBox ("Eingabe:" & EingabeErsatz)
Workbooks("Makro und ZielDaten.xls").Sheets("Ziel").Activate
Range("K2").Value = Datum
'Letzte Zeile suchen
Dim ZL As Long
ZL = ActiveSheet.UsedRange.Rows.Count
'MsgBox ("'" & ZL & "'")
Cells(ZL, 1).Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R2C11,'[Daten-Muster.xls]Tabelle1'!C1:C4,2,FALSE)"
End Sub