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
Wie kann ich in Excel mein Warenlager mit vorhandene Rezepturen abgleichen. Um zu wissen wieviel ich Herstellen kann?

Guten Tag

Ich hab eine etwas komplexes Problem und hoffe es halbwegs vernüftig erklären zu können. Damit mir jemand helfen kann.

Ich möchte das Excel mein Warenlager mit verschiedenen Rezepturen abgleicht und mir sagt, wieviel komplette Rezepturen man herstellen kann. Das Bild sollte ungefähr ein Einblick zu meiner Frage geben.

Im Bild sieht man das unter der Rezeptur 1 ab B4 bis B7 Zahlen stehen die Excel mit dem Warenlager rechts ab I4 abgleichen soll. Wenn von allen Zutaten genug für eine Herstellung ist, sollte in der Mitte bei D4 eine ganze natürliche Zahl dargestellt werden.

Rezept 2 beginnt bei B10 bis B14 gleicht das identische Lager ab und gibt bei E4 die maximal mögliche Menge an.

Bei D4 und E4 sollten im Idealfall nun jeweils die Menge erscheinen die man herstellen kann.

Sofern das erreicht ist!

Nun eine Erweiterung des Ganzen:

Wenn bei D4 als Beispiel 8 steht, also ich 8mal die Rezeptur 1 herstellen kann. Möchte ich das sobald ich bei D6 (Wieviel ich tatsächlich hergestellt habe) einen Wert eingeben sich die beiden obrigen (D4 & E4) ändern. Weil sich ja nun das Lager ändert, wegen die nun hergestellten Ware.

Ich hoffe das es jemand gibt der versteht was ich damit sagen möchte. Ergänze auch gerne sofern unklarheiten aufkommen.

Liebe Grüße Akki

Windows, Microsoft, Office, Microsoft Excel, Mathematik, Berechnung, Kalkulation, Warenwirtschaft, Tabelle

Meistgelesene Beiträge zum Thema Office