Beiträge anzeigen

Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.

Nachrichten - Fraggle

Seiten: [1]

Excel / Antw: Office 2016 Zu dumm zum Drucken

« am: August 07, 2019, 12:27:56 Nachmittag »

Hallo maninweb,

Vielen Dank für deine Hilfe!

Da hätte ich wirklich selber drauf kommen können, manchmal sieht man den Wald vor lauter bäumen nicht mehr...

Danke und Gruß
Fraggle

Excel / Office 2016 Zu dumm zum Drucken

« am: August 07, 2019, 09:22:24 Vormittag »

Hallo liebe Gemeinde,

ich habe ein Problem wo ich einfach nicht weiter komme.

Ich habe einen Code der mir ein Sheet als PDF erstellt, dann Outlook öffnet und mir das PDF einfügt.
Es wird der Empfänger sowie CC eingetragen, und ein Text hinzugefügt.
Dann muss man nur noch die E-Mail versenden.

Das klappt super!

Jetzt will ich aber das er mir das Sheet auch noch gleichzeitig ausdruckt und da fängt das Problem an.

Ich habe schon so viel versucht, bekomme es aber einfach nicht hin den Druckbefehl zu integrieren,

Habt Ihr eine Idee wie ich das hin bekomme?

Code: [Auswählen]


Sub pdf_per_mail()
    Dim pdf As String
    pdf = pdf_erstellen
    Call permail(pdf)
    Kill (pdf) 'pdf wieder löschen
End Sub

Function pdf_erstellen()
    Dim pdf As String
    Dim sep As String
    sep = Application.PathSeparator
    pdf = ThisWorkbook.Path & sep & ThisWorkbook.Name & ".pdf" 'Speicherpfad
    
    On Error Resume Next
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdf, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    On Error GoTo 0
    
    pdf_erstellen = pdf
End Function
            
Sub permail(ByVal pdf As String)
Dim objOutlook As Object
Dim objMail As Object
Dim myAttachments

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
Set myAttachments = objMail.Attachments

With objMail
    .To = "E-Mail-Adresse"
    .CC = "E-Mail-Adresse"
    .Subject = "Visuelle Kontrolle vor Werkzeugwartung (" & Range("T1").Text & ")"
    .Body = "Sehr geehrter Herr Baron-Schröder, " & vbNewLine _
        & vbNewLine _
        & "anbei erhalten Sie als PDF die Visuelle Kontrolle der vor-Werkzeugwartung." & vbNewLine _
        & vbNewLine _
        & "Mit freundlichen Grüßen" & vbNewLine _
        & vbNewLine _
        & "QS-Prüfraum" & vbNewLine _
        & vbNewLine _
        & vbNewLine _
        & vbNewLine _
        & "***Dies ist eine automatisch generierte E-Mail***"
        
    myAttachments.Add pdf 'Anhang

        'Nachricht zur Kontrolle anzeigen
    .Display

        'Oder direkt senden
        '.Send
End With
End Sub

Sub TabellenblattDrucken()
Sheets("Tabelle5").PrintOut
End Sub

Vielen Dank im Voraus

Fraggle

Excel / Antw: Excel Auflistug wenn Monat und Jahr übereinstimmen

« am: Juni 11, 2019, 16:10:06 Nachmittag »

Hallo steve1da,

vielen Dank für deine Hilfe!!!

Es funktioniert nicht anders erwartend super.

werde die Formal morgen mal auseinander nehmen und sie mir genau anschauen. Will ja weiter lernen

Danke nochmal und viele Grüße
Fraggle

Excel / Antw: Excel Auflistug wenn Monat und Jahr übereinstimmen

« am: Juni 11, 2019, 15:15:46 Nachmittag »

Hallo steve1da,

Sorry das ich mich erst jetzt wieder melde aber ich hatte ein Meeting.

Habe eine Testdatei mit angehängt.

Zur Erklärung:

Ich habe eine Liste mit Daten aus einer Datenbank Abfrage und benötige nur die in der Beispieldatei aufgeführten Daten als Auflistung wenn die Reklamation Berechtigt ist.
Zu diesem Zweck habe ich mir eine Formal geschrieben, welcher mir in einer neuen Liste die Unberechtigten Reklamationen als Leere Zelle anzeigt.
So entsteht die Datei "Rohdaten".

In der Datei "Rekla pro Monat" möchte ich nun alle berechtigten Reklamationen je nach Angabe Monat und Jahr aufgelistet haben.
Dazu haben ich mir den Code oben geschrieben und und du hast mir Ihn erweitert.
Was super nett von dir war.

Vielen Dank im Voraus

Fraggle

Excel / Antw: Excel Auflistug wenn Monat und Jahr übereinstimmen

« am: Juni 11, 2019, 11:47:54 Vormittag »

Hallo gmg-cc,

Zitat

Apropos "brauche dringend Hilfe" ... Lies mal das hier, was besondere Bedeutung auch dadurch bekommt, dass der Betreiber dieses Forums derartige Dienstleistungen anbietet.

Sorry, wollte nicht druck aufbauen!

Ich freue mich über jede Hilfe, zeitlich habe nur ich den Druck bzw. mache mir den Druck

Werde aber in Zukunft darauf achten solle Floskeln weg zu lassen, kann verstehen das diese Worte nicht gut ankommen.

Also nochmals ein Großen SORRY dafür!

Gruß
Fraggle

Excel / Antw: Excel Auflistug wenn Monat und Jahr übereinstimmen

« am: Juni 11, 2019, 11:43:02 Vormittag »

Hallo gmg-cc,

Danke für deine schnelle Antwort.

Der Code gibt mir nur noch 0 Aus in jeder Zelle.
Habe Ihn auf mich angepasst.

Code: [Auswählen]

{=WENNFEHLER(INDEX(A:A;KKLEINSTE(WENN((A:A<>0)*(A:A<>"")*(MONAT(F:F)=$I$1)*(JAHR(G:G)=$I$2);ZEILE($1:$1810));ZEILEN(A$2:A3)));"")}

Woran kann das Liegen?

Gruß
Fraggle

Excel / Excel Auflistug wenn Monat und Jahr übereinstimmen

« am: Juni 11, 2019, 11:18:24 Vormittag »

Hallo und Guten Morgen liebe Excel Gemeinde,

ich habe ein Problem bei dem ich dringend Unterstützung benötige.

Folgende Problem habe ich:

Ich muss um einen KPI Bericht zu erstellen wissen, welche Berechtigten Reklamationen im Laufenden Monat angefallen sind.

Hierzu habe ich einen Datenbank Verknüpfung erstellt und mir Hilfstabellen erstellt um mir alle relevanten Daten ausgeben zu lassen.

Soweit so gut.

Jetzt benötige ich aber auch noch eine Auflistung der Reklamationen.

Ich habe folgenden Code schon geschrieben und er funktioniert auch super

Code: [Auswählen]

{=WENNFEHLER(INDEX(A:A;KKLEINSTE(WENN((A:A<>0)*(A:A<>"");ZEILE($1:$1810));ZEILEN(A$2:A3)));"")}
Ich möchte aber das er mir nur die Werte wiedergibt die dem Monat und Jahr entsprechen welche ich z.B. in Spalte H1 = Monat und H2 = Jahr eingebe.

Habs bis jetzt nicht hinbekommen und verzweifele langsam...

Für eure Hilfe wäre ich euch sehr danke bar.

Ich hoffe, das ich mich verständlich genug ausgedrückt habe

Viele Liebe Grüße
Euer Fraggle

Seiten: [1]

Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Menü

An- und Abmelden

Partner / Links