Thema Datum  Von Nutzer Rating
Antwort
29.04.2020 21:38:22 Gast29378
NotSolved
Blau Bereich in ein neues Dokument exportieren
30.04.2020 09:59:35 Torsten
Solved
01.05.2020 11:33:20 Gast29378
NotSolved
01.05.2020 12:06:03 Gast29378
NotSolved
01.05.2020 19:04:51 Torsten
Solved

Ansicht des Beitrags:
Von:
Torsten
Datum:
30.04.2020 09:59:35
Views:
713
Rating: Antwort:
 Nein
Thema:
Bereich in ein neues Dokument exportieren

Hallo,

kann man so loesen:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Option Explicit
 
Sub speichern()
 
Dim wkbName As String, wkbNeu As String, wksName As String
Dim oFD As FileDialog
 
wkbName = ThisWorkbook.Name
wksName = ActiveSheet.Name
 
Workbooks.Add
wkbNeu = ActiveWorkbook.Name
 
Workbooks(wkbName).Sheets(wksName).Range("A1:D6").Copy              'hier deinen zu speichernden Bereich anpassen
Workbooks(wkbNeu).Sheets(1).Range("A1").PasteSpecial xlPasteAll     'hier anpassen, wohin gespeichert wird ("A1")
Application.CutCopyMode = False
 
Set oFD = Application.FileDialog(msoFileDialogSaveAs)
oFD.Title = "Bitte Speicherort und Dateiname auswählen"
oFD.ButtonName = "Speichern"
 
oFD.InitialFileName = "C:\Users\"       'hier kann man einen Zielpfad voreinstellen, immer mit \ abschliessen
oFD.FilterIndex = 1                     'Voreinstellung zum Speichern als .xlsx
If oFD.Show <> 0 Then
    Workbooks(wkbNeu).SaveAs oFD.SelectedItems(1)
Else
    Exit Sub
End If
 
End Sub

Gruss Torsten


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.04.2020 21:38:22 Gast29378
NotSolved
Blau Bereich in ein neues Dokument exportieren
30.04.2020 09:59:35 Torsten
Solved
01.05.2020 11:33:20 Gast29378
NotSolved
01.05.2020 12:06:03 Gast29378
NotSolved
01.05.2020 19:04:51 Torsten
Solved