Ich habe eine Datei wo ich die Energiekosten errechnen kann. Diese Datei war bisher immer als alleinige Datei vorhanden. Nun habe ich diese Datei in einer andere Excelliste importiert um alles beisammen zu haben. Die Gesamtdatei heisst: "Alle Heizkosten-Stromkosten_Wasserverbrauch". Die Datei die ich in einem neuen Tabellenblatt mit dem Namen: "Berechnung" eingefügt habe hat eine VBA Datei um die Daten abzuspeichern. Nun kommt jedesmal eine Fehlermeldung......"Berechnung Strom-Gas.xls" wurde nicht gefunden.
Was muß ich eingeben, damit der Code wieder passend wird.
Wie geschrieben: Gesamtdatei lautet: "Alle Heizkosten-Stromkosten_Wasserverbrauch"
Das Tabellenblatt: "Berechnung"
Hier der Code:
Sub Protokoll()
Dim i As Long
Const NewConstSheet As String = "Berechnung"
Dim bfound As Boolean
Dim sMerk As String
Dim sMaxZeile As Long
Dim TB As Worksheet
Application.ScreenUpdating = False
'Prüfen ob Tabelle NewConstSheet schon angelegt ist
For i = 1 To ActiveWorkbook.Sheets.Count
If ActiveWorkbook.Sheets(i).Name = NewConstSheet Then
bfound = True
Exit For
End If
Next i
'wenn nicht dann anlegen
If bfound = False Then
sMerk = ActiveWorkbook.ActiveSheet.Name
ActiveWorkbook.Sheets.Add after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
ActiveWorkbook.ActiveSheet.Name = NewConstSheet
ActiveWorkbook.Sheets(sMerk).Activate
End If
Set TB = ActiveWorkbook.Sheets(NewConstSheet)
'nächste leere Zeile ermitteln
sMaxZeile = TB.Cells(TB.Rows.Count, 1).End(xlUp).Row + 1
'Daten in neue Tabelle übertragen
TB.Cells(sMaxZeile, 1) = ActiveWorkbook.ActiveSheet.Range("B8")
TB.Cells(sMaxZeile, 2) = ActiveWorkbook.ActiveSheet.Range("B7")
TB.Cells(sMaxZeile, 3) = ActiveWorkbook.ActiveSheet.Range("B12")
TB.Cells(sMaxZeile, 4) = ActiveWorkbook.ActiveSheet.Range("B13")
TB.Cells(sMaxZeile, 5) = ActiveWorkbook.ActiveSheet.Range("B14")
TB.Cells(sMaxZeile, 6) = ActiveWorkbook.ActiveSheet.Range("E7")
TB.Cells(sMaxZeile, 7) = ActiveWorkbook.ActiveSheet.Range("E12")
TB.Cells(sMaxZeile, 8) = ActiveWorkbook.ActiveSheet.Range("E13")
TB.Cells(sMaxZeile, 9) = ActiveWorkbook.ActiveSheet.Range("E14")
Application.ScreenUpdating = True
End Sub
Danke für Eure Hilfechris