Summe aus Zellen mit Buchstaben und Zahlen

[LCohen]

die von LCohen geht ja erst ab Excel 2016

Excel 365 - Aboversion - soweit ich weiß, haben die Excel-Kaufversionen TEXTVERKETTEN noch nicht.

Wie gesagt: LO kostet nichts und hat es (heißt dort VERBINDEN).

Hier Link zu Docs (TEXTJOIN) - mundgerecht für träge Threaderöffner

[MisterBurns]

Ja, ich war zu faul zum Ausbessern  :19:

[Tyler]

Hi,

das verstehe ich nun wieder nicht, wie behauptet wird, dass das für mich funktionierende lösungen sind.
Die hilfspalte ist gut und wie geschrieben werde ich versuchen dies umzusetzen.
Und die VBA würde natürlich auch gut funktionieren, nur das der Textanteil geschlöscht wird war nicht vorgesehen.
Ich bin wirklich dankbar für unterstützung, in diesem Fall hat mich einfach interessiert ob es eine direkte Formel Lösung gibt unterhalb der Reihe.
(Da ich eigentlich immer Formeln vor VBA bevorzuge), ich möchte allerdings niemanden zu nahe tretten nur weil sein Lösungsansatz nicht der richtige weg ist. (Viele Wege führen nach Rom)
Vielleicht auch weil ich mich nicht sauber ausgedrückt habe.

Sorry und Danke
Tyler

[MisterBurns]

Als Anregung noch: Eine Hilfsspalte muss ja nicht zwangsläufig neben der eigentlichen Spalte liegen. Die kann man ja auch außerhalb des Bereichs legen, in welchem man arbeitet und sie ausblenden. So kriegt der User nichts davon mit. Die Summe bezieht sich dann halt auf die ausgeblendete Spalte und kann trotzdem unter der eigentlichen Spalte stehen.

[Tyler]

Hallo,

ich habe mich an der Formel von MisterBurns versucht.
Allerdings werden mir der Zeillen Zahlen ausgegeben ... das Liegt wohl daran das ich die VBA über eine hilsspalte laufen lasse, sprich in der zelle AD steht =D14 un gibt F3,5 aus nach VBA steht dann =14, eigentlich sollte dort 3,5 stehen.
Kann man das irgendwie umgehen? Das mir wirklich nur das Zahlen format ausgibt, manche zahlen kombinationen werden auch in Datum oder Uhrzeit umgewandelt. Und kann der Code auch mehre Spalten abgriefen z.B. AD AE AF AG ...

Danke euch

Gruß
Tyler

[MisterBurns]

Ohne eine Testdatei mit Werten ist das nicht zu beantworten.

[Tyler]

Hi,

natürlich, meine Schuld hier mit Datei.
Ich hatte zuerst versucht mit den Formeln von Ralf´s Links und der Hilfsspalte zuarbeiten,(beispiel Zelle AQ4) dass hat auch funktioniert aber die Datei war nach jedem Eintrag Sekunden lang am berechnen das die Datei nicht nutzbar war..
Da es im Original ca 500 Spalten sind mit einer unterschiedlich Zeilen zahl, da immer Zeilen gelöscht oder hinzugefügt werden könnten. Somit wollte ich MisterBurns VBA über die Hilfspalte laufen lassen und die Summe unter den eigentlichen Spalten einfügen.

[MisterBurns]

Mein Code funktioniert tadellos, nur darfst du deine Hilfsspalten nicht mittels Formel verknüpfen. Denn dann löscht der Code die Buchstaben aus den Formeln, somit wird aus "=C4" dann "=4".
Ergo: Kopiere den Bereich und füge die Hilfsspalten als feste Werte ein.

[Tyler]

Hi,

ja, der Funktioniert.
Allerdings sind die werte nicht fix in der Tabelle, die können immer wieder geändert werden.
Somit muss ich die Zellen verknüpfen um immer eine Aktuelle Summe zu haben.

Gruß
Tyler

[MisterBurns]

Nein, musst du nicht. Du kannst mit Ausführung des Makros die Hilfsspalten jedes mal einfach neu kopieren (als Werte, nicht als Verknüpfung). Somit hast du immer die aktuellen Werte summiert. Der Code dafür kann zB so aussehen:

Code:

Sub Ersetzen()
Dim i As Integer, lastCol As Long, lastColNew As Long, firstColNew As Long, firstCol As Long
Dim firstRow As Long, lastRow As Long

firstRow = 3            'Erste Zeile inkl. Überschrift
firstCol = 2            'Erste Spalte
lastRow = Cells(Rows.Count, firstCol).End(xlUp).Row            'Letzte Zeile ermitteln

lastCol = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column       'Ermitteln der letzten Spalte
firstColNew = lastCol + 3           'Ermitteln der ersten Spalte, in die die Werte kopiert werden

Range(Cells(firstRow, firstCol), Cells(lastRow, lastCol)).Copy Destination:=Cells(firstRow, firstColNew)            'Kopieren der Werte
lastColNew = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column        'Ermitteln dern neuen letzten Spalte

For i = 65 To 122
    Range(Columns(firstColNew), Columns(lastColNew)).Replace What:=Chr(i), _
    replacement:="", lookat:=xlPart, SearchOrder:=xlByRows          'Buchstaben aus Kopie entfernen
Next

For i = firstColNew To lastColNew
    Cells(lastRow + 1, i) = WorksheetFunction.Sum(Range(Cells(firstRow + 1, i), Cells(lastRow, i)))  'Spalten summieren
Next

Range(Cells(lastRow + 1, firstColNew), Cells(lastRow + 1, lastColNew)).Copy Destination:=Cells(lastRow + 1, firstCol)     'Summen auf Ursprungstabelle übertragen
Range(Columns(firstColNew), Columns(lastColNew)).EntireColumn.Delete            'Kopierte Spalten löschen

End Sub

Ich habe versucht, diesen so variabel wie möglich zu gestalten, da ich natürlich deine Datei nicht kenne, kann hier eine Anpassung notwendig werden.
Nach der Summenerstellung werden die Hilfsspalten alle wieder gelöscht.