Excel 2013 VBA: Mal wieder Doppelklick

[sharky51]

Guten morgen Günther,

wow....das ist so was von toll....klasse...genau so sollte es sein!
Du, Ihr seid die Besten.....in diesem tollen Forum!!!

Das mit Union und Select Case ist cool.....

Vielen Dank dafür und einen schönen Sonntag noch!

[sharky51]

Hallo Günther,

wie man im Anhang sieht habe ich noch etwas weiter gebastelt.

Man kann jetzt unterschiedlich große Blöcke in den definierten Bereichen, die auch nicht zusammenhängend sein müssen, Werte aufaddieren.

Wo ich jetzt noch hänge ist dass ich nicht so richtig weiß wie eine Aufsummierung verboten werden kann wenn man einen Doppelklick
in einen der "SumErgebnisx"-Bereiche macht und die darüber liegenden Zellen der Spalte leer sind oder nur Text enthalten?
Siehe z.B. Spalte "A" oder Spalte "I".

Und noch etwas stört mich.
Nach der Berechnung durch den Doppelklick verharrt die Zelle im Bearbeitungsmodus....also der Cursor blinkt in der Zelle.
Wie kommt man aus dem Bearbeitungsmodus mit VBA heraus?

Vielleicht kannst Du mir nochmal eine Idee geben?

Vielen Dank!

[Rabe]

Hi,

Wo ich jetzt noch hänge ist dass ich nicht so richtig weiß wie eine Aufsummierung verboten werden kann wenn man einen Doppelklick

vielleicht kannst Du diese Bereiche sperren und dann das Blatt schützen? Damit dort gleich gar nicht hingeklickt werden kann.

Wie kommt man aus dem Bearbeitungsmodus mit VBA heraus?

füge als letzte Zeile in Dein Makro "SpaltenSumme" dieses ein:
 Range("A" & intRow).Activate

[Steffl]

Hallo Erich,

versuchs auch mal so

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim lCol As Integer
  Dim rngUnion As Range
  
  lCol = Cells(1, Columns.Count).End(xlToLeft).Column
  Set rngUnion = Application.Union(Range("SumErgebnis1"), Range("SumErgebnis2"), Range("SumErgebnis3"))
  If Not Intersect(rngUnion, Target) Is Nothing Then Call SpaltenSumme(Target.Row - 1, lCol): Cancel = True
End Sub

[sharky51]

Hi,


vielleicht kannst Du diese Bereiche sperren und dann das Blatt schützen? Damit dort gleich gar nicht hingeklickt werden kann.


füge als letzte Zeile in Dein Makro "SpaltenSumme" dieses ein:
 Range("A" & intRow).Activate

Hallo Ralf,

ja das passt. Vielen Dank für den Tipp.

[sharky51]

Hallo Erich,

versuchs auch mal so

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Dim lCol As Integer
 Dim rngUnion As Range
 
 lCol = Cells(1, Columns.Count).End(xlToLeft).Column
 Set rngUnion = Application.Union(Range("SumErgebnis1"), Range("SumErgebnis2"), Range("SumErgebnis3"))
 If Not Intersect(rngUnion, Target) Is Nothing Then Call SpaltenSumme(Target.Row - 1, lCol): Cancel = True
End Sub

Hallo Stefan,

leider ist das nicht die Lösung...das Cancel = True hat keinen Effekt.

Trotzdem vielen Dank!