Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einzelwerte aus Summen kopieren

Forumthread: Einzelwerte aus Summen kopieren

Einzelwerte aus Summen kopieren
19.05.2008 14:58:00
addi
Hallo zusammen.
Ich habe ein Excelsheet in dem in sehr viele Summen-Zellen vorhanden sind.
In einer Zelle steht z.B.: "=2,54+3,65+9,57-4,56-2,36-3,25....." (bis zu 250 einzelne Werte in einer Zelle.
Ich müsste mir diese Werte alle untereinander anzeigen lassen können, sodass jeder Wert mit dem korrekten Vorzeichen in einer Zelle, z.B.: von A1-A251 steht.
Gibt es hierzu eine Funktion? Oder Formel?
Vielen Dank.
Gruß addi

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einzelwerte aus Summen kopieren
19.05.2008 15:12:14
Daniel
Hi
nicht direkt, sowas müsste man mit VBA programmieren.
von Hand könnte folgende Vorgehensweise funktionieren:
1. aus der Formel das "="-Zeichen durch das Hochkomma "'" ersezten (Formel in Text umwandeln)
2. Per BEARBEITEN - ERSETZEN in der Zelle alle "+" durch ";+" und alle "-" durch ";-" ersezten (Trennzeichen einfügen)
3. die Zelle per DATEN - TEXT IN SPALTEN in Einzelwerte auflösen, dabei "getrennt" wählen und ";" als Trennzeichen auswählen
4. die neuen Zellen kopieren und per BEARBEITEN - INHALTE EINFÜGEN - TRANSPONIEREN von der horizontalen Ausrichtung in die vertikale Ausrichtung bringen.
Gruß, Daniel

Anzeige
AW: Einzelwerte aus Summen kopieren
19.05.2008 15:28:00
addi
Vielen Dank für die schnelle Antwort.
Leider spreche ich alledings über viele Summen an die 150 Stck. - da wäre mir ein Automatismus lieber.
Wenn nötig auch eine Makro!!?
Trotzdem vielen Dank!!
Gruss addi

AW: Einzelwerte aus Summen kopieren
19.05.2008 15:34:00
ransi
HAllo Addi
Vom Prinzip her so:
(Die Umsetzung von Daniels Vorschlag...)
Option Explicit


Public Sub test()
Dim strS As String
Dim varSplit As Variant
strS = "=2,54+3,65+9,57-4,56-2,36-3,25"
strS = Replace(strS, "=", "")
strS = Replace(strS, "+", ";+")
strS = Replace(strS, "-", ";-")
varSplit = Split(strS, ";")
Range("A1").Resize(UBound(varSplit) + 1) = WorksheetFunction.Transpose(varSplit)
End Sub

Um das Ganze zu automatisieren müsste man wissen:
In welchen Zellen stehen die Werte ?
In welche Zellen sollen die einzelnen Werte geschrieben werden ?
ransi

Anzeige
AW: Einzelwerte aus Summen kopieren
19.05.2008 15:54:00
addi
Hallo Ransi,
Dein Ansatz scheint mir bisher am praktikabelsten.
Allerdings müsste ich anstatt der Zeile...
strS = "=2,54+3,65+9,57-4,56-2,36-3,25"
...die Zelle wo die Werte drin stehen: z.B. A1 hinterlegen können.
Dann wäre es die Lösung meines Problems.
Hast Du da noch eine Idee?
Danke!
Gruss, addi

Anzeige
AW: Einzelwerte aus Summen kopieren
19.05.2008 15:59:33
ransi
HAllo
Hm...
strS = Sheets("Tabelle1").Range("A1").Text ?
ransi

AW: Einzelwerte aus Summen kopieren
19.05.2008 15:37:08
Daniel
Hi
naja, bei VBA nein dachte ich, ne Nicht-VBA-Lösung wäre dir lieber.
wenn die summen alle untereinander stehen, dann kannst du mit der von mir beschriebenen Methode auch alle auf einmal umwandeln, das geht schon. (du musst dann auch das Gleichheitszeichen mit der ERSETZEN-Funktion ersetzen)
Gruß, Daniel

Anzeige
AW: Einzelwerte aus Summen kopieren
19.05.2008 15:39:51
David
Hi.

Sub Makro1()
Range("A1:A9").Replace What:="=", Replacement:="'", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1:A9").Replace What:="+", Replacement:=";+", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1:A9").Replace What:="-", Replacement:=";-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1:A9").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)),  _
_
TrailingMinusNumbers:=True
End Sub


Das zeichnet der Makrorecorder für die von Daniel beschriebenen Arbeitsschritte auf. Die Range-Anweisung müsste man natürlich entsprechend deiner Tabelle anpassen, aber ansonsten sollte das so klappen.
Gruß
David

Anzeige
AW: Einzelwerte aus Summen kopieren
19.05.2008 16:52:35
Renee
Hi Addi,
Ich hab mal Ransi's Sub in eine UDF umgewandelt.
Diese in ein Modul kopieren:

Public Function AbsolutWerteTeilen(InputZelle As Range, lX As Long) As Double
Dim strS As String
strS = InputZelle.Formula
strS = Replace(strS, "=", "")
strS = Replace(strS, "+", ";+")
strS = Replace(strS, "-", ";-")
AbsolutWerteTeilen = CDbl(Split(strS, ";")(lX))
End Function


Beispiel: Summe ist in Zelle C1
In A1 die Formel =AbsolutWerteTeilen($C$1;ZEILE()-1) und runterkopieren, bis #WERT angezeigt wird.
GreetZ Renée

Anzeige
AW: Einzelwerte aus Summen kopieren
19.05.2008 16:51:46
addi
DANKE AN ALLE!!!
Ich habe eine praktikable Methode gefunden!!
Gruss addi

AW:und die wäre?
19.05.2008 20:57:44
Daniel
ist es eine von den hier vorgeschlagenen?
oder ganz was anderes?
würde mich schon interessiern, schließlich wollen wir auch was dazu lernen.
Gruß, Daniel
;

Forumthreads zu verwandten Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
kopieren in eine zelle aus einer erstellten liste
Merle


Ich habe ein Promblem. Und zwar habe ich ein Formular erstellt indem es eine Liste gibt. Ich möchte nun den jeweils ausgesuchten Lieferanten in eine andere Zelle kopieren. Dies wäre kein Problem, wenn es immer die gleich Zelle wäre aber die Zelle unter der A16 Zelle ändert sich ja nach aus...
05.09.2008 13:01:59
Thread-ID: 1007653
4 Beiträge
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Bestimmte Werte aus einer Zelle herausfiltern
G_G

Hallo zusammen.
Ich habe in einer Zelle einen etwas längeren Text (mit Zahlen und Buchstaben). Ich würde jetzt gerne hieraus den Wert rausfiltern (in separate Spalte), der neben der Buchstabenkombination "AT" steht.
Hört sich einfach an. Da gibt es aber noch einige Sonderfälle.
Ich...
15.09.2008 12:03:00
Thread-ID: 1009747
5 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Wert aus Zelle holen für VBA
Oliver

Hallo eine kleine Frage,
wollte folgendes umsetzen, ein Benutzer fügt in der Excelobelfläche im ersten Blatt eine Zahl ein. Diese soll jetzt wie folgt verwendet werden:
falls ... größer als dem Zellinhalt, dann ...
meine Idee:
Dim Wert As Integer
Wert = cells(20, 2)
If.....
25.09.2008 10:06:31
Thread-ID: 1012241
6 Beiträge
Werte aus einer anderen xls-File kopieren
Horst

Hallo zusammen,
folgendes Problem stellt sich mir:
Ich will aus einer anderen Mappe mehrere Zeilen und Zellen kopieren. Je nachdem welche Mappe der Benutzer haben will, wird diese geöffnet und die gewünschten Daten kopiert.
Hier mein Ansatz:
Code:
Sub Kopieren()
Di...
08.10.2008 10:43:00
Thread-ID: 1014931
2 Beiträge
Drei Zellen auswerten
Hanspeter

Hallo zusammen,
Wie kann ich Werte aus drei Zellen kombinieren und auswerten.
Beispiel
In der Zelle A1 können 6 mögliche Farben stehen. (rot, blau, grün, ….)
In der Zelle B1 können 6 mögliche Formen stehen (rund, oval, …….)
In der Zelle C1 können 5 mögliche Materialien stehe...
20.10.2008 09:31:03
Thread-ID: 1017582
9 Beiträge
Wert aus Zelle übernehmen und behalten
Martin

Hallo Zusammen
Folgende Situation:
Habe eine Liste aus 4 x 2200 Zeilen mit Zahlenwerten die zum Teil auch via Formel berechnet werden.
Nun habe ich festgestell, dass ich bei einer Spalte leider einen falschen Wert erfasst habe.
Kann ich via Makro oder mit einer Formel einen Zel...
07.11.2008 09:59:13
Thread-ID: 1022545
3 Beiträge
Anzeige
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 Beiträge
Anzeige
Wert vom ausgewählten Filter in Zelle
Kurt

Hallo nochmal,
ich möchte gern den Wert vom Filter in die Zelle N1 setzen.
Hatte dies
Selection.AutoFilter Field:=4, Criteria1:=wert
ActiveSheet.Range("N1").Select = wert
mfg Kurt P
01.12.2008 15:41:00
Thread-ID: 1029285
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige