@ramses: Workbook ohne VBA, Klassenmodul?
18.07.2008 12:38:00
Florian
Hi Ramses,
Danke für Deine Hilfe, eine Frage aber noch: hab noch nie mit Klassenmodulen gearbeitet, will mich aber grad da einlesen. Was bedeutet in diesem Zusammenhang die erste Zeile: soll der Code in einem Klassenmodul gespeichert werden?
ClassModule: Tabelle3
Private Sub CommandButton1_Click()
Worksheets("Tabelle1").Copy
ActiveSheet.OLEObjects.Delete
With ActiveSheet.UsedRange
.Value = .Value
End With
With ActiveSheet.Parent.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
On Error GoTo ERRORHANDLER
ActiveWorkbook.SaveAs Range("B1").Value & "\test.xls"
Exit Sub
ERRORHANDLER:
MsgBox "Die Datei konnte nicht gespeichert werden!"
End Sub
Anzeige