Teile einer Tabelle unter einem neuen Namen speich

Computer: Software & Programmierung Office Software
1

Hallo Experten,

ich hoffe ihr könnt mir helfen…
Ich will aus einer Tabelle Teile unter einem anderen Namen abspeichern.
Bis jetzt bin ich so vorgegangen:

  1. Kopieren des Bereiches
  2. Einfügen in eine neue Mappe
  3. „Speichern unter“
  4. letzte Zahl ändern

Habe versucht ein Makro aufzuzeichnen. Funktioniert leider nicht, da ich die Aufzeichnung nicht bei geöffnetem Dialogfeld „Speichern unter“ beenden kann.

Sub umbenennen()
’
’ umbenennen Makro
’ Makro am 25.08.2005 von Kammerl aufgezeichnet
’
’ Tastenkombination: Strg+s
’
ActiveCell.Select
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:= _
„C:\Dokumente und Einstellungen\Kammerl\Desktop\Filmauswertung\VP_9_IT_5_test.xls“ _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Selection.ClearContents
End Sub

Gibt es da eine Möglichkeit?
Vielen Dank für Eure Hilfe.
Uli

2

Hi Uli,
mir ist unklar was du mit „letzte Zahl ändern“ meinst und mit „da ich die Aufzeichnung nicht bei geöffnetem Dialogfeld „Speichern unter“ beenden kann.“.
Probiers mals so (ungetestet, wenns nicht klappt melde dich wieder), erst Bereich markieren, dann akro starten.

Sub umbenennen()
chdrive „C“ ’ jepp C nicht C:
chdir „C:\Dokumente und Einstellungen\Kammerl\Desktop\Filmauswertung“
worksheets.add ’ kann auch worksheet.add sein
selection.copy destination:=Worksheets(„Tabelle1“).[a1]
ActiveWorkbook.SaveAs Filename:= VP_9_IT_5_test.xls"
ActiveWorkbook.close savechanges:=true 'evtl savechanges weglasssen
Selection.ClearContents
End Sub

Ich will aus einer Tabelle Teile unter einem anderen Namen
abspeichern.
Bis jetzt bin ich so vorgegangen:

  1. Kopieren des Bereiches
  2. Einfügen in eine neue Mappe
  3. „Speichern unter“
  4. letzte Zahl ändern

Habe versucht ein Makro aufzuzeichnen. Funktioniert leider
nicht, da ich die Aufzeichnung nicht bei geöffnetem Dialogfeld
„Speichern unter“ beenden kann.

Sub umbenennen()
’
’ umbenennen Makro
’ Makro am 25.08.2005 von Kammerl aufgezeichnet
’
’ Tastenkombination: Strg+s
’
ActiveCell.Select
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:= _
„C:\Dokumente und
Einstellungen\Kammerl\Desktop\Filmauswertung\VP_9_IT_5_test.xls“
_
, FileFormat:=xlNormal, Password:="",
WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Selection.ClearContents
End Sub

Gibt es da eine Möglichkeit?
Vielen Dank für Eure Hilfe.
Uli

3

Hallo Reinhard,

mit „letzter Zahl“ meinte ich den Namen verändern. Ich muss eine Menge Tabellen so >behandeln

4

Hallo Uli,

du kannst den Dialog „Speichern unter“ auch im Makro aufrufen und dann die gewünschten Einstellungen machen. Ich habe den entsprechenden Code unten eingefügt. Evtl. kannst du dich ja auch mit dem Makro anfreunden, dass ich unten angefügt habe. Der Bedienkomfort wird dann noch etwas besser.

Hallo Experten,

ich hoffe ihr könnt mir helfen…
Ich will aus einer Tabelle Teile unter einem anderen Namen
abspeichern.
Bis jetzt bin ich so vorgegangen:

  1. Kopieren des Bereiches
  2. Einfügen in eine neue Mappe
  3. „Speichern unter“
  4. letzte Zahl ändern

Habe versucht ein Makro aufzuzeichnen. Funktioniert leider
nicht, da ich die Aufzeichnung nicht bei geöffnetem Dialogfeld
„Speichern unter“ beenden kann.

Sub umbenennen()
’
’ umbenennen Makro
’ Makro am 25.08.2005 von Kammerl aufgezeichnet
’
’ Tastenkombination: Strg+s

Die Tastenkombination Strg+s solltest du nicht verwenden, da sie in Windows-Anwendungen allgemen für das Speichern des aktiven Dokuments verwendet wird. Nimm eine andere Kombination z.B. Strg+Q

’
ActiveCell.Select
ActiveSheet.Paste

’ Ändere das Makro ab, so dass der Dialog `Speichern unter" aufgerufen wird mit folgender Zeile:

 If Application.Dialogs(xlDialogSaveAs).Show = False then Exit sub

Selection.ClearContents
End Sub

Gibt es da eine Möglichkeit?
Vielen Dank für Eure Hilfe.
Uli

Sub SelektionInNeueDatei()
Dim DateiAktuell As String, DateiNeu As String
'
' Kopiert markierte Zellen aus einer Tabelle in eine leere Arbeitsmappe und speichert diese.
' Makro1 Makro
' Makro am 26.08.05 von FCS erstellt
'
' Name Aktuelle Datei merken
 DateiAktuell = ActiveWorkbook.Name 'Name Aktuelle datei merken
' Leere Vorlagedatei mit Datei-Neu anlegen
 Workbooks.Add Template:="Arbeitsmappe" 'ggf. Anpassen, wenn andere Vorlage verwendet werden soll
' Dialog `Speichern unter" aufrufen
 If Application.Dialogs(xlDialogSaveAs).Show = False Then GoTo Abbruch
' Name Neu Datei merken
 DateiNeu = ActiveWorkbook.Name
 Range("A1").Select
' Selektierten Bereich in Aktueller Datei kopieren
 Windows(DateiAktuell).Activate
 Selection.Copy
' Selektierten Bereich in Neuer Datei einfügen
 Windows(DateiNeu).Activate
 ActiveSheet.Paste
 Application.CutCopyMode = False
 Range("A1").Select
 ActiveWorkbook.Save
Abbruch:
 ActiveWindow.Close
 ActiveCell.Select
End Sub

Gruß
Franz