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

Ansicht des Beitrags:
Von:
Nobody		 Datum:
22.11.2016 21:05:42		 Views:
800		 Rating:
     
Antwort:
  Ja
Thema:
Excel Eingaben prüfen

Hallo Marco

wenn du dir den Code genau anschaust sieht man die Lösung sofort.  Ich zeige dir den Weg:  Aendern musst du es selbst:
Die gewünschten Zeilen stehen ja in der 2. For Schleife. (46-75)   Die Spalte ist "B"i kannst du in der 2. Schleife aendern Cells(i, "xx") 
Resize(1, 12) heisst, 12 Spalten nach Rechts.  Das musst duauf die kleinere Zahl aendern:  Cells(i, "B").Resize(, xx)) < xx Then
Dann sollte es klappen.  Probier es einfach mal aus.

mfg  Nobody

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim i As Long
  With Worksheets("Tabelle 1")
    For i = 46 To 75   'hier Zeilen 46-75
      If Not IsEmpty(.Cells(i, "B")) Then  'Cells Spalte B, Resize=12 Spalten rechts
        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
   
    For i = 46 To 75   'Zeilen anpassen
      If Not IsEmpty(.Cells(i, "B")) Then  'Cells Spalte ??, Resize=?? Spalten rechts
        If WorksheetFunction.CountA(.Cells(i, "B").Resize(, xx)) < xx Then
          Cancel = True
          Call MsgBox("Bitte alle Felder ausfüllen", vbExclamation)
          Exit Sub
        End If
      End If
    Next
  End With
 End Sub

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



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