Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
Bestimmte Bereiche einer Tabelle abspeichern
#1
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
Zitieren
#2
Moin!
z.B. so:
Code:
Workbooks(wkbName).Sheets(wksName).Range("A1:H7").Copy Workbooks(wkbNeu).Sheets(1).Range("A1")
Workbooks(wkbName).Sheets(wksName).Range("A8:Z25000").Copy Workbooks(wkbNeu).Sheets(1).Range("A8")

Gruß Ralf
Zitieren
#3
Thumbs Up 
Hallo RPP63

Danke für die Antwort.
Das es so einfach ist habe ich nicht gedacht.

Super.
Zitieren


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste




Hinweis auf Angebot Excel-Inside - lang    Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden um dein Anliegen zu besprechen.
   Gerne erstellen wir auf dieser Basis ein Angebot.
   Sende deine Anfrage einfach
per E-Mail an anfrage@excel-inside.de


Powerd and supported by Excel-InsideSolutions