Werte kopieren egal ob von XLS oder XLSX
23.06.2024 19:45:35
Heinz H
Ich downloade einmal im Monat die Daten von meiner PV-Anlage von derer App "Alpha ESS"
Bis jetzt hat es mit dem unteren Code super funktioniert.
Die Daten wurden immer als XLSX runtergeladen, und die Werte in meine Arbeitsmappe eingefügt
Jetzt plötzlich kommt die Datei als XLS
Auch wenn ich neu in XLSX speichere kommt immer die Msg Box "Blatt zum kopieren vom Juni nicht vorhanden"
Wie würde der Code umgeschrieben gehören, damit es egal ist ob Format XLS oder XLSX ?
Danke
Gruß, Heinz
Sub Juni_einfuegen()
Dim mySheet As Worksheet
Dim zielsheet As Worksheet
'Dim myWBa As Workbook
Dim myWB As Workbook
Application.DisplayAlerts = False
On Error Resume Next
'Set myWB = Workbooks("Verlaufsdaten")
Set myWB = Workbooks("Verlaufsdaten.xlsx")
Set mySheet = myWB.Sheets("sheet1")
Set zielsheet = ThisWorkbook.Sheets("Jun")
On Error GoTo 0
zielsheet.Unprotect
If mySheet Is Nothing Then
MsgBox "Blatt zum kopieren vom Juni nicht vorhanden"
Exit Sub
End If
With mySheet
.Range("B2:B32").Copy 'PV-Erzeugung
zielsheet.Range("B3:B33").PasteSpecial Paste:=xlValues
.Range("C2:C32").Copy 'Einspeisung
zielsheet.Range("D3:D33").PasteSpecial Paste:=xlValues
.Range("D2:D32").Copy 'Verbraucherlast
zielsheet.Range("P3:P33").PasteSpecial Paste:=xlValues
.Range("E2:E32").Copy 'Netzbezug
zielsheet.Range("J3:J33").PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False 'Zwischenspeicher löschen
myWB.Close 0
zielsheet.Protect
zielsheet.Activate
zielsheet.Range("AA2").Activate
Application.DisplayAlerts = True
End Sub
Anzeige