ich habe folgendes Problem:
In dem Code, den ich angefügt habe, ist eine Messagebox vorhanden, in die jeweils IngZahlNeu und IngZahlAlt angezeigt werden sollen, jedoch bekomm ich das nicht hin.
Außerdem ändert sich beim Einfügen die Zellenfarbe, in dem Fall wird sie wieder weiss. Sie soll aber die Farbe behalten, die ihr gegeben wurde (Ist nicht immer die Gleiche).
Kurz zum Code:
Man "doppelklickt" eine Zelle und schneidet ihren Wert aus.
Doppelklick in eine beliebige andere Zelle und der Wert wird dort eingefügt, wenn die _
ausgeschnittene Zahl größer ist, als die Zahl in der Zielzelle.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim MyRange As Range
Dim lngZahlNeu As Long
Dim Neu As Integer
Dim Alt As Integer
If bolCut Then
lngZahlNeu = Range(Target.Address)
If (lngZahlNeu & IngZahlAlt
Range(Target.Address) = lngZahlAlt
bolCut = False
Cancel = True
Else
MsgBox "Nicht überschrieben!" & IngZahlNeu
lngZahlAlt = Null
bolCut = False
Cancel = True
End If
Exit Sub
End If
Set MyRange = Range("C5:J12") 'AUF DEINE RANGE ANPASSEN, IN WELCHER DIE ABFRAGE STATTFINDEN _
SOLL
If (Not Intersect(Target, MyRange) Is Nothing) And (bolCut = False) Then
If (Target.Cells.Count = 1) Then
lngZahlAlt = Range(Target.Address)
Range(Target.Address).Clear
bolCut = True
Cancel = True
End If
End If
End Sub
Das Fett gedruckte habe ich selbst ergänzt, jedoch ohne ErfolgGruß
Patrick