VBA Code

Hallo guten Tag
ich hoffe Ihr könnt mir helfen.
Ich habe Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
der funktionirt
und Private Sub Worksheet_Change(ByVal Target As Range)
der auch
nun will ich beide zusammenhaben.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

' Überprüfen, ob die Spalte F (Spalten ) angeklickt wurde
If Not Intersect(Target, Range("f6:f17,m6:m17")) Is Nothing Then '--Aenderung in Range
' If Target.Column = 1 Then

' Verhindern, dass Excel in den Bearbeitungsmodus geht
Cancel = True
' Haken in die angeklickte Zelle setzen
Target.Value = Chr(252)
' Zelle links daneben (Spalte) löschen
' Target.Offset(0, -1).ClearContents '"00"
' Target.Offset(0, -2).ClearContents '"00"
'If Target = "B" Then Target.Offset(, -1) = "00"
Target.Offset(, -1) = "00"
Target.Offset(, -2) = "00"

' bis dahin alles super nun der code
' code aus Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("e6:e17")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Column Mod 5 = 3 Then
Debug.Print Target.Column Mod 2
Target.Value = Target.Value + Cells(Target.Row, Target.Column + 1)
Else
Cells(Target.Row, Target.Column - 1) = Target.Value + Cells(Target.Row, Target.Column - 1)
End If
Application.EnableEvents = True
End If
End Sub
was mache ich da falsch ?
LG Thomas

Hallöchen,

nun will ich beide zusammenhaben.

nur mal prinzipiell - das beide Ereignisse nicht gleichzeitig wirken, weist Du aber? Wenn Du was händisch änderst, wird nichts gemacht, wenn Du Change entfallen lässt.

' Überprüfen, ob eine Zelle in f6:f17 oder m6:m17 angeklickt wurde

If Not Intersect(Target, Range("f6:f17,m6:m17")) Is Nothing Then '--Aenderung in Range

  ' Verhindern, dass Excel in den Bearbeitungsmodus geht

  Cancel = True

  ' Haken in die angeklickte Zelle setzen

  Target.Value = Chr(252)

  'Zellinhalte in den beidne Zellen links daneben auf 0 setzen

  Target.Offset(, -1) = "00"

  Target.Offset(, -2) = "00

  'wenn es Spalte e betrifft

  If Intersect(Target, Range("f6:f17")) Then

    'was auch immer

  End If

End If

Dein

If Intersect(Target, Range("e6:e17")) Is Nothing Then Exit Sub

Application.EnableEvents = False 

If Target.Column Mod 5 = 3 Then

    Debug.Print Target.Column Mod 2

    Target.Value = Target.Value + Cells(Target.Row, Target.Column + 1)

  Else

    Cells(Target.Row, Target.Column - 1) = Target.Value + Cells(Target.Row, Target.Column - 1)

  End If

ist eigentlich Nonsens, denn Du verlässt Dein Change-Makro ja, wenn die Änderung nicht Spalte e betrifft ... Es kann also nur einen geben ;-)
Cells(Target.Row, Target.Column - 1) könntest Du auch wie zuvor mit Target.Offset(, -1) programmieren.
Ergebnis sollte dann immer der Wert von Spalte e sein - d und e setzt Du aber vorher auf 0. Du bräuchtest also nix zu berechnen und Dich über die 0 nicht wundern :-( ...

Logik ist oft alles - da braucht man (noch) keine Programmier-Kenntnisse ;-)

Forumthread: VBA Code

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Code

Forumthread: VBA Code

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread