Zelleninhalt teilen per VBA

Testo · 2018-07-16T14:21:02+00:00

Hallo würde gerne den Zelleninhalt teilen. Der Inhalt ist ohne Leerzeichen und gar nichts Im Grunde Steht immer in Spalte A Datum + Vier Buchstaben 180716TEST Das Makro sollte dann in Spalte B neben der Spalte A (Also A1 dann B1, A2 dann B2) das Datum eintragen Am besten gleich im Datumsformat Das würde heißen das nach dem Makro in Spalte A nur noch TEST drin steht und in Spalte B dann 16.07.18 Danke :)

Auch wenn du eine erneute AW an Chris bisher schuldig geblieben bist, „Testo“,
will ich evtl weniger dir, aber ggf anderen Interessenten eine relativ einfache Fml-Alternative ohne VBA-SubProzedur (man muss ja nicht für jeden Klacks eine eigene schreiben, vor allem, wenn man das nicht selber kann!) vorstellen. Die beiden, auf dein Problem passenden Fmln lauten wie folgt:
C1:=TEIL(A1;7-6*(D1="");99)
D1:=WENNFEHLER(--TEXT(--LINKS(A1;6);"2000-00-00");"")
Diese kann man in beliebigen (Hilfs-)Spalten parallel zu den Zeilen von Spalte A unterbringen (hier C und D). Anschließend könnte man ihre Ergebnisse als Werte auf A:B aufkopieren. Damit wären dann aber sowohl Fmln als auch OriginalWerte weg.
Wollte man Letztere sicherheitshalber bewahren (und im NebenEffekt dann natürlich auch die Fmln) und trotzdem alles in den Spalten A:B realisieren, müssten die OriginalWerte in die Fmln eingebettet wdn. Das kann man folgendermaßen erreichen (kann man auch mit einer VBA-Prozedur machen):
1. Parallel zu den Werten in A in B folgd Fml eintragen/-kopieren: ="#"""&A1&"""§"
2. Deren Ergebnisse kopieren und als Werte auf beide Spalten A:B aufkopieren, so dass dann in der jeweils 1.Zelle nur noch bspw #"180716TEST"§ steht.
3. Jetzt per Xl-Methode Ersetzen erst die §-Zeichen nach den OriginalWerten gg die rechten Fml-Teile austauschen, wobei die Fml für A etwas modifiziert wdn muss, um sie anpassungsfähig zu halten:
A-§ → ;7-6*(index(B:B;zeile())="");99)
B-§ → ;6);"2000-00-00");"")
4. Jetzt die #-Zeichen vor den OriginalWerten gg die linken Fml-Teile austauschen, unbedingt mit B beginnend, da Xl dann sofort rechnet (bei automatischer Berechnung) und sich die Fml in A auf B bezieht:
B-# → =WENNFEHLER(--TEXT(--LINKS(
A-# → =TEIL(
5. Die beiden Fmln in A:B geben jetzt das Gewünschte wieder und lauten bspw so:
A1:=TEIL("180716TEST";7-6*(INDEX(B:B;ZEILE())="");99)
B1:=WENNFEHLER(--TEXT(--LINKS("180716TEST";6);"2000-00-00");"")
Damit wären die OriginalWerte sogar 2× bewahrt und trotzdem die Daten nach Wunsch aufgeteilt worden. Sollen die OriginalWerte wiederhergestellt wdn, ist analog, aber in umgekehrter Reihenfolge zu verfahren.
Falls eine Wiederholung des Bezugs auf die OriginalWerte und damit deren mehrfache Wiederholung in der sie einschließenden Fml mal unumgänglich sein sollte, kann man sich auch mit einer einfachen „ErinnerungsFkt“ (VBA-gestützte UDF*) behelfen, die in der Fml das 1.Auftreten des Bezugs als Argument verwendet und dann ohne Argument statt aller anderen Bezüge auf den OriginalWert eingetragen wird.
Mit diversen UDFs aus dem Archiv lassen sich idR auch kompliziertere Fälle als dieser auf analoge Weise bewältigen, zB Notation eines Datums an beliebiger Position innerhalb eines Textes.
* Bspw UDF Rmd (Vs1.1): https://www.herber.de/forum/archiv/1592to1596/t1592543.htm#1592585
Feedback nicht unerwünscht! Gruß, Luc :-?
„Die Intelligenzmenge ist auf diesem Planeten eine Konstante, die Bevölkerung nimmt aber zu!“ Auch deshalb informieren mit …

Hi
ich würde hier VBA mit Formeln kombinieren, dh auch per VBA würde ich die entsprechenden Formeln in die Zellen schreiben und dann die Formeln durch Werte ersetzen.
hat den Vorteil, dass es sehr schnell ist, außerdem einfach zu programmieren und zu testen (keine Schleifen, die man in Einzelstep durchtickern muss und man sieht sofort alle Ergebnisse, die man überprüfen kann.

With Range("A1:A" & Cells(rows.count, 1).end(xlup).row).Offset(0, 1).Resize(, 2)
.Columns(1).FormulaR1C1 = _
"=IF(LEN(SUBSTITUTE(RC1],"" "",""""))=10,RIGHT(RC1,4),RC1])"
.Columns(2).FormulaR1C1 = _
"=--IF(LEN(SUBSTITUTE(RC1,"" "",""""))=10,TEXT(--LEFT(RC1,6),""2000-00-00""),"""")"
.Formula = .Value
end with
Columns(1).Delete

funktioniert allerdings nur für Datumswerte ab Jahr 2000.
wenn es in der Spalte keine Ausnahmen gibt alle Zellen auf diese weise umgearbeitet werden müssten, ließe sich das auch sehr elegant mit TEXT IN SPALTEN erledigen. Allerdings werden dann alle Werte nach dem 6. Zeichen getrennt:

Columns("A:A").TextToColumns Destination:=Range("A1"), _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 5), Array(6, 1))

Gruß Daniel

Forumthread: Zelleninhalt teilen per VBA

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Zelleninhalt teilen per VBA

Forumthread: Zelleninhalt teilen per VBA

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread