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.