Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA - 2. Bindestrich soll Zeilenumbruch sein
#1
Hallo zusammen,

ich habe folgendes Problem:
In einer Zelle steht
1-R-DE-1-A
Daraus soll werden (immer noch in einer Zelle)
1-R-
DE-1-A

Ich habe hier (http://ms-excel.eu/vba/vba-textbehandlun...bruch.html) schon gefunden, wie es prinzipiell geht, aber mir fehlt noch, dass es bei mir ja erst nach dem 2. Bindestrich kommen soll. Ich habe das auch schon mal als Makro aufgenommen:

ActiveCell.FormulaR1C1 = "1-R-" & Chr(10) & "DE-1-A"

Aber das soll halt auch generell funktionieren. Also nicht nur für diese Buchstabenkombination, sondern bei jedem label immer nach dem 2. Bindestrich. Und dann für alle befüllten Zellen meines Tabellenblatts. In diesem Tabellenblatt sind alle Einträge so formatiert:
1-R-DE-1-A
Und bei allen soll eben dieser Umbruch gemacht werden.

Habt ihr eine Idee?

Vielen Dank!
Antworten Top
#2
Hallo,



Code:
ActiveCell = Application.WorksheetFunction.Substitute(ActiveCell, "-", "-" & Chr(10), 2)
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top
#3
Thumps_up Thumps_up 
Puh!
Da hast Du mich gerade noch vom Veröffentlichen meines unausgegorenen Monsters bewahrt, Edgar!
:19:

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top
#4
(09.11.2016, 13:07)BoskoBiati schrieb:
Code:
ActiveCell = Application.WorksheetFunction.Substitute(ActiveCell, "-", "-" & Chr(10), 2)

Vielen Dank! Wie krieg ich das denn hin, dass der das für alle befüllten Zellen in dem Tabellenblatt macht? Das Tabellenblatt heißt IDs. Jetzt macht der das nur für eine Zelle.
Antworten Top
#5
Hallo,

mit einer Schleife, die auf die Tabelle passt!!!!!!!
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste