Excel - Eine Zellenberechnung

  • Problem
  • Lösung
  • Hinweis

Problem

Benötigen Sie ein Programm, das die Summe jedes Mal berechnet, wenn ich eine Zahl in eine Zelle schreibe. Zum Beispiel in Zelle A1, um die Zahl 1, 1200, 0, 50 und in Zelle B1, um die Summe von (1, 1200, 0, 50) zu berechnen

Wenn mir jemand helfen könnte,

Danke im Voraus.

Lösung

Solange es 3 Nummern und die gleiche Konfiguration gibt

erste Nummer Komma zweite Nummer Komma dritte Nummer

dann erhalten Sie mit dem folgenden Makro das Ergebnis in B1

Eine Formel kann aufgebaut werden, aber für mich wird es kompliziert.

Das Makro lautet:

 Untertest () Dim j, j1, k, k1, m, m1, nj = InStr (Bereich ("a1"). Wert, ", ") j1 = Left (Bereich ("A1"). Wert, j - 1 ) k = InStr (j + 1, Bereich ("A1"). Wert, ", ") k1 = Mid (Bereich ("A1"). Wert, j + 2, k - 4) m1 = Right (Bereich (" A1 "). Wert, Len (Bereich (" A1 "). Wert) - k) n = WorksheetFunction.Sum (j1, k1, m1) 'MsgBox n Bereich (" B1 ") = n End Sub 

Hinweis

Danke an venkat1926 für diesen Tipp im Forum.

Vorherige Artikel Nächster Artikel

Top-Tipps