Hallo Wissende,
ich habe - z. B. in A1 - zu stehen: =3+4 und möchte diese Zahlen „auseinandernehmen“, so dass in B1 die 3 steht und in C1 die 4. Bisher habe ich immer den gesamten Bereich nach C kopiert und dann mühsam per Hand in B die erste und in C die zweite Ziffer eingegeben.
Da gibt es doch sicher einen Weg über eine schlichte Formel? Bitte verratet mir den doch.
Danke schon mal,
Verena
Hallo,
ich habe nicht ganz verstanden: steht in A1 dann 7? Du hast ja eine Formel eingegeben.
Wenn in der Zelle 4+3 steht, dann kannst du über Daten, Text in Spalten die Spalte A aufteilen. Du kannst entweder das + als Trennungszeichen verwenden oder eine feste Breite einstellen.
Die mittlere der neu entstandenen Spalten (nämlich die mit den ganzen ±Zeichen) müsstest du danach weglöschen, aber das ist ja kein großer Aufwand.
Grüße
Anja
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Moin, Verena,
die Überschrift führt wohl in die Irre - wenn Du 3+4 in eine Zelle schreibst, dann steht anschließend darin eine 7, die lässt sich auf etliche Arten zerlegen: 1+6, 2+5, 3+4, 4+3, …
Meinst Du die Zerlegung eines Textfeldes? Das geht mit LINKS und RECHTS, für die Syntax schaust Du am besten in die Hilfe.
Gruß Ralf
Hallo Verena
___________________________________________________
Sub Makro1()
’
’ Makro1 Makro
’ Makro am 02.07.2007 von HPalmer aufgezeichnet
’
’
Range(„A1“).Select
ActiveCell.FormulaR1C1 = „3+4“
Range(„B1“).Select
ActiveCell.FormulaR1C1 = „=LEFT(RC[-1],1)“
Range(„C1“).Select
ActiveCell.FormulaR1C1 = „=RIGHT(RC[-2],1)“
Range(„A1“).Select
ActiveCell.FormulaR1C1 = „=3+4“
Range(„A1“).Select
ActiveCell.FormulaR1C1 = „3+4“
Range(„A1:C1“).Select
Selection.AutoFill Destination:=Range(„A1:C50“), Type:=xlFillDefault
Range(„A1:C50“).Select
ActiveWindow.ScrollRow = 1
Range(„D1“).Select
End Sub
_______________________________________________________
Mit diesem Makro kannst Du Deine Formel in A1 zerlegen.
Das geht natürlich auch wieder rückwärts.
Wenn Du in Spalte D schreibst: =A1+B1 bekommst Du wieder Das Ergebnis der Formel , nämlich die „7“ (in Deinem Beispiel).
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Danke für Makro - mT
Hallo Palmer,
vielen Dank für das schöne Makro (nicht, dass ich irgendwas davon verstehe, aber allein schon Deine Mühe find ich supernett)! Dein erster Vorschlag, die Zahlen zu erweitern, hätte bei der Menge der Felder leider ungefähr so lange gedauert wie das Abschreiben per Hand, daher bin ich für diese Hilfe doppelt dankbar.
Ich werde alle Vorschläge ausprobieren!
Sternchen und vielen Dank,
Verena
Erläuterung
Hallo Ralf,
die Überschrift führt wohl in die Irre …
Ja, sorry, was Besseres fiel mir nicht ein.
Meinst Du die Zerlegung eines Textfeldes?
Eigentlich nicht. In den ursprünglichen Zellen waren zwei Steigerungen zusammengefasst, die aber jetzt doch einzeln geschrieben werden sollten.
Also z. B. in Stufe 1 ist eine Steigerung von 3 möglich,
in Stufe 2 eine Steigerung von 4.
Da ursprünglich nur eine begrenzte Anzahl von Optionen da war, genügte das - jetzt sollen aber die in jeder Stufe möglichen Steigerungen einzeln dargestellt werden.
Uff, ist es jetzt etwas klarer?
Gruß Verena
Dank & nähere Erklärung
Liebe Anja,
ich habe nicht ganz verstanden: steht in A1 dann 7? Du hast ja
eine Formel eingegeben.
Ja, da steht 7 - es ging da um 2 Stufen, in denen jeweils verschiedene Steigerungen möglich waren. Anfangs war das sehr übersichtlich, darum standen beide Steigerungen in einer Zelle. Jetzt sollen aber die Steigerungen jeder Stufe gesondert angezeigt werden, darum muss das =3+4 in 3 und 4 (3 für Stufe 1, 4 für Stufe 2) getrennt werden.
Wenn in der Zelle 4+3 steht, dann kannst du über Daten, Text
in Spalten die Spalte A aufteilen. Du kannst entweder das +
als Trennungszeichen verwenden oder eine feste Breite
einstellen.
Das hört sich nach einer nicht nur schlichten und schönen, sondern sogar für mich verständlichen Vorgehensweise an 
)
Super, vielen herzlichen Dank und ein Sternchen!
Ich werde alle Vorschläge ausprobieren!
Verena
ich habe - z. B. in A1 - zu stehen: =3+4 und möchte
diese Zahlen „auseinandernehmen“, so dass in B1 die 3 steht
und in C1 die 4. Bisher habe ich immer den gesamten Bereich
nach C kopiert und dann mühsam per Hand in B die erste und in
C die zweite Ziffer eingegeben.
Da gibt es doch sicher einen Weg über eine schlichte Formel?
Bitte verratet mir den doch.
Hallo Verena,
du hast ja schon Lösungen. Mit Excel-Funktionen geht es wohl nur über links, rechts bzw Teil. Sollten die Zahlen mehrstellig sein müßte man noch in den Funktionen nach dem „+“ mit Finden suchen.
Mein Ansatz ist:
Option Explicit
Sub tt()
Dim lngZeile As Long, Formel
For lngZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Formel = Split(Mid(Cells(lngZeile, 1).FormulaLocal, 2), "+")
Range(Cells(lngZeile, 2), Cells(lngZeile, 3)) = Formel
Next lngZeile
End Sub
Gruß
Reinhard
Danke auch Dir, werd’s probieren * oT
Sternchen!