PDF Datei per Excel via Outlook senden?
Hallo Zusammen!

Ich habe folgenden Code zum erstellen einer PDF aus einem Sheet.

Der Code erstellt einen PDF namen und gibt dem Benuzter die Wahl zu speichern wo er will.. Danach kommt noch eine MSG Box und führt einen Datenbankbefehl aus usw.. Alles soweit ok..

Kann man zusätzlich die Datei noch in "Temp" speichern und per PDF senden? Als Betreff den Dateinamen ? Gerne würde ich auch den Emailempfänger direkt vorgeben und wenn möglich auch das senden ohne bestätigen ausführen.. geht das?

Sub speichern_unter_PDF_AV() a = MsgBox("WKZ ins Budget übertragen?", _ vbYesNo + vbQuestion, "WKZ buchen, PDF erstellen?") If a = vbYes Then 'Bereich kopieren Sheets("AV Markt").Range("AH14:AO14").Copy 'einfügen in erste freie Zeile in ausgabe Sheets("Datenbank AV").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues 'Kopiermodus beenden Application.CutCopyMode = False Name = Range("Z1") Sheets("AV Markt").Activate Dim neuerDateiname As String neuerDateiname = Application.GetSaveAsFilename("C:\Temp\" & "AV - " & Name & Format(Date, "dd.mm.yyyy") & ".pdf", "Adobe PDF-Dateien (.pdf),.pdf") If Not neuerDateiname = "Falsch" Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=neuerDateiname, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True Dim loI Dim WsShell Set WsShell = CreateObject("WScript.Shell") loI = WsShell.Popup("WKZ erfolgreich übertragen!" & vbCrLf _ & " " & vbCrLf _ & "AV bitte übermitteln" & vbCrLf _ & " " & vbCrLf _ & "AV´s müssen unterschrieben auf dem Laufwerk abgelegt werden!" & vbCrLf _ & "Danke", Title:=" Power Team") End If End If End Sub

Office, Microsoft Excel, VBA
Excel: Wie schließe ich leere Zellen aus Mittelwertberechnung aus?

Hi! Ich habe vor einiger Zeit mithilfe der Gutefrage.net User eine Tabelle erstellt, in der ich getrunkene Weine und verschiedene Faktoren (wie z.B. Rebsorten) eingetragen habe. Diese Weine habe ich bewertet, sodass ich jetzt für jede Rebsorte (Anbaugebiet, Jahrgang...) eine gemittelte Bewertung habe.

Nun habe ich die Tabelle erweitert und trage zu jedem Wein noch Variablen wie Körper, Beerenfrucht, Abgang usw. auf einer Skala von 1-5 ein.

Soll jetzt zum Beispiel der gemittelte Wert für "Körper" einer Rebsorte (hier in der Formel "Wein") berechnet werden, habe ich folgende Formel:

=SUMMENPRODUKT(('Bewertungsmappe Rot'!$L$2:$Q$550=[@Wein])*('Bewertungsmappe Rot'!U$2:U$550))/ZÄHLENWENN('Bewertungsmappe Rot'!$L$2:$Q$550;[@Wein])

In der "Bewertungsmappe" trage ich neue Weine ein, in den Spalten I und L stehen die Rebsorten, in der Spalte U trage ich den "Körper" ein *

Die gewährleistet, dass nur diejenigen Weine in die Berechnung einfließen, die auch aus der entsprechenden Rebsorte hergestellt wurden. Jetzt möchte ich gerne meine alte Datenbank übertragen, für die ich leider keine Werte in den Geschmacksvariablen (wie eben "Körper" usw.) habe. Außerdem hätte ich gerne die Möglichkeit, da auch was frei zu lassen. Nun führen leere Zellen aber dazu, dass der Mittelwert natürlich zu gering ist. Könnte mir einer helfen, dieses Problem zu umgehen? Stehe total auf dem Schlauch!

Für Hilfe wäre ich sehr dankbar! Viele Grüße, Lukas

Microsoft Excel, mittelwert, zaehlenwenn

Meistgelesene Beiträge zum Thema Microsoft Excel