| Von |
r.mueller@sz-online.de |
| eMail |
|
| Am |
17. Oktober 2008 um 21:22:16 |
| Antwort |
Hallo
Nun erkläre ersr mal was du mit den + Zeichen bezwecken willst wie soll
der User damit arbeiten?
Wozu soll das gut sein?
Wie bewirkst du das das + Zeichen vor der Zahl bestehen bleibt?
Hast du die Zellen als Text formatiert?
teste dies mal mit deinen + Zeichen und dem Doppelclick:Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
If Target.Row = 6 Then
If InStr(1, Cells(1, 1).Text & Cells(2, 1).Text & Cells(3, 1).Text & Cells(4, 1).Text & Cells(5, 1).Text, "+", 1) > 0 Then
MsgBox "Da sind noch + Zeichen drin", , "Meckern Meckern"
Else
Cells(6, 1).Value = Val(Cells(1, 1)) + Val(Cells(2, 1)) + Val(Cells(3, 1)) + Val(Cells(4, 1)) + Val(Cells(5, 1))
End If
ElseIf Target.Row = 7 Then
If UBound(Split(Chr(0) & Cells(1, 1).Text & Chr(0) & Cells(2, 1).Text & Chr(0) & Cells(3, 1).Text & Chr(0) & Cells(4, 1).Text & Chr(0) & Cells(5, 1).Text, Chr(0) & "+", -1, 0)) <> 5 Then
MsgBox "Da fehlen noch Zellen mit + Zeichen ", , "Meckern Meckern"
Else
Cells(7, 1).Value = Val(Cells(1, 1)) + Val(Cells(2, 1)) + Val(Cells(3, 1)) + Val(Cells(4, 1)) + Val(Cells(5, 1))
End If
End If
Cancel = True
End If
End Sub Gruß
|
|
Zum Seitenanfang