Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Dateiname aus bestimmten zellen zusammensetzen

Betrifft: Dateiname aus bestimmten zellen zusammensetzen von: Nastja Kremel
Geschrieben am: 08.08.2014 16:18:33

Hallo Leute,

folgendes Problem. habe folgenden Code, der eine bestimmte Registerkarte als Anhang an die angegebene E-Mail Adresse per Knopfdruck versendet.

Nun möchte ich aber, dass der Dateiname sich aus bestimmten Zellen der Tabelle1 zusammensetzt und als solche versendet wird.

Beispielsweise ist bei Tabelle 1 unter A1: name ; B1: Alter ; B3: Datum

Demnach sollte die datei beispielsweise als "Müller_34_08-08-2014.xls" versendet werden. Wie kann man dies umsetzen??

Danke im Voraus

Sub Worksheet_versenden()

Dim s As String
Dim b As String


Sheets("Tabelle xy").Copy


ActiveWorkbook.SendMail "test@test.de", "Hier Betreff eingeben"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True


End Sub

  

Betrifft: AW: Dateiname aus bestimmten zellen zusammensetzen von: Michael
Geschrieben am: 08.08.2014 17:03:10

Hi Nastja,

ich habe folgende Testdaten:
A1: Mustermann
B1: 35
B3: =jetzt()

In VBA kannst Du das so zusammensetzen:

Sub dateiname()
  Dim name As String
  name = Range("a1") & "_" & Range("b1") & "_" & _
     Format(Range("b3").Value, "dd_mm_yyyy") & ".xls"
  MsgBox name
End Sub

Schöne Grüße,

Michael


  

Betrifft: AW: Dateiname aus bestimmten zellen zusammensetzen von: Nastja Kremel
Geschrieben am: 13.08.2014 10:01:30

Danke für die Antwort.

Leider ändert sich der Dateiname trotzdem nicht. Wahrscheinlich mache ich etwas falsch bei der _ Einsetzung des "dateiname" im

Sub Worksheet_versenden() ????



Sub dateiname()
  Dim name As String
  name = Range("a1") & "_" & Range("b1") & "_" & _
     Format(Range("b3").Value, "dd_mm_yyyy") & ".xls"
  MsgBox name
End Sub

________________________________________________________

Sub Worksheet_versenden()

Dim s As String
Dim b As String


Sheets("Tabelle xy").Copy


ActiveWorkbook.SendMail "test@test.de", "Hier Betreff eingeben"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True

dateiname

End Sub



  

Betrifft: AW: Dateiname aus bestimmten zellen zusammensetzen von: Nastja Kremel
Geschrieben am: 13.08.2014 10:04:31

.


  

Betrifft: AW: Dateiname aus bestimmten zellen zusammensetzen von: Michael
Geschrieben am: 14.08.2014 12:32:47

Hallo Nastja,

ich habe nur skizziert, wie Du den Dateinamen zusammensetzen kannst, nicht wie Du ihn weiterverarbeitest.

Ich habe kurz recherchiert: am passendsten erscheint mir die Antwort hier im Forum:
https://www.herber.de/forum/archiv/544to548/547478_SendMail_VBA.html

Sofern Du Outlook verwendest, lies bitte mal diesen Beitrag:
http://www.online-excel.de/excel/singsel_vba.php?f=86

Ich habe kein mail-Programm installiert, kann also hier leider nicht weiter helfen, wenn es um den Versand selbst geht.

Zur Logik: wenn Du die Datei versenden möchtest, deren Namen Du zusammensetzt, mußt Du sie offensichtlich erst öffnen, s. erster link.

Wenn Du die Datei versenden möchtest, in der Du Dich sowieso bereits befindest, brauchst Du den Namen nicht zusammensetzen, weil Du ihn einfach aus Thisworkbook.name übernehmen kannst - Du benötigst ihn aber anscheinend gar nicht zum Versand.

Wenn Du nicht zurechtkommst, erkläre bitte etwas ausführlicher, was Du machen möchtest.

Happy Exceling,

Michael


 

Beiträge aus den Excel-Beispielen zum Thema "Dateiname aus bestimmten zellen zusammensetzen"