Ich weiß, ich bin lästig, doch eine Frage habe ich noch heute. Ich teile mit einem Code die Liste "Buchungen" auf 4 weitere Listen auf (Wareneinkauf, Warenverkauf, EA und Fremdgutscheine).
Da ich dort dann keine Berechnungen mehr machen kann (warum weiß ich nicht, aber es geht nicht) habe ich den u.a. Code eingebaut um die Liste (so eine Art Screen) in einem Ordner zu speichern. Dort wollte ich gerade diese Liste weiterverarbeiten, doch das geht nun auch nicht, da er immer schreit: Zirkelbezug (noch nie gehört........). Ja, und da dachte ich, kann man:
1. Diese Kopie ohne Formeln und sonstigem kopieren (also nur die nackten Zahlen)
2. Kann man statt der vorgegebenen Kopie (zusammengesetzt aus Q1 (Listenname) R1 (Datum)
eine Abfrage durchführen, um selbst einen Namen für diese Liste zu benennen.
Danke für Eure Mühe
chris58
Public Sub Tabelle_speichern()
Dim WBNew As Workbook
Dim strPfad As String
strPfad = "C:\Dokumente und Einstellungen\glch\Desktop\Buchungen Vorlagen\Monatslisten\"
Worksheets("Warenverkauf").Copy
Set WBNew = ActiveWorkbook
With WBNew
.SaveAs strPfad & .Worksheets(1).Range("Q1") & " " & Worksheets(1).Range("R1") & ".xls"
.Close
End With
MsgBox "Datei wurde gespeichert.", 64
End Sub