untenstehendes
Sub und
Function bewirken, das das Blatt "Data" von der Datei "Original" in die Datei "Versandt" kopiert wird, der Blattname geändert wird und alle Formeln in feste Werte umgewandelt werden. Dies funktioniert auch prima!
Jetzt mein anliegen:
In der Funktion wird mit:
Dim j As String
j = Sheets("Data").Range("U6").Value
möchte ich die Zeitenkette, die in der Zelle U6 steht auslesen und dann
an:
Sheets("Data").Copy Before:=Workbooks("Versandt").Sheets(1)
übergeben, sodaß "Workbooks("Versandt")" nicht statisch immer auf die Datei "Versandt" verweist sonder dynamisch auf j, mit
Workbooks("j")
Workbooks(j)
Workbooks j
bekomme ich nur Fehlermeldungen:
Wer kann mir weiterhelfen?
Danke im vorraus
Grüße Falk
Makro:
Sub BerichtSpeichern()
Dim i As Integer
Dim m As Integer
m = Sheets("Parameter").Cells(12, 2).Value
For i = m To 1 Step -1
Sheets("Parameter").Cells(10, 2).Value = i
Calculate
In_Datei_Speichern
Next
End Sub
Function In_Datei_Speichern()
Sheets("Data").Select
Sheets("Data").Copy Before:=Workbooks("Versandt").Sheets(1)
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Name = Range("C1").Value
Windows("Orginal").Activate
End Function