Thema Datum  Von Nutzer Rating
Antwort
20.10.2017 13:46:05 Michael
NotSolved
Blau Summe-Formel in einen bestimmte Celle schreiben
 20.10.2017 15:53:50 Gast70117
NotSolved
23.10.2017 08:37:08 Gast33794
NotSolved
23.10.2017 15:49:51 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
20.10.2017 15:53:50		 Views:
598		 Rating:
     
Antwort:
  Ja
Thema:
Summe-Formel in einen bestimmte Celle schreiben

Hi,

ich würde mich so "einrichten"

Tabellenaufbau

 

Ereignisprozedur ins Klassenmodul der Tabelle

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

'Ausschluss
If Target.Column <> 3 Or Target.Offset(-1).Text <> "Bestellwert" _
   Or Target.Offset(3).Value = "" Then Exit Sub

Cancel = True
Const c_strF As String = "=SUM(R[3]C[3]:R[BOT]C[3])"
Dim rngU As Range, strF As String

   'Die Abstände lt. Muster immer mind. 1 Leerzeile
   Set rngU = Target.Offset(1).CurrentRegion
   Set rngU = rngU.Offset(1).Resize(rngU.Rows.Count - 1)
   strF = Replace(c_strF, "BOT", CStr(rngU.Rows.Count) - 1)
   Target.FormulaR1C1 = strF
End Sub

Immer wenn nötig - Doppelklick in die Zelle unter Bestellwert

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
20.10.2017 13:46:05 Michael
NotSolved
Blau Summe-Formel in einen bestimmte Celle schreiben
 20.10.2017 15:53:50 Gast70117
NotSolved
23.10.2017 08:37:08 Gast33794
NotSolved
23.10.2017 15:49:51 Gast70117
NotSolved