Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1048to1052
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einzelnes Sheet als Datei speichern

Einzelnes Sheet als Datei speichern
16.02.2009 03:34:00
Thomas
Hallo,
ich möchte ein einzelnes ausgewähltes Tabellenblatt bzw. einen ausgewählten Bereich als neue Datei speichern. Wenn ich den Bereich auswähle mit Range("P1:AB32").select, kommt die Meldung dass in diesem Bereich keine Eingaben erfolgen dürfen, da ich mit einem anderen Makro einen Teil des Bereiches für Eingaben gesperrt habe. Wenn ich die Bereichsauswahl weglasse speichert das Makro ohne Fehlermeldung zu bringen die Datei nicht ab. Wer kann mir weiterhelfen ?
ActiveSheet.select
'Range("P1:AB32").select
Selection.copy
NUM = Range("AC16")
Workbook.SaveAs Filename:="H:\Txx\Txxs\Thomas\" & NUM & ".xls"
Gruß Thomas

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einzelnes Sheet als Datei speichern
16.02.2009 07:23:00
Josef
Hallo Thomas,
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub BlattZuDatei()
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs "H:\Txx\Txxs\Thomas\" & Range("AC16").Text & ".xls"
End Sub

Sub BereichZuDatei()
    Dim objWb As Workbook
    Dim rng As Range
    
    Set rng = ActiveSheet.Range("P1:AB32")
    
    Set objWb = Workbooks.Add(xlWBATWorksheet)
    
    rng.Copy objWb.Sheets(1).Range("A1")
    
    objWb.SaveAs "H:\Txx\Txxs\Thomas\" & objWb.Sheets(1).Range("AC16").Text & ".xls"
    
    Set rng = Nothing
    Set objWb = Nothing
End Sub
Gruß Sepp

Anzeige
AW: Einzelnes Sheet als Datei speichern
18.02.2009 11:15:00
Thomas
Hallo Sepp,
bin heute erst dazu gekommen mich kurz damit zu befassen. Die erste Variante klappt hervorragend. Bei der zweiten gibt es noch Probleme. Ich melde mich nochmal. Auf jedenfall erstmal vielen Dank für die Hilfe und einen schönen Tag noch.
Gruß Thomas
AW: Einzelnes Sheet als Datei speichern
18.02.2009 16:41:00
Josef
Hallo Thomas,
der zweite Code hat auch einen Fehler, so sollte es laufen.
Sub BereichZuDatei()
    Dim objWb As Workbook
    Dim rng As Range
    Dim strName As String
    
    Set rng = ActiveSheet.Range("P1:AB32")
    
    strName = ActiveSheet.Range("AC16").Text
    
    Set objWb = Workbooks.Add(xlWBATWorksheet)
    
    rng.Copy objWb.Sheets(1).Range("A1")
    
    objWb.SaveAs "H:\Txx\Txxs\Thomas\" & strName & ".xls"
    
    Set rng = Nothing
    Set objWb = Nothing
End Sub
Gruß Sepp

Anzeige

300 Forumthreads zu ähnlichen Themen

Bilddatei mit neuem Namen speichern
egonkernien

Hallo wer hilft bitte?
Guten Abend.
Ich möchte eine Dialogbox aufrufen, dort eine Bilddatei auswählen.
Ich möchte diese Bilddatei in ein Image1 auf einer Userform laden. Z.B. D:\Daten\Bilder\DSC0011.jpg
Dann diese Bilddatei umbenennen in D:\Daten\Test\082008_01.jpg, abspeichern...
28.08.2008 22:32:28
Thread-ID: 1005608
5 Beiträge
Anzeige
Bild aus Tabelle einem Image in einer Userform zuw
Polarfuchs

Hallo Ihr Checker,
in einer Arbeitsmappe habe ich ein Tabellenblatt mit Bildern. Wie kann ich ein bestimmtes Bild, die haben die Benennungen "Vorname_Nachname", einem Image einer UserForm zuweisen? Mit "LoadPicture" habe ich es schon versucht. Da bekomme ich die Fehlermeldung "Typen unvertr...
28.09.2008 14:40:18
Thread-ID: 1012915
7 Beiträge
Excel Tabelle als Leerz. getrennte txt speichern
Eddie

Mahlzeit,
ich will gerne meine Tabelle als Leerzeichen getrennte Datei speichern, nur leider macht das prn-Format nur 240 Zeichen in einer zeile .... gibt es einen anderen Weg, umd das layout zu behalten, und dann als leerzeichen getrennte Datei zu speichern ?
Vielleicht kann man auch b...
01.01.1970 00:00:00
Thread-ID: 1014969
34 Beiträge
Anzeige
Export von Excel Diagrammen als JPG
Excel

Hi zusammen!
Ich habe ein Prblem mit einem (bzw. mehreren) Excel-Diagrammen:
Ich habe eine Datebank mit einer Vielzahl von Datensätzen. Ich wähle in einem anderen Tabellenblatt per Dropdown-Feld je einen Datensatz aus und aus den per sverweis hierher gezogenen Werten aus der Datenbank w...
12.11.2008 11:27:00
Thread-ID: 1023758
6 Beiträge
Bereich von Tabelle1 als Grafik in Tabelle2 einfüg
Tabelle1

Hallo Leute,
ich komm irgendwie nicht weiter und benötige Hilfe.
es soll z.B. von Sheets("Tabelle1") Range("a1:b5")
als Grafik
in Sheets("Tabelle2")
Gruss
Atikar
19.11.2008 17:09:19
Thread-ID: 1026118
3 Beiträge
Bereich als Bild in bestimmter Größeexportieren
dirkraeder

Hallo Excelgemeinde!!
Ich habe ein Problem und benötige eure Hilfe!
Ich habe mir eine Excel Datei gebastelt. In dieser Datei habe ich ein Formular, dass sich durch Auswahl in einem Kombinationsfeld verändert.
Nun muss ich die Ansicht dieses Formulars als GIF-Bilddatei immer wieder m...
26.11.2008 11:08:00
Thread-ID: 1027962
3 Beiträge
als Bild kopieren
Manu

Hallo
die in Excel erstellten Grafiken übernehme ich als Bild in eine ppt. Bisher mache ich Screenshots, schneide unnötiges im Paint weg und speichere es als jpg ab um es als Grafik wieder in ppt zu importieren. Ich bin an Neuem interessiert und bin des jetztigen, m.E. sehr langen und aufwe...
16.12.2008 08:36:00
Thread-ID: 1033184
2 Beiträge
screenshot als JPG speichern
heike

Hallo experten,
ich suche eine VBA - Lösung um einen Screenshot zu erzeugen und diesen als JPG abzuspeichern.
Eine Lösung, um eine BMPdatei zu speicher habe ich bereits (sieh unten).
Danke Nepumuk.
Am besten währe genau dieser Ansatz, weil ich das Bild beschneiden kann.
Nur...
16.12.2008 20:47:09
Thread-ID: 1033426
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
4
6
33
4
5
2
2
1
1
2
2
3
2
3
1
5
8
8
1
2
5
3
1
1