exstrike mit Summenprodukt Zahl und Text
07.12.2021 16:55:21
MaMe
ich habe eine Tabelle in der Zahlen (von 1,00 bis ggf. 164.000,55) gelistet sind - die Zahlen stehen oft alleine, ab und zu ist (soll) jedoch auch ein Hinweistext/Kürzel mit drin (sein) - und es sind nicht alle Zellen gefüllt, viele Zellen sind leer (also 'echt' leer ;-) )
zum einen sollen die Zahlen in einer Zeile addiert werden - das habe ich mit =SUMMENPRODUKT(--LINKS(G5:NG5;5)) hinbekommen - auch wenn ich dadurch zuerst leere Zellen mit einer 0 füllen muss. Definitiv keine schöne Lösung, aber es würde funkionieren...
zum anderen sollen die Zahlen in einer Spalte addiert werden - allerdings 'nur' die, die nicht durchgestrichen sind - das klappt mit =exstrike($B5:$B500) - zumindest solange kein Text in der Zelle mit drin ist
Sinn des Ganzen ist, das mir der Spaltenwert anzeigt wieviel an diesem Tag noch 'offen' ist, während mir die Zeilensumme den 'Jahresaufwand' anzeigt
Bislang habe ich Text immer als Textfeld eingefügt, ist aber suboptimal, weil in der Handhabe aufwändig beim Anlegen, löschen, Zeilen/Spalten ausblenden - deshalb würde ich gerne Text von 3 bis 8 Buchstaben in die jeweilige BetragsZelle mit dazuschreiben
Gibt es eine Möglichkeit =exstrike (VBA-Code hinterlegt) und =SUMMENPRODUKT(--LINKS.....) miteinander zu verbinden ?
Bzw eine andere Möglichkeit die 'nicht durchgestrichenen' Spaltenwerte zu addieren - speziell wenn Zellen auch zusätzlich Text enthalten können ?
Wäre super wenn mir jemand hier weiterhelfen könnte...
Gruß MaMe
Hier noch der VBA-Code (ich glaub im Forum gefunden):
Public Function ExcStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If Not pRng.Font.Strikethrough Then
xOut = xOut + pRng.Value
End If
Next
ExcStrike = xOut
End Function