einer Variable Wert zuweisen (.Value)
26.07.2003 18:45:32
Matthias C.
kann mir bei diesem Makro jemand helfen? Ich möchte aus der aktuellen Mappe die Spalte A bis zur Zelle mit dem Eintrag "new" in die neu geöffnete Mappe kopieren und komme an dieser Stelle einfach nicht weiter. Wie kann ich der Variable "wert" den Wert "new" zuweisen, damit auch immer nur bis zu dieser Zeile kopiert wird?
Sub speichern()
Dim sFile As String, sPath As String, wert As String
Dim rngSource As Range, rngTarget As Range
sPath = "C:\Excel" & "\"
sFile = Worksheets(1).Range("d2").Value
sFile = Format(CDate(sFile), "dd.mm.yyyy") & ".xls"
wert = ???
ActiveWorkbook.SaveAs sPath & sFile
Workbooks.Add Template:="C:\Excel\Schwarza.xlt"
Worksheets(1).Range("B3") = sFile
Set rngSource = Workbooks(sFile).Worksheets(1).Range("A22:wert")
Set rngTarget = ActiveWorkbook.Worksheets(1).Range("A22:wert")
rngSource.Copy rngTarget
End Sub
Vielen Dank für eure Mühe, würde mich über eine Lösung sehr freuen.
MfG Matthias