Office: (Office 365) VBA an Office 2016 anpassen

Hallo,
leider kann ich das von mir erstellte Script auf Arbeit nicht anwenden, da wir dort noch mit 2016 arbeiten.
Die fett markierte Zeile wird von Office 2016 nicht erkannt, jmd. eine Idee wie ich diese entsprechend anpassen kann? Es soll eine Abfrage gemacht werden ob die Tabelle B3:I10 leer ist oder nicht.

Daaanke

Sub PDF_und_Senden()
Dim strPDF As String
Dim OutlookApp As Object, strEmail As Object

Set OutlookApp = CreateObject("Outlook.Application")
Set strEmail = OutlookApp.CreateItem(0)


If Application.WorksheetFunction.TextJoin("; ", True, Range("B3:I10")) <> "" Then
Sheets("ISO Pat. ").PageSetup.Orientation = 1
Sheets("ISO Pat. ").PageSetup.Zoom = False
Sheets("ISO Pat. ").PageSetup.FitToPagesWide = 1
Sheets("ISO Pat. ").PageSetup.FitToPagesTall = 1
ActiveSheet.ExportAsFixedFormat Type:=xiTypePDF, Filename:=ThisWorkbook.Path & "\Test.pdf", Quality:=x1QualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, Openafterpublish:=True

strPDF = ThisWorkbook.Path & "\Test.pdf"

With strEmail
.To = Range("K11") & "; " & Range("K12") & "; " & Range("K13") & "; " & Range("K14")
.Subject = "Test " & Format(Date, "DD.MM.YY")
.Body = "Test"
.Attachments.Add strPDF
.Send
Kill strPDF
End With

Else

With strEmail
.To = Range("K11") & "; " & Range("K12") & "; " & Range("K13") & "; " & Range("K14")
.Subject = "Test " & Format(Date, "DD.MM.YY")
.Body = "Test"
.Send
End With

End If


Set OutlookApp = Nothing
Set strMail = Nothing

End Sub

 

Hi,

was verstehst du unter "ob die Tabelle B3:I10 leer ist oder nicht" - müssen alle Zellen in diesem Bereich gefüllt sein? Wenn ja, dann kannst du das z.B. so prüfen:

Code:

    If Application.CountA(Range("B3:I10")) = 64 Then

Sind es weniger Zellen, musst du die Zahl 64 entsprechend anpassen.

---

 

Moin!
Warum der seltsame Umweg über TEXTVERKETTEN?
Dafür gibt es ANZAHL, ANZAHL2 oder ANZAHLLEEREZELLEN.
Mit VBA meinethalben
Range(xyz).SpecialCells(xlCelltypeConstants).Count
oder xlCelltypeBlanks

Gruß Ralf

 

Ich bin Anfänger und habe mir alles zusammengesucht, daher wahrscheinlich der Umweg.
@Beverly
Sobald in der Tabelle etwas steht, egal wo, soll eine PDF erstellt werden andernfalls wird nur eine Mail generiert ohne Anhang.

@RPP63_neu
Wie müsste die Zeile aussehen, wenn ich es so einsetze dann erhalte ich immer eine Fehlermeldung
Range(B3:I10).SpecialCells(xlCelltypeConstants).Count

 

Dann schreibe die Zeile einfach so:

Code:

If Application.CountA(Range("B3:I10")) <> 0 Then

---

 

Der Bereich in Range() gehört in die Füße der Gänse "":

Code:

If Range("B3:I10").SpecialCells(xlCelltypeConstants).Count Then

 

Vielen Dank :-)
klappt so wie ich es will, dann hoffe ich mal das es auch unter Office 2016 funktioniert. Werd ich morgen testen.

 

Also ich benutze Excel2016 und mein Code funktioniert dort völlig problemlos. Der aus Beitrag #6 dagegen gibt einen Laufzeitfehler aus, wenn alle Zellen leer sind - ist wahrscheinlich in allen Excel-Versionen der Fall...

---

 

Ja, das ist so, Karin!
Ich gehe aber mal davon aus, dass Du weist, dass mir Fehlerbehandlung bekannt ist.
Bevor Du antwortest:
Ich hatte drei Funktionen angesprochen, die SpecialCells waren nur on top.

 

Dir ja, aber dem(der) Fragesteller(in) wohl eher nicht, da Anfänger...

---