Hallo,
zum Speichern (3 Blätter) nutze ich folgenden Code:
Sub dateiname()
Ort = Sheets(„Auswahliste“).Range(„A35“)
If Len(Ort) = 0 Then
MsgBox („Ungültiger Dateiname: Die angegebene Zelle darf nicht leer sein!“)
Else
Application.Dialogs(xlDialogSaveAs).Show (Ort & „.xlsm“)
End If
End Sub
Kann mir jemand den Code so umstellen, das ich zBsp. Blatt 1 (Range a40) oder 2 (Range a45) einzeln speichern kann, sowie Blatt 1+2 gemeinsam?
Gruß
zum Speichern (3 Blätter) nutze ich folgenden Code:
Sub dateiname()
Ort = Sheets(„Auswahliste“).Range(„A35“)
If Len(Ort) = 0 Then
MsgBox („Ungültiger Dateiname: Die angegebene Zelle darf nicht
leer sein!“)
Else
Application.Dialogs(xlDialogSaveAs).Show (Ort & „.xlsm“)
End If
End SubKann mir jemand den Code so umstellen, das ich zBsp. Blatt 1
(Range a40) oder 2 (Range a45) einzeln speichern kann, sowie
Blatt 1+2 gemeinsam?
Hallo Heimat,
wo bleibt dein **/t/speichern-unter–6/6138388/2
Gruß
Reinhard**
Hallo Reinhard,
entschuldige das ich nicht auf deine Lösung reagiert habe, ist mir leider irgendwie untergegangen.
Deine Lösung funktioniert im Prinzip gut. Nur wollte ich bei Auswahl von Blatt 2 einen anderen Namen (aus anderer Zelle) einsetzen und in der Schnellzugriffsleiste für jedes Blatt nur einen Button zum Dücken haben.
Findest Du eine Lösung?
Viele Grüße heimat
Deine Lösung funktioniert im Prinzip gut. Nur wollte ich bei
Auswahl von Blatt 2 einen anderen Namen (aus anderer Zelle)
einsetzen und in der Schnellzugriffsleiste für jedes Blatt nur
einen Button zum Dücken haben.
Hallo Heimat,
was genau verstehst du nter der „Schnellzugriffsleiste“?
Um welche Excel-Version geht es?
Ist damit die Office-Shortcutleiste oder wie die heißt gemeint?
„Kann mir jemand den Code so umstellen, das ich zBsp. Blatt 1 (Range
a40) oder 2 (Range a45) einzeln speichern kann, sowie Blatt 1+2
gemeinsam?“
Wie soll das mit einem Button pro Blatt gehen?
A40 und A45, auf welchem Blatt/Blättern befinden sie sich?
Bedeutet Blatt 1+2 gemeinsam, alle beide in eine neue Mappe als 2 Blätter, oder beide in verschiedene mappen als Einzelblätter.
Gruß
Reinhard
Hallo Reinhard,
das ist ganz oben die Leiste wo die Button angeordnet sind (Speichern Drucken,zurück,vorwärts…).Ich benutze Excel 2010. Da heißt das zumindest so.
Tschüß
heimat
Hallo Reinhard,
Mein Problem vielleicht nochmal genauer beschrieben:
Blatt 1 heißt (MAGvorInb)
Blatt 2 heißt (MAGFest)
Blatt 3 heißt (Auswahlliste)
Jetzt möchte ich eine Kopie von Blatt 1 (Dateiname von Auswahlliste, Zelle A40 übernehmen)übernehmen, Blatt 2 (Dateiname von Auswahlliste, Zelle A45 übernehmen), Blatt 1+2 (Dateiname von Auswahlliste, Zelle A35 übernehmen). Perfekt wäre das ganze wenn sich die erstellten Kopien selbst schließen.Das ganze möchte ich per erstelleten Button aus der Symbolleiste starten.
Gruß Heimat
das ist ganz oben die Leiste wo die Button angeordnet sind
(Speichern Drucken,zurück,vorwärts…).Ich benutze Excel
2010. Da heißt das zumindest so.
Hallo Heimat,
aha, ich hab kein XL2010, wie man da Buttons in der Leiste hinzufügt weiß ich nicht, aber wenn du das weißt isses ja okay, zur Not weiß sowas wie immer Thomas 
So, da ist also ein Button. Dem kann man dann ein Makro zuweisen, was dann das grad aktive Blatt einzeln abspeichert.
Den Code dazu kann ich basteln.
Aber wie soll der Ablauf sein bei Blatt 1+2 gemeinsam?
Beantworte dazu auch meine Fragen im anderen Beitrag.
Gruß
Reinhard
Jetzt möchte ich eine Kopie von Blatt 1 (Dateiname von
Auswahlliste, Zelle A40 übernehmen)übernehmen, Blatt 2
(Dateiname von Auswahlliste, Zelle A45 übernehmen), Blatt 1+2
(Dateiname von Auswahlliste, Zelle A35 übernehmen). Perfekt
wäre das ganze wenn sich die erstellten Kopien selbst
schließen.Das ganze möchte ich per erstelleten Button aus der
Symbolleiste starten.
Hallo Heimat,
weise dem Button das Makro „Auswahl“ zu. Erstelle über Einfügen—Userform im Editor eine UF.
Bestücke sie mit 3 Optionsfeldern und 2 Befehlsschaltflächen.
in ein Modul, z.B. Modul1:
Sub Auswahl()
UserForm1.Show
End Sub
in eine UF, z.B. Userform1
Option Explicit
'
Private Sub UserForm\_Initialize()
Me.Caption = "Speicherauswahl"
CommandButton1.Caption = "Speichern"
CommandButton2.Caption = "Abbrechen"
OptionButton1.Caption = "MAGvorInb"
OptionButton2.Caption = "MAGFest"
OptionButton3.Caption = "MAGvorInb und MAGFest"
If ActiveSheet.Name = "MAGvorInb" Then OptionButton1.Value = True
If ActiveSheet.Name = "MAGFest" Then OptionButton2.Value = True
End Sub
'
Private Sub CommandButton1\_Click()
'Speichern
Dim Datname As String
Const Pfad As String = "c:\test\"
If OptionButton1.Value = True Then
Datname = Worksheets("Auswahlliste").Range("A40").Value
Worksheets("MAGvorInb").Copy
ElseIf OptionButton2.Value = True Then
Datname = Worksheets("Auswahlliste").Range("A45").Value
Worksheets("MAGFest").Copy
ElseIf OptionButton3.Value = True Then
Datname = Worksheets("Auswahlliste").Range("A35").Value
Worksheets("MAGvorInb").Copy
ThisWorkbook.Worksheets("MAGFest").Copy After:=ActiveWorkbook.Sheets(1)
End If
ActiveWorkbook.SaveAs Pfad & Datname
ActiveWorkbook.Close
End Sub
'
Private Sub CommandButton2\_Click()
'abbrechen
Unload UserForm1
End Sub
Gruß
Reinhard
Hallo Reinhard,
bis zum Modul 1 anlegen und die 3 Zeilen einfügen komme ich klar.
Aber wie dann weiter? In eine UF einfügen- wie geht das vonstatten? In Userform1 sind doch schon die Schaltflächen.
Bitte Antwort
Danke Heimat
bis zum Modul 1 anlegen und die 3 Zeilen einfügen komme ich
klar.
Aber wie dann weiter? In eine UF einfügen- wie geht das
vonstatten? In Userform1 sind doch schon die Schaltflächen.
Hallo Heimat,
also die Uf hast du angelegt und mit den 2 Schaltflächen und den 3 Optionfeldern bestückt?
Dann kannst du entweder einen Doppelklick in einen leeren Bereich der UF machen oder oben bei Ansicht „code“ wählen.
Umgedreht wählst du „Objekt“ wenn du wieder die UF sehen willst.
Für F5 ist es wurscht was du gewählt hast.
Gruß
Reinhard
Hallo Reinhard,
klappt nicht. Nach Auswahl klicken kommt "Fehler beim Kompilieren: Syntaxfehler. OK gedrückt, gelb: Private Sub Userform_Initialize,
blau: If ActiveSheet:Name=„MAGvorInb“ Then OptionButton1.Value =
True
Tschüß Heimat
klappt nicht. Nach Auswahl klicken kommt "Fehler beim
Kompilieren: Syntaxfehler. OK gedrückt, gelb: Private Sub
Userform_Initialize,
blau: If ActiveSheet:Name=„MAGvorInb“ Then OptionButton1.ValueTrue
Hallo Heimat,
das muß eine Codezeile sein:
If ActiveSheet.Name = „MAGvorInb“ Then OptionButton1.Value = True
Und woher kam der Doppelpunkt zwischen Activesheet und Name? Das muß ein Punkt sein.
Gruß
Reinhard
Hallo heimat alias Peter Rust,
das Mehrfach-Posting der gleichen Frage in mehreren Foren
hier: ist nicht so ganz die feine Art.Und dann läßt du, na…