04.12.2020, 19:50
Hallo Zusammen
Meine Frage ist wie folgt:
Ich speichere einen Bereich einer XLSM-Tabelle ohne Makros hiermit ab.
Sub Speichern_mit_DatumV1()
Dim wkbName As String, wkbNeu As String, wksName As String
wkbName = ThisWorkbook.Name
wksName = ActiveSheet.Name
Workbooks.Add
wkbNeu = ActiveWorkbook.Name
Workbooks(wkbName).Sheets(wksName).Range("A7:Z25000").Copy Workbooks(wkbNeu).Sheets(1).Range("A1")
Dim pfad As String, dateiname As String
pfad = "C:\Users\xxxxxx\Documents\Kunden\yyyyyy\HeatMap-Report\"
dateiname = "Auswertung Heatmap vom " & Range("ad5") & ".xlsx"
strDname = pfad & dateiname
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
ActiveWorkbook.SaveAs strDname, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
End Sub
Funktioniert einwandfrei, aber ich müsste noch einen Bereich von A1 bis H7 mit abspeichern. Hier stehen noch benötigte Infos.
Wie kann ich dass hinkriegen? Im Bereich J1 bis V7 stehen Infos die nicht weitergegeben werden dürfen.
Danke für eure Ideen.
Gruß
hziemer
Meine Frage ist wie folgt:
Ich speichere einen Bereich einer XLSM-Tabelle ohne Makros hiermit ab.
Sub Speichern_mit_DatumV1()
Dim wkbName As String, wkbNeu As String, wksName As String
wkbName = ThisWorkbook.Name
wksName = ActiveSheet.Name
Workbooks.Add
wkbNeu = ActiveWorkbook.Name
Workbooks(wkbName).Sheets(wksName).Range("A7:Z25000").Copy Workbooks(wkbNeu).Sheets(1).Range("A1")
Dim pfad As String, dateiname As String
pfad = "C:\Users\xxxxxx\Documents\Kunden\yyyyyy\HeatMap-Report\"
dateiname = "Auswertung Heatmap vom " & Range("ad5") & ".xlsx"
strDname = pfad & dateiname
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
ActiveWorkbook.SaveAs strDname, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
End Sub
Funktioniert einwandfrei, aber ich müsste noch einen Bereich von A1 bis H7 mit abspeichern. Hier stehen noch benötigte Infos.
Wie kann ich dass hinkriegen? Im Bereich J1 bis V7 stehen Infos die nicht weitergegeben werden dürfen.
Danke für eure Ideen.
Gruß
hziemer