Office: (Office 2013) Email nur versenden wenn Inhalt in Bereich

Hallo Zusammen,

in dem unten stehenden Code wird der Bereich A38:M51 per Mail versendet.
Leider auch wenn kein Text in dem Bereich eingetragen wird.
Wie muss man den Code ändern damit die Mail nur raus geht wenn auch etwas in dem Bereich eingetragen ist ?

Code:

Set olApplication = Nothing
        Set objEMail = Nothing
        Set objWorkbook = Nothing
        Set rng = Nothing
        
        Set rng = Worksheets("Testblatt").Range("A38:M51")
        
        Set olApplication = CreateObject("Outlook.Application")
        
        Set objEMail = olApplication.CreateItem(0)
        
        With objEMail
            
           .to = "XXXXXXXXXXXXXXXXXXXXXXXXX"
            .Subject = "Test"
            
            .HTMLBody = RangetoHTML(rng)
            
            'Call .Attachments.Add(strFilePath)
            
            Call .send
            
        End With
        
        Set olApplication = Nothing
        Set objEMail = Nothing
        Set objWorkbook = Nothing
        Set rng = Nothing

 

Hallo,

Code:

Sub Demo_Program()
   Dim olApplication As Object, objEMail As Object
   Dim rng As Range
  
   Set olApplication = Nothing
   Set objEMail = Nothing
   Set rng = Nothing
  
   Set rng = Worksheets("Testblatt").Range("A38:M51")
   If Not IstBereichLeer(rng) Then
  
      Set olApplication = CreateObject("Outlook.Application")
      Set objEMail = olApplication.CreateItem(0)
    
      With objEMail
        
         .to = "XXXXXXXXXXXXXXXXXXXXXXXXX"
          .Subject = "Test"
          .HTMLBody = RangetoHTML(rng)    '<==== Muss irgendwo codiert sein!
          'Call .Attachments.Add(strFilePath)
          Call .send
        
      End With
    
      Set olApplication = Nothing
      Set objEMail = Nothing
  
   End If
End Sub

Public Function IstBereichLeer(rngBereich As Range) As Boolean
  Dim Zelle As Range
  IstBereichLeer = True
  For Each Zelle In rngBereich.Cells
    If Not IsEmpty(Zelle.Value) Then
       IstBereichLeer = False
       Exit For
    End If
  Next Zelle
End Function

 

Hi,

wenn in dem Bereich absolut nichts steht, also auch keine Formeln, dann geht das ganz einfach so:

Code:

    Set rng = Worksheets("Testblatt").Range("A38:M51")
    If Application.CountA(rng) = 0 Then
        MsgBox "Bereich A38:M51 ist leer"
        Exit Sub
    End If

---

 

Hallo ,

danke für Eure Hilfe.
Habe mich für Variante 1 entschieden.

Schönen Sonntag.