Private Sub btn_send_Click()

    Dim Pflichtbereich As Range
    Dim Anzahl As Integer
    
Set Pflichtbereich = Worksheets("order#1").Range("C7,C9:C11,C14:C18,C20:C22")
Anzahl = Pflichtbereich.Cells.Count

If Application.WorksheetFunction.CountA(Pflichtbereich) <> Anzahl Then
MsgBox "Bitte füllen Sie zuerst alle Pflichtfelder aus !", vbOKOnly + vbInformation, "Kontrollieren Sie alle Aufträge"

Else
  Send_Mail_de
End If
End Sub

Hallo miteinander,

Ich will an der Stelle, die dick ist nicht nur die Tabelle mit order#1 durchsuchen, sondern alle order# Tabellen die je nach Anwendung variabel ist. Manchmal geht sie nur bis 3 und manchmal bis 15 hoch. Wie kann ich also die Worksheets so definieren, dass Sie mir alle Worksheets durchsucht, die mit der Zeichenfolge order# beginnt?