AW: IsNumeric akzeptiert keine negative Zahlen
13.03.2014 11:58:46
Dip
Hmm... Anbei der ganze Code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngZeile1 As Long, lngZeile2 As Long, lngZeile As Long
Dim rngZelle As Range
On Error GoTo Beenden
Select Case Target.Column
Case gSpalteTotal, Is >= gSpalteJan1
Select Case Target.Row
Case Is >= gZeileProj1
If Me.ToggleButton1 = False Then
For Each rngZelle In Target.Cells
If Not IsNumeric(rngZelle.Value) Then
MsgBox "Als Eingabe sind in diesem Zellbereich nur Zahlen zulässig!" & vbNewLine & _
"Bitte Eingabe korrigieren oder löschen!", , _
"Daten zu Projekt neu berechnen"
Exit Sub
End If
Next
'1. Zeile Projekt ermitteln
lngZeile = Target.Row
lngZeile1 = lngZeile
Do Until Me.Cells(lngZeile1 - 1, 1) = ""
lngZeile1 = lngZeile1 - 1
Loop
'Letzte Zeile Projekt ermitteln
lngZeile = Target.Row
lngZeile2 = lngZeile
Do Until Me.Cells(lngZeile2 + 1, 1) = ""
lngZeile2 = lngZeile2 + 1
Loop
Call AdditionenVBAProjekt(Zeile1:=lngZeile1, Zeile2:=lngZeile2)
End If
End Select
End Select
Beenden:
With Err
Select Case .Number
Case 0 'alles OK
Case 13
MsgBox "#NV! (PSP-Element) - Bitte zuerst die Projektstruktur definieren damit Werte _
summiert werden können.", vbInformation + vbOKOnly, "Prüfung vollständige Projektstruktur"
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description, _
vbInformation + vbOKOnly, "Makro: Worksheet_Change"
End Select
End With
End Sub
Vielleicht hilft dies bei der Identifizierung des Fehlers!?
Danke und Grüsse
Patrick