AW: Gültigkeit von Zellen
21.08.2006 11:59:44
Zellen
Hallo Mirke , so gehts.
Die erste Zelle wird nicht berücksichtingt und auch nur Spalte A
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim cb
Dim x As Integer
For x = 2 To Cells(Rows.Count, 1).End(xlUp).Row
zahlmitpunkt = Cells(x, 1)
zahllänge = Len(zahlmitpunkt)
If InStr(zahlmitpunkt, ".") Then
Else
MsgBox ("abbruch kein Punkt vorhanden")
Exit Sub
End If
zahlohnepunkt = Mid(zahlmitpunkt, 1, zahllänge - 1)
If zahlohnepunkt < 1 Or zahlohnepunkt > 31 Then
MsgBox ("keine oder falsche Zahl in dem Breich"), vbCritical, "Datei wird nicht gespeichert"
Cancel = True
Exit Sub
End If
wert = Mid(zahlmitpunkt, zahllänge, 1)
If wert = "." Then
'alles ok
Else
MsgBox ("keine Punkt"), vbCritical, "Datei wird nicht gespeichert"
Exit Sub
End If
Next
End Sub
Rückmeldung ob erfolgreich wäre nett!