Thema Datum  Von Nutzer Rating
Antwort
Rot Alle Worksheets (mit neu hinzugekommenen) untersuchen
 09.03.2021 09:53:53 Ozzi
Solved
09.03.2021 10:16:09 Gast9507
Solved

Ansicht des Beitrags:
Von:
Ozzi		 Datum:
09.03.2021 09:53:53		 Views:
662		 Rating:
     
Antwort:
 Nein
Thema:
Alle Worksheets (mit neu hinzugekommenen) untersuchen

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?

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Alle Worksheets (mit neu hinzugekommenen) untersuchen
 09.03.2021 09:53:53 Ozzi
Solved
09.03.2021 10:16:09 Gast9507
Solved