Excel-VBA: Andere, geöffnete Excel-Datei speichern?

Hallo zusammen,

Ich denke, eine sehr einfache Frage für VBA-Experten, die ich durch googlen aber nicht lösen kann.

Ich habe 2 verschiedene Excel-Dateien (bsp. '1.xls' & '2.xls').

Beide Dateien sind in Excel geöffnet.

Ich möchte jetzt per Button in '1.xls' die zweite Datei (also '2.xls') speichern können.

Folgendes habe ich getestet, was nicht funktioniert:

Dateinameneu = Range("H6") & "-" & 2.xls.Name
2.xls.SaveAs "C://Dokumente/"&Dateinameneu

Ich kenne das leider nur mit "ActiveWorkbook.Saveas", aber ich will ja die andere Datei speichern.

WICHTIG! 'Saveas' muss es sein, da die Datei '2.xls' wie ihr in dem Codebeispiel sehen könnt, nachher anders heißen soll.

Danke im Voraus!

Dennis

3 Antworten

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

30.05.2017, 12:07

Mit Workbooks erlangst du Zugriff auf die geöffneten Arbeitsmappen.

Bei dir sollte es Workbooks("2.xls") sein.

Woher ich das weiß:Berufserfahrung – Programmierer

Iamiam

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

31.05.2017, 00:34

Was spricht denn dagegen, die andere -schon offene- Datei zu ativieren (ist ein Fenster-Befehl, kein Datei-Befehl) , also

Windows("zu speichernde Datei").activate

...saveAs...

anschließend wieder Windows("gewünschteDatei").activate

Ein VBA-Makro läuft ja weiter, solange die es enthaltende Datei offen ist, egal, welche gerade aktiv ist!

Die Infos zum speichern_unter sollte man allerdings vorher in (Text-)Variablen im Makro festschreiben

augsburgchris

Nutzer, der sehr aktiv auf gutefrage ist

im Thema Microsoft

30.05.2017, 12:06

was heisst denn 2.xls.SaveAs?

Workbooks("2.xls").SaveAs ...

Ähnliche Beiträge

VBA: Speichern unter mit Dateinamen aus bestimmter Zelle?

Hallo zusammen,

ich habe mal wieder ein kleines Excelproblem, das eigentlich schon tausendfach in Foren besprochen wurde... ◔_◔

Und zwar will ich eine Datei unter neuem Dateinamen speichern, und der Name steht als Referenz der Einfachheit halber in der Zelle A1 des Tabellenblattes Sheet1.

Aus Gründen höherer Flexibilität des Codes habe ich einen geänderten Zielpfad eingebaut (Documents statt Downloads) und die Datei wird auch unter einem anderen Format (xls statt xlsx) abgespeichert.

In A1 würde z. B. für den Dateititel "Stichprobe 1" stehen, somit sollte die Datei am Ende als "Stichprobe 1.xls" abgespeichert sein.

Der Code ist analog https://docs.microsoft.com/de-de/office/troubleshoot/excel/save-file-to-network-drive, jedoch bekomme ich ab dem Schritt ActiveWorkbook.SaveAs den "Laufzeitfehler 9 - Index außerhalb des gültigen Bereichs" angezeigt:

Sub SaveAsFromCell()
  Dim wb As Workbook: Set wb = Workbooks.Open("C:\Users\Vorname Nachname\Downloads\Vorlage.xlsx")
  Dim strFilename As String: strFilename = ActiveSheet.Range("A1").Text
   
  Worksheets("Sheet1").Activate
  ActiveWorkbook.SaveAs Filename:="C:\Users\Vorname Nachname\Documents\" & strFilename, FileFormat:=".xls"
  wb.Close
End Sub

Wo liegt der Fehler?

Danke & schönes Restwochenende :)

...zum Beitrag

Wenn ich eine Excel-Datei öffne, so soll diese IMMER als Schreibgeschützt geöffnet werden, ohne einer Nachfrage beim öffnen. Geht das?

Gerne auch eine Lösung per VBA.

...zum Beitrag

Excel Arbeitsmappe separat speichern mit VBA?

Hallo,

habe bei meiner Exceldatei 10 Arbeitsmappen und ich möchte eine Arbeitsmappe davon separat als Datei abspeichern sodass ich unten nur mehr eine Arbeitsmappe stehen habe.

Habe mir hierfür einen einen Knopf erstellt und mit VBA den Knopf programmiert. Wenn ich ihn drücke, dann habe ich es bereits geschafft, dass die Mappe sich als PDF exportiert aber als Excel ist nicht möglich. Hier ist mein Code:

Sub EXCEL_erstellen()

Dim DateiName As String

DateiName = Range("AB3") & Range("AB2")

Range("A1:T61").ExportAsFixedFormat Type:=xlTypeXPS, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

...zum Beitrag

Wie kann ich bei Excel einen Button erstellen der abspeichert?

Hallo,

Ich würde gerne bei Excel einen Button erstellen, der die Excel mappe auf dem Desktop abspeichert. Der Name der Datei soll in Zeile A1 stehen.

Den Button habe ich bereits erstellt. Ich scheitere noch bei dem Makro, weil ich keine ahnung davon habe. Ich habe etwas im Internet gefunden, was meinen Vorstellungen nahe kommt. Ich habe versucht es anzupassen, aber irgendwie klappt das alles nicht.

Sub Schaltfläche1_Klicken()
Dim lw_pfad As String
lw_pfad = ActiveSheet.Range("A1").Value
lw_pfad = InputBox("Geben Sie hier das Laufwerk und den Pfad an, wo die Datei gespeichert werden soll." & Chr(13) & Chr(13) & "(Ihre Eingabe wird in A1 als neuer Default-Wert gespeichert.)", "Datei speichern unter...", lw_pfad)
If lw_pfad = "" Then
  MsgBox "Die Datei wird nicht gespeichert, da Sie [Abbrechen] gedrückt oder nichts eingegeben haben.", , "Abbruch"
  Exit Sub
Else
  If Right(lw_pfad, 1) <> "\" Then lw_pfad = lw_pfad & "\"
  ActiveSheet.Range("A1").Value = lw_pfad
Rem MsgBox lw_pfad
ActiveWorkbook.SaveAs lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls"
MsgBox "Die Datei wurde unter " & lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls gespeichert.", , "OK"
End If
End Sub

Das ist, was ich bis jetzt habe.

Vielen Dank für die Hilfe im Voraus!

...zum Beitrag

VBA Excel mit Eingabemaske anderes Excel Blatt bearbeiten?

Hallo, folgendes Problem: Habe eine Eingabemaske erstellt, die mir Zeilen ausgibst mit einem Suchfeld. Diese kann man dann ändern, löschen etc. und diese werden für ein Programm gebraucht. So, das Programm nimmt aber nur einbe Excel Liste mit anderem Format und nun muss ich mittels der Eingabemaske die andere Datei öffnen und dann soll die Maske über diese Datei arbeiten. Die Tabelle ist vom Aufbau her genau identisch. muss also nur den Befehl haben um das öffnen, bearbeiten, speichern und schließen. Also die andere Datei dann. Füge anbei mal den Code von dem Button 'Suchen' hinzu:

    Private Sub CommandButton2_Click()
    Workbooks.Open "C:\Users\SchuehlJ\Desktop\Excel\DB_Versand102x76.xls"
      Dim suchen As Excel.Range

  With Tabelle1
     
    Set suchen = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
     
    Set suchen = suchen.Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
     
    If Not suchen Is Nothing Then

      TextBox2.Text = .Cells(suchen.Row, "B").Value
      TextBox3.Text = .Cells(suchen.Row, "C").Value
      TextBox4.Text = .Cells(suchen.Row, "D").Value
      TextBox5.Text = .Cells(suchen.Row, "E").Value
      ListBox1.AddItem .Cells(suchen.Row, "A").Value
      
      

    Else
    
          Call MsgBox("PN Nummer: " & "'" & TextBox1.Text & "' wurde nicht gefunden.")
          ListBox1.Clear
          TextBox1.Text = ""
          
        End If
    End With
    End Sub

Hoffe ihr könnt mir helfen,

LG Julian

...zum Beitrag

Mit Access und VBA einen formatierten Excel-Export durchführen?

Guten Tag, ich hänge mal wieder bei einer Access - Excel Frage fest.

Ich habe ein Access eine Abfrage geschrieben, die mir sortiert eine ID, den zugehörigen Namen und alle dazu zugewiesenen Daten ausgibt.

Da jede Id + name mehrere Daten haben kann, steht das ganzen in mehreren zeilen untereinander. Ich möchte das ganze nun in eine Excel-Datei via Makro exportieren und das ganze so formatieren das Id + name nur einmal drann steht und dann alle Daten.

Das ganze sieht also eig. so aus.

id || name || daten

1 || n1 || daten1

1 || n1 || daten2

1 || n1 || daten3

und soll in der Exel Datei dann so aussehen.

id || name || daten

1 || n1 || daten1

_ || _ || daten2

_ || _ || daten3

_ bedeutet das dort kein Eintrag in der Zelle mehr steht. Ich habe das bisher so gemacht, das ich Die Daten aus Access händisch in eine Excel kopiert habe und dann dort mit einem Makro alles raus sortiert habe. Dim xErsteZeile As Long Dim xZeile As Long

        xErsteZeile = Cells(Rows.Count, 1).End(xlUp).Row
    
        For xZeile = xErsteZeile To 1 Step -1
          If Application.WorksheetFunction.CountIf(Columns(1), Cells(xZeile, 1).Value) > 1 Then
                Range("A" & xZeile).Select
                Selection.Delete Shift:=xlUp
                Range("B" & xZeile).Select
                Selection.Delete Shift:=xlUp
          End If
        Next

Ich würde das ganze jetzt aber über Access machen da es ja der Ausgangspunkt ist. Wenn ich ein Export in ACCES anschaue in VBA sieht dieser ja so aus.

    DoCmd.OutputTo acOutputQuery, "jh_01_01_Abfrage", "Excel97-Excel2003Workbook(*.xls)", "", True, "", , acExportQualityPrint

kann ich davor die Daten noch bearbeiten wie in Excel? Und wenn ja kann mir eventuell jemand einen Tipp geben?

Würde mich sehr freuen.

Grüße

Frost.

...zum Beitrag

VBA Datum (dd.mm.yy) aus Zelle umdrehen (yymmdd) und als Name speichern?

Hallo Zusammen

Ich bin ganz neu im VBA und bin etwas am Herumprobieren. Einen Teil habe ich geschafft, aber an einem Punkt hänge ich.

Ich will, dass ein Makro läuft, welches die Datei automatisch unter dem Namen "Kundennummer_Servicedatum" abspeichert. Die Kundennummer und das Servicedatum sind beide im Dokument unter separaten Zellen hinterlegt, die Formel sieht jetzt so aus:

Sub Speichern_unter()

Dim SaveName As String

Dim Datum As Date

SaveName = ActiveSheet.Range("BQ11").Text

Datum = ActiveSheet.Range("BM17")

ActiveWorkbook.SaveAs Filename:="D:\ABC\Service\" & SaveName & "_" & Datum & ".xls"

End Sub

Soweit funktioniert alles, das Dokument heisst z.b. "149_31.10.23"

Das Datum ist als dd.mm.yy in der Zelle, zum Abspeichern brauche ich aber folgendes Format: yymmdd. Ziel ist also der Name "149_231031"

Kann mit jemand helfen, wie ich das Datum umgedreht bekomme? Danke im Voraus :)

...zum Beitrag

Kann man in Excel folgendes programmieren: Jedes Mal wenn die Excel Datei geöffnet wird, speichert eine Zelle das Datum und Uhrzeit?

Ich will wissen, wann eine bestimmte Excel-Datei nur geöffnet wurde. Das soll mir die Excel-Datei selber veraten. Get das?

Danke

...zum Beitrag

Excel, Spalte rechts nebenan kopieren?

Hallo, wie kann ich per Excel VBA eine Range (eine Spalte) mit einer Zelle vergleichen und nach einem Match die Zelle direkt rechts neben der Range (eine Spalte) selektieren?

...zum Beitrag

VBA - Daten in andere Datei schreiben

Ich habe ein Excel-sheet mit Daten und Makros. Nun möchte ich die Daten in eine neue Excel Tabelle schreiben, so das keine Makro-Sicherheits meldung beim öffnen der ausgegeben Datei kommt.

Wie geht das?

...zum Beitrag

Excel VBA Userform: Textbox abhängig von Combobox machen?

Hallo,ich bin aktuell an einem Excel Projekt, in dem ich per VBA eine Userform erstellen möchte. Nun komme ich an folgender Prozedur nicht weiter.Ausgangssituation: Ich habe eine Userform mit Combobox (Combobox1) und Textbox (Textbox1) erstellt. Ich möchte nun, dass sobald in der Combobox ein bestimmter Wert ausgewählt wird, in der Textbox ebenso ein bestimmter Wert erscheint, der nur auf den einen Wert der Combobox passt. Die Combobox funktioniert einwandfrei, die Textbox macht nur nicht was sie soll. Bitte um Hilfe.Hier mein aktueller Code:

Private Sub UserForm_Initialize()

Me.ComboBox1.AddItem Range("A2")

Me.ComboBox1.AddItem Range("A3")

Me.ComboBox1.AddItem Range("A4")

Me.ComboBox1.AddItem Range("A5")

Me.ComboBox1.AddItem Range("A6")

If ComboBox1.Value = Range("A2") Then

TextBox1.Text = "5"

End If

End Sub

...zum Beitrag

VBA Skript um Daten von einer Excel-Datei in eine andere zu kopieren?

Hallo,

ich habe zwei Excel Dateien. Mit Adressdaten. Das VBA-Skript soll die erste Excel-Datei Zeile für Zeile iterieren und in der zweiten Excel-Datei nach Adressen suchen die gleich sind.

Wird in der zweiten Datei die Adresse aus der ersten Datei gefunden, soll ein weiterer Wert von der zweiten Datei in die erste Datei rüber kopiert werden.

Wichtig wäre mir dabei, dass das Skript in der ersten Excel-Mappe ausgeführt wird, und dass die zweite Excel-Datei gar nicht erst geöffnet wird.

Ich habe schon sehr viel programmiert - aber bisher noch nie etwas in VBA. (und ich komme mit VBA nicht so ganz klar)

Daher wollte ich fragen, ob hier jemand ein Skript hat oder kennt, das etwas ähnliches macht, so dass ich es mir ein bisschen abgucken kann. (Prinzipiell ist das ja ein Problem, das sicherlich häufiger auftritt)

...zum Beitrag

Excel Vba Typen Unverträglich?

Sub test()

For i = 1 To 10

Worksheets("Tabelle1").Range("C1:C10") = IIf((IsEmpty(Range("A1:A10")) + IsEmpty(Range("B1:B10"))) <> 0, "Not Calculable", (Range("A1:A10") - Range("B1:B10") + 1))

End Sub

...zum Beitrag

Excel VBA - Zellen nach Datum löschen?

Hallo Liebe Excel - Kenner,

gibt es die Möglichkeit oder einen Code, wo ich Zellen löschen die ich nach Datum und Uhrzeit bestimme?

Bsp: Zelle A1: K30 löschen am 25.03.2016 - 14:00 Uhr

Gruß Manuel

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen