Office: (Office 2010) VBA Makro Speichern unter

neuerdings · 8. Oktober 2013

Hallo!

Ich habe leider noch keine Erfahrung mit VBA gemacht und irgendwie hab ich ein Problem mit einem Makro! Ich habe schon über Google nach einem passenden Makro gesucht, aber leider keines gefunden das geht bzw. das ich ausführen kann... somit hier meine Frage:

Ich brauche ein Makro, das ich mit einem Button verlinken kann, damit folgendes ausgeführt wird:

Mit dem betätigen des Buttons soll der Befehl "Speichern unter" ausgeführt werden und als Dateiname soll eine Kombination aus festem Text und drei verschiedenen Zellinhalten vorgeschlagen werden sprich: C5_Text_C4_C3

C5 natürlich die Zelle C5 und Text natürlich der immer ein gleich bleibender Text

Des weiteren habe ich das Problem, dass die Zelle C5 eigentlich C5&D5, die Zelle C4 eigentlich C4&D4&E4&F4 und C3 C3&D3&E3&F3 wiederspiegelt.

Ich denke, dass es für jemanden mit VBA Erfahrung eine Fingerübung ist, für mich ist es jedoch aktuell ein Fingerbrecher....

Vielen Dank für Eure Rückantwort *Smilie

:)

Hasso · 9. Oktober 2013

Hallo neuerdings,

das ist relativ einfach: Code:

Option Explicit

Private Sub CommandButton1_Click()

Dim strDateiname As String
Dim strText As String
Dim strPfad As String

'hier den festen Text eintragen, der im Dateinamen erscheinen soll:
strText = "meinText"
'hier den Pfad eintragen, in dem die Datei gespeichert werden soll:
strPfad = "C:\Dokumente und Einstellungen\neuerdings\"
'Hier wird der Dateiname zusammengebaut:
With ActiveSheet
strDateiname = strPfad & .Range("C5") & .Range("D5") & "_" & strText & "_" & .Range("C4") & _
.Range("D4") & .Range("E4") & .Range("F4") & "_" & .Range("C3") & _
.Range("D3") & .Range("E3") & .Range("F3") & ".xlsm"
End With
'nun wird die Datei gespeichert:
ThisWorkbook.SaveAs strDateiname, FileFormat:=52
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

neuerdings · 10. Oktober 2013

Vielen Dank für Deine schnelle Hilfe *Smilie

Noch eine Frage:

wie würde das Ganze aussehen, wenn ich keinen festen Pfad haben möchte, sondern den Pfad selbständig aussuchen möchte? Wäre dies so umsetzbar?

Ich probiere das Ganze gleich mal aus *Smilie

neuerdings · 10. Oktober 2013

also habs gerade ausprobiert und es funktioniert bisher erschreckend gut *Smilie vielen Dank

Wie gesagt wenn ich jetzt noch die Möglichkeit hätte, dass ich den Pfad auswählen könnte wäre es perfekt!

Aber bis hierher bereits TOP!!

Hasso · 10. Oktober 2013

Hallo neuerdings,

das machst du so: Code:

Option Explicit

Private Sub CommandButton1_Click()

Dim strDateiname As String
Dim strText As String
Dim strPfad As String

'hier den festen Text eintragen, der im Dateinamen erscheinen soll:
strText = "meinText"
'Hier wird der Dateiname zusammengebaut:
With ActiveSheet
strDateiname = .Range("C5") & .Range("D5") & "_" & strText & "_" & .Range("C4") & _
.Range("D4") & .Range("E4") & .Range("F4") & "_" & .Range("C3") & _
.Range("D3") & .Range("E3") & .Range("F3") & ".xlsm"
End With
'Pfad per Dialog auswählen:
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
strPfad = .SelectedItems(1) & "\"
End With

'nun wird die Datei gespeichert:
ThisWorkbook.SaveAs strPfad & strDateiname, FileFormat:=52

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2010) VBA Makro Speichern unter

VBA Makro Speichern unter

VBA Makro Speichern unter

VBA Makro Speichern unter

VBA Makro Speichern unter - Similar Threads - VBA Makro Speichern

Speichern mit dem Titel der Zelle A2

Per Makro bestimmten Bereich per PDF unter bestimmten Pfad speichern.

VBA Makro - PDF erstellen und speichern auf lokalem Netzwerk

VBA Speichern: Warum funktioniert mein Makro nicht richtig

VBA-Code für Outlook

mehrere Anwender sollen per Makro Daten in freigegener Datei speichern

Excel 2007 - VBA - Speichern durch Makro auf Server macht Probleme