Thema Datum  Von Nutzer Rating
Antwort
19.11.2016 18:44:07 Marco
NotSolved
Blau Excel Eingaben prüfen
 19.11.2016 21:42:59 Gast16185
NotSolved
20.11.2016 23:35:10 Gast82591
NotSolved
22.11.2016 21:05:42 Nobody
NotSolved

Ansicht des Beitrags:
Von:
Gast16185		 Datum:
19.11.2016 21:42:59		 Views:
654		 Rating:
     
Antwort:
  Ja
Thema:
Excel Eingaben prüfen

In etwa so (wenn Bereich zusammen liegend).

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim i As Long
  With Worksheets("Tabelle 1")
    For i = 46 To 75
      If Not IsEmpty(.Cells(i, "B")) Then
        If WorksheetFunction.CountA(.Cells(i, "B").Resize(, 12)) < 12 Then
          Cancel = True
          Call MsgBox("Bitte alle Felder ausfüllen", vbExclamation)
          Exit Sub
        End If
      End If
    Next
  End With
 End Sub

 

Gruß

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
19.11.2016 18:44:07 Marco
NotSolved
Blau Excel Eingaben prüfen
 19.11.2016 21:42:59 Gast16185
NotSolved
20.11.2016 23:35:10 Gast82591
NotSolved
22.11.2016 21:05:42 Nobody
NotSolved