Thema Datum  Von Nutzer Rating
Antwort
11.09.2019 08:46:18 Dalbenanstrich
NotSolved
11.09.2019 08:53:29 UweD
NotSolved
Rot Beispieldatei
 11.09.2019 09:13:22 Dalbenanstrich
NotSolved
11.09.2019 09:13:47 Gast58248
NotSolved
11.09.2019 09:14:05 Gast52985
Solved
11.09.2019 09:18:07 Dalbenanstrich
NotSolved
11.09.2019 15:51:08 UweD
NotSolved
11.09.2019 15:51:58 UweD
*****
Solved
12.09.2019 15:30:38 Dalbenanstrich
Solved

Ansicht des Beitrags:
Von:
Dalbenanstrich		 Datum:
11.09.2019 09:13:22		 Views:
422		 Rating:
     
Antwort:
  Ja
Thema:
Beispieldatei

Hallo zurück,

vielen Dank für die Antwort. Selbstverständlich kann ich eine Beispieldatei zur Verfügung stellen.

Die Daten sind also nach Ordnungsnummer gefiltert. Es sollen dann Tabellenblätter von Nr. 1 bis Nr. 4 entstehen. Diese wiederum sollen dann als neue Excel-Datei angelegt werden, allerdings nur die Spalten "Bezeichnung", "Latitude" und "Longitude". Um einen bestimmten Tabellenbereich in eine neue Datei zu überschreiben, verwende ich dies hier:

 

Sub speicher()

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("A1:I72").Copy Workbooks(wkbNeu).Sheets(1).Range("A1")

Dim pfad As String, dateiname As String
pfad = Workbooks(wkbName).Sheets(wksName).Range("A4")
dateiname= Workbooks(wkbName).Sheets(wksName).Range("I23")

Workbooks(wkbNeu).SaveAs Filename:= pfad & "\" & dateiname & ".xls"
ActiveWorkbook.Close

End Sub

 

 

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
11.09.2019 08:46:18 Dalbenanstrich
NotSolved
11.09.2019 08:53:29 UweD
NotSolved
Rot Beispieldatei
 11.09.2019 09:13:22 Dalbenanstrich
NotSolved
11.09.2019 09:13:47 Gast58248
NotSolved
11.09.2019 09:14:05 Gast52985
Solved
11.09.2019 09:18:07 Dalbenanstrich
NotSolved
11.09.2019 15:51:08 UweD
NotSolved
11.09.2019 15:51:58 UweD
*****
Solved
12.09.2019 15:30:38 Dalbenanstrich
Solved