Arbeitsmappen aktivieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Reinhard
Wenn ichs mit dem was du mir gesagt hast probiere, bringt er mir einen Laufzeitfehler.
Ich schicke mal meinen Code mit damit man mal schauen kann was ich bisher gemacht habe.
Und dann hät ich gleich noch eine andere Frage. Und zwar möcht ich nicht die Werte aus der Datei "Bewertung Anlagevermögen" entnehmen (wie im Cod unten) sondern die Werte sollen aus der neu angelegten Datrei entnommen werden


Sub Speichern_BeiKlick()
'   Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
Dim WBName As String
WBName = Range("B5")
If WBName = "" Then
MsgBox "Sie haben keinen Dateinamen angeben!", , "Fehlermeldung"
Exit Sub
End If
ActiveSheet.Copy
Application.CutCopyMode = False
If Range("A1") = "Hilfsvariable zum Speichern" Then
ActiveSheet.Shapes.Range(Array("fiktives Baujahr", "Berechnen", _
"Berechnung anzeigen", "Speichern", "Löschen", _
"Verfahren auswählen", "Beenden")).Select
Selection.Delete
Else
ActiveSheet.Shapes.Range(Array("Berechnen", _
"Berechnung anzeigen", "Speichern", "Löschen", _
"Verfahren auswählen", "Beenden")).Select
Selection.Delete
End If
Range("B6").Select
'   Speichern unter
ActiveWorkbook.SaveAs WBName
Windows("Bewertungsübersicht.xls").Activate
Range("A65536").End(xlUp).Offset(1, 0).FormulaR1C1 = _
"='[Bewertung Anlagevermögen.xls]Herstellungskosten'!R1C2"
Range("B65536").End(xlUp).Offset(1, 0).FormulaR1C1 = _
"='[Bewertung Anlagevermögen.xls]Herstellungskosten'!R18C3"
'   Arbeitsblätter schließen
ActiveWorkbook.Close
Workbooks(WBName).Close 'Laufzeitfehler 9
' Index außerhalb des gültigen Bereichs
'   Bildschirmaktualisierung wieder einschalten
Application.ScreenUpdating = True
End Sub

Danke für eure Hilfe
Jessica

Sub Speichern_BeiKlick() ' Bildschirmaktualisierung ausschalten Application.ScreenUpdating = False Dim WBName As String, strHelp As String WBName = Range("B5") If WBName = "" Then MsgBox "Sie haben keinen Dateinamen angeben!", , "Fehlermeldung" Exit Sub End If ActiveSheet.Copy Application.CutCopyMode = False If Range("A1") = "Hilfsvariable zum Speichern" Then ActiveSheet.Shapes.Range(Array("fiktives Baujahr", "Berechnen", _ "Berechnung anzeigen", "Speichern", "Löschen", _ "Verfahren auswählen", "Beenden")).Select Selection.Delete Else ActiveSheet.Shapes.Range(Array("Berechnen", _ "Berechnung anzeigen", "Speichern", "Löschen", _ "Verfahren auswählen", "Beenden")).Select Selection.Delete End If Range("B6").Select ' Speichern unter ActiveWorkbook.SaveAs WBName strHelp = ActiveWorkbook.Name Windows("Bewertungsübersicht.xls").Activate Range("A65536").End(xlUp).Offset(1, 0).FormulaR1C1 = _ "='[Bewertung Anlagevermögen.xls]Herstellungskosten'!R1C2" Range("B65536").End(xlUp).Offset(1, 0).FormulaR1C1 = _ "='[Bewertung Anlagevermögen.xls]Herstellungskosten'!R18C3" ' Arbeitsblätter schließen ActiveWorkbook.Close Workbooks(strHelp).Close ' Bildschirmaktualisierung wieder einschalten Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread