ich habe nun soweit meine Tabelle fertig nun soll noch ein Reset Button rein. Ich hab da zwar aus Probiert nur leider klappt das nicht so ganz.
Kann mir jemand sagen wo das Problem bzw. der Fehler liegt?
Danke
so sieht das aus
Public Sub add(ByVal wert As Integer)
Dim zelle As Range
On Error GoTo Error:
Set zelle = Sheet1.Range(Sheet1.Range("J2").Value)
If Not Intersect(zelle, Sheet1.Rows("1:3")) Is Nothing Then GoTo Error
If IsEmpty(zelle) Or IsNumeric(zelle) Then
zelle = zelle + wert
Else
GoTo Error
End If
GoTo ende
Error:
MsgBox "In der angegebenen Zelle ist eine Berechnung nicht moeglich!"
ende:
Set zelle = Nothing
End Sub
Private Sub CommandButton1_Click()
Dim zelle As Range
Set zelle = Sheet4.Cells(5, 1)
If IsEmpty(zelle) Or IsNumeric(zelle) Then
zelle = zelle + 1
End If
Set zelle = Nothing
End Sub
Private Sub CommandButton2_Click()
Dim zelle As Range
Set zelle = Sheet4.Cells(5, 4)
If IsEmpty(zelle) Or IsNumeric(zelle) Then
zelle = zelle + 1
End If
Set zelle = Nothing
End Sub
Private Sub CommandButton3_Click()
Dim zelle As Range
Set zelle = Sheet4.Cells(5, 7)
If IsEmpty(zelle) Or IsNumeric(zelle) Then
zelle = zelle + 1
End If
Set zelle = Nothing
End Sub
Private Sub CommandButton4_Click()
Dim zelle As Range
Set zelle = Sheet4.Cells([5, 7], [5, 4], [5, 1])
If IsEmpty(zelle) Or IsNumeric(zelle) Then
zelle = 0
End If
Set zelle = Nothing
End Sub
für eine Zelle geht das aber nicht für alle.