ich bräuchte mal eine Hilfe, da ich nicht so gut in
VBA bin. ich habe eine Excel Datei, die z.B. folgenden
Namen hat 21.07.2008 A.xls.
Nun möchte ich diese kopieren, so dass die Formeln durch
Werte ersetzt werden, dies hab ich auch schon soweit,
Aber weiterhin möchte ich noch das A durch ein B austauschen.
Schaut euch mal den Code an, was muss ich ändern.
Danke im Voraus.
Sub MappeFestwerteSpeichern()
Dim wsTab As Worksheet
Dim lngZähler As Long
Dim lngArray() As Long
Dim strName As String
' Name der aktiven Mappe in Textvariable schreiben
strName = ActiveWorkbook.Name
' den linken Teil des Namens vor dem Punkt in Variable schreiben
strName = Left(strName, InStr(strName, ".") - 1)
' Matrix auf die Zahl der worhandenen Arbetisblätter der Mappe erweitern
ReDim lngArray(1 To Worksheets.Count)
' In einer Schleife die die Matrix mit dem Index der Arbeitsblätter füllen
For lngZähler = 1 To Worksheets.Count
lngArray(lngZähler) = lngZähler
Next lngZähler
' Die per Matrix ermittleten Arbeitsblätter in eine neue Tabelle kopieren
ActiveWorkbook.Worksheets(lngArray).Copy
' In der neuen Mappe in den Arbeitsblättern den genutzten Bereich mit dem Werten befüllten
For Each wsTab In ActiveWorkbook.Worksheets
With wsTab.UsedRange
.Value = .Value
End With
Next wsTab
' Zusammensetzen des Namens mit Angabe des Datums
strName = strName & "B"
' Speichern der aktiven Mappe im Verzeichnis der Arbeitsmappe unter dem Namen
ActiveWorkbook.SaveAs ActiveWorkbook.Path & strName
End Sub