Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Werte in Spalte um kürzen

Werte in Spalte um kürzen
21.12.2005 14:55:49
Peter
Hallo
In einem Sheet stehen in Spalte B und Spalte C ab Zeile 4 folgende Einträge
30.12.2005 abcd-x
30.12.2005 addx-x
31.12.2005 bddx-a
31.12.2005 cddy-b
... (Anzahl Zeilen ist variabel)
In Spalte B möchte ich nur das Datum und in Spalte C nur den String hinter dem Datum.
Wie ist das zu bewerkstelligen?
Danke für Feedback.
Peter
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in Spalte um kürzen
21.12.2005 15:00:26
Hajo_Zi
Hallo Peter,
Tabelle1
 ABC
1730.12.2005 abcd-x30.12.2005 abcd-x
Formeln der Tabelle
B17 : =LINKS(A17;10)
C17 : =TEIL(A17;11;LÄNGE(A17))
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  


Anzeige
AW: Werte in Spalte um kürzen
21.12.2005 15:00:30
Holger
Hallo Peter,
nimm:
=LINKS(B10;FINDEN(" ";B10))
bzw.
=RECHTS(B10;LÄNGE(B10)-FINDEN(" ";B10))
Holger
AW: Werte in Spalte um kürzen
21.12.2005 15:05:32
Peter
Hallo
Vielen Dank für die Rückmeldungen. Ich habe mich zuwenig klar ausgedrückt. Die Werte in den Spalten sind aus geschlossenen Dateien importiert worden (mit VBA). Die gesuchte Weiterbearbeitung muss auch mittels VBA gehen, das heisst die Daten in Spalte B und Spalte C müssen mit dem Teilstring überschrieben werden.
Danke für Feedback.
Peter
Anzeige
AW: Werte in Spalte um kürzen
21.12.2005 15:01:47
Daniel
Hi,
(obiges steht ab Zelle A4)
für das Datum (Zelle B4):
=links(A4;10)
für den String (Zelle C4):
=recht(A4;1)
Dann alles nach unten ziehen.
mfg Daniel
AW: Werte in Spalte um kürzen
21.12.2005 15:13:07
Hoffi
Hallo Peter,
ohne VBA so:
füge eine Spalte ein (Hilfsspalte)
Formel Zelle C1: =LINKS(B1;10)
Formel Zelle D1: =RECHTS(B1;6)
Dann kannst Du Spalte B ja wieder löschen und hast dann in B das Datum und in C den String. (vorher allerdings die Spalten C und D kopieren, Inhalte einfügen, Werte)
mit Makro würde es so aussehen:
in ein Modul schreibst Du:
Sub Links_Rechts() Columns("C:C").Select Selection.Insert Shift:=xlToRight Range("C1").Select ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],10)" Selection.AutoFill Destination:=Range("C1:C4") Range("D1").Select ActiveCell.FormulaR1C1 = "=RIGHT(RC[-2],6)" Selection.AutoFill Destination:=Range("D1:D4") Columns("C:D").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Columns("B:B").Select Selection.Delete Shift:=xlToLeft Range("B1").Select End Sub
Dann legst Du Dir nen Button an, legst das Makro drauf und fertig.
Rückmeldung wäre nett...
Grüße
Hoffi
Anzeige
AW: Werte in Spalte um kürzen
21.12.2005 15:30:05
Peter
Hallo Hoffi
Das hat klappt so; vielen Dank.
Peter
AW: Werte in Spalte um kürzen
21.12.2005 15:48:17
Peter
Irgendwie war ich noch nicht ganz zufrieden, und habe aufgrund der Rückmeldungen noch etwas gebastelt, so dass das ganze ohne Spalten einfügen und Spalten löschen funktioniert.
Gruss, Peter
Sub teilstring() ThisWorkbook.Activate Application.Goto reference:="R4C2" Do While ActiveCell <> "" ActiveCell = Left(ActiveCell, 10) ActiveCell.Offset(1, 0).Select Loop Application.Goto reference:="R4C3" Do While ActiveCell <> "" ActiveCell = Right(ActiveCell, 6) ActiveCell.Offset(1, 0).Select Loop End Sub
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige