Nur bis Zelle mit festg. Inhalt in neue Mappe kopi
09.08.2003 23:16:28
Matthias C.
ich sitze an einem VBA-Code schon die ganze letzte Woche, kann mir letztlich doch jemand helfen?
Der Betreff war wegen Zeichenlimit gekürzt, also: Nur bis zur Zelle mit festgelegten Inhalt ("xyz") in neue Mappe (Vorlage, die schon aktiv ist) kopieren.
Mein Problem ist: Ich möchte vermeiden, daß ich einen festgelegten Zellenbereich z.B.("A17:IV2000") in die neue Arbeitsmappe kopieren muß, nur um sicherzustellen, daß ein ausreichend großer Bereich für das kopieren und berechnen von der letzten in die altuelle Mappe zur Verfügung steht. Der Grund dafür ist, daß der Rollbalken für Vertikal bei dieser vorgegebenen Größenordnung winzig klein wird und nur noch mit einer Lupe greifbar ist. Ich kann aber auch nicht wissen, wieviele Zeilen im laufe der täglichen Benutzung dieser immer wieder zu aktualisierenden Vorlage hinzukommen können.
Ein Beispiel: In Spalte A steht ab Zeile 17 Die Kundenliste. Rechts daneben sind farbig formatierte Zeilen die auch mitkopiert werden müssen, aber sie sollten nur soweit kopiert werden, wie es wirklich nötig ist.
Leider reichen meine Programmierkenntnisse zu dieser Problemlösung nicht aus.
Ich hinterlege meinen Entwurf bis morgen mal hier: www.baumgarten5.de/fragemappe.zip
Sub speichern()
Dim sFile As String, sPath As String
Dim rngSource As Range, rngTarget As Range
sPath = "C:\Molkerei" & "\"
sFile = Worksheets(1).Range("d2").Value
sFile = Format(CDate(sFile), "dd.mm.yyyy") & ".xls"
ActiveWorkbook.SaveAs sPath & sFile
Workbooks.Add Template:="C:\Molkerei\Molkerei_Schwarza.xlt"
Worksheets(1).Range("B3") = sFile
Set rngSource = Workbooks(sFile).Worksheets(1).Range("A17:IV2000")
Set rngTarget = ActiveWorkbook.Worksheets(1).Range("A17:IV2000")
rngSource.Copy rngTarget
ActiveWorkbook.Worksheets(1).Range("B22:IV2000").ClearContents
End Sub
Ich bin für jede Hilfe Dankbar!
MfG Matthias