Dropdown liste mit Makro kombinieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub createFile() Dim strPath As String strPath = "C:\" 'Pfad anpassen! If Right(strPath, 1) <> "\" Then strPath = strPath & "\" On Error GoTo ErrorHandler Application.ScreenUpdating = False With Sheets("Tabelle2") 'Tabellenname anpassen If UCase(.Range("A4")) Like "[A-C]" Then .Calculate .Copy ActiveWorkbook.Sheets(1).Range("D4:G8") = ActiveWorkbook.Sheets(1).Range("D4:G8").Value Call ActiveWorkbook.SaveAs(strPath & "Test_v" & UCase(.Range("A4")) & ".xlsm", 52) ActiveWorkbook.Close True End If End With ErrorHandler: Application.ScreenUpdating = True End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Sub createFilel() Dim strPath As String, strList As String, varItem As Variant strPath = "C:\" 'Pfad anpassen! If Right(strPath, 1) <> "\" Then strPath = strPath & "\" On Error GoTo ErrorHandler Application.ScreenUpdating = False With Sheets("Tabelle1") 'Tabellenname anpassen strList = .Range("A4").Validation.Formula1 For Each varItem In Split(strList, ";") .Range("A4") = varItem .Calculate .Copy ActiveWorkbook.Sheets(1).Range("D4:G8") = ActiveWorkbook.Sheets(1).Range("D4:G8").Value Call ActiveWorkbook.SaveAs(strPath & "Test_v" & UCase(.Range("A4")) & Format(Date, "_yyyy-mm-dd_") & ".xlsm", 52) ActiveWorkbook.Close True Next End With ErrorHandler: Application.ScreenUpdating = True End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Sub createFile() Dim strPath As String, rngVal As Range, varItem As Variant strPath = "C:\Users..." 'Pfad anpassen! If Right(strPath, 1) <> "\" Then strPath = strPath & "\" On Error GoTo ErrorHandler Application.ScreenUpdating = False With Sheets("Tabelle1") Set rngVal = Range(Replace(.Range("D31").Validation.Formula1, "=", "")) For Each varItem In rngVal .Range("D31") = varItem .Calculate .Copy ActiveWorkbook.Sheets(1).Range("F34:Q76") = ActiveWorkbook.Sheets(1).Range("F34:Q76").Value Call ActiveWorkbook.SaveAs(strPath & "Test_v" & UCase(.Range("D31")) & Format(Date, "_yyyy-mm-dd_") & ".xlsm", 52) ActiveWorkbook.Close True Next End With ErrorHandler: Application.ScreenUpdating = True End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Hi Sepp,
Sorry ich wusste nicht, dass es da Unterschiede gibt :(
Vielen Dank, es funktionier ohne Probleme.
Ich habe noch eine Frage. Ich wollte die neu entstandenen Dateien per Outlook verschicken, alle in einer separaten Email. Ich habe dazu folgende Code geschrieben. Für eine email und wenn ich den genauen dateipfad angebe funktioniert es. Gibt es auch eine elegantere Möglichkeit als den Code jetzt 5 mal zu kopieren? Und kann man die Dateien automatisch auswählen? Da jede Mail an unterschiedliche Adressen geschickt wird bleibt mir glaube ich nicht anderes übrig als den Code zu wiederholen oder?
Also um es zu verdeutlichen was ich beabsichtige:
Anhang 1 (die erste erstellte Datei) soll an Adresse 1 gehen.
Anhang 2 an Adresse 2 usw bis alle Dateien verschickt sind.
Vielen Dank und viele Grüße
Jinu


Sub createFile()
Dim strPath As String, rngVal As Range, varItem As Variant
Dim objOutlook As Object
Dim objMail As Object
strPath = "c:\...."  'Pfad anpassen
If Right(strPath, 1)  "\" Then strPath = strPath & "\"
On Error GoTo ErrorHandler
Application.ScreenUpdating = False
With Sheets("Tabelle1")
Set rngVal = Range(Replace(.Range("D31").Validation.Formula1, "=", ""))
For Each varItem In rngVal
.Range("D31") = varItem
.Calculate
.Copy
ActiveWorkbook.Sheets(1).Range("F34:Q76") = ActiveWorkbook.Sheets(1).Range("F34:Q76"). _
Value
Call ActiveWorkbook.SaveAs(strPath & Format(Date, "yyyy-mm-dd_") & "Two month rolling  _
Forecast - " & UCase(.Range("D31")) & ".xlsm", 52)
ActiveWorkbook.Close True
Next
End With
ErrorHandler:
Application.ScreenUpdating = True
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.display
.to = "asdf@yxcv.de"
.Subject = "Test Excel VBA"
.HTMLbody = "Dies ist ein Test" & "

" & .HTMLbody
.Attachments.Add "C:..." 'Pfad anpassen! Kann man hier vielleicht mit strPath & Format(Date,  _
"yyyy-mm-dd_") & "Two month rolling Forecast - " & UCase(.Range("D31")) & ".xlsm" arbeiten?
End With
End Sub

Hi Sepp,
vielen Dank, nach anfänglichen "Schwierigkeiten" läuft es :)
Ich dachte erst es funktioniert nicht richtig, da das Makro immer nur die erste Datei erstellt hat. Wenn ich es dann nochmal ausgeführt habe, hat es die erste Datei überschrieben, die erste Mail und die 2. Datei erstellt. Bei der dritten Durchführung wurden dann die ersten beiden Dateien überschrieben, 2 Emails und die 3. Datei erstellt. Irgendwann habe ich rausgefunden, dass es wohl an der Verbindung mit OneDrive liegt, dass der Upload den Prozess scheinbar stört. Nachdem ich OneDrive beendet hatte, funktionierte es problemlos.
Kannst du mir das mit der Zuordnung der Email zur Auswahl nochmal genauer erklären? Wie kann ich die Mailadressen zuordnen, wenn sie in einer anderen Zelle / auf einem anderen Tabellenblatt stehen?
Und wie kann ich den Text der Email formatieren (Umbrüche einfügen, Schriftgröße ändern und Signatur einfügen)?
Ich habe versucht die Zeile

  Call sendMail(strReceiver, "Ein Test", "Hallo das ist ein Test", strFileName)

mit "& vbLf &" oder "& Chr(10) &" zu ergänzen, hatte aber keine Auswirkungen.
Vielen lieben Dank.
Jinu

Beliebteste Forumthreads (12 Monate)

Dropdown liste mit Makro kombinieren

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

324 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F
1	Gruß Sepp
2
3

	A	B	C	D	E	F
1	Gruß Sepp
2
3

	A	B	C	D	E	F
1	Gruß Sepp
2
3

	A	B	C	D	E	F
1	Gruß Sepp
2
3

Dropdown liste mit Makro kombinieren

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

324 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread