2
Excel: VBA Kopieren des Inhalts einer Zelle und einfügen mit Apostroph-Zeichen vorweg
Hallo an alle,
gibt es die Möglichkeit per Makro den Inhalt einer Zelle zu kopieren und in einer anderen Zelle mit dem '-Zeichen vorweg einzufügen?
Hintergrund:
Die Zelle, die Kopiert wird kann als Zahl oder Text vorliegen (je nachdem ob andere Anwender mit oder ohne Leerzeichen eingegeben haben, darauf habe ich keinen Einfluss).
Die Zelle, in die eingefügt werden soll, ist zu schmal für den Inhalt der Kopiert werden soll (auch darauf habe ich leider keinen Einfluss). Daher werden mir, wenn der Inhalt als Zahl eingefügt wird lediglich ## gezeigt, nicht aber über die Zelle hinausgeschrieben. Das passiert nur, wenn der Inhalt als Text vorliegt. Formatieren der Zellen als "Text" oder "Benutzedefiniert" hilft leider nicht. Auch Zellen verbinden funktioniert nicht, da dann aufgrund unterschiedlicher Zellengrößen bzw. Anzahl gemeckert wird.
Aus dem Grund möchte ich gerne das '-Zeichen von den eigentlich zu kopierenden Inhalt Einfügen, um damit "automatisch" Text zu erzeugen.
Jetzt schon einmal vielen Dank für die Hilfe!
Grüße,
Bernd
gibt es die Möglichkeit per Makro den Inhalt einer Zelle zu kopieren und in einer anderen Zelle mit dem '-Zeichen vorweg einzufügen?
Hintergrund:
Die Zelle, die Kopiert wird kann als Zahl oder Text vorliegen (je nachdem ob andere Anwender mit oder ohne Leerzeichen eingegeben haben, darauf habe ich keinen Einfluss).
Die Zelle, in die eingefügt werden soll, ist zu schmal für den Inhalt der Kopiert werden soll (auch darauf habe ich leider keinen Einfluss). Daher werden mir, wenn der Inhalt als Zahl eingefügt wird lediglich ## gezeigt, nicht aber über die Zelle hinausgeschrieben. Das passiert nur, wenn der Inhalt als Text vorliegt. Formatieren der Zellen als "Text" oder "Benutzedefiniert" hilft leider nicht. Auch Zellen verbinden funktioniert nicht, da dann aufgrund unterschiedlicher Zellengrößen bzw. Anzahl gemeckert wird.
Aus dem Grund möchte ich gerne das '-Zeichen von den eigentlich zu kopierenden Inhalt Einfügen, um damit "automatisch" Text zu erzeugen.
Jetzt schon einmal vielen Dank für die Hilfe!
Grüße,
Bernd
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 243928
Url: https://administrator.de/contentid/243928
Printed on: April 23, 2024 at 17:04 o'clock
2 Comments
Latest comment
Hallo Bernd,
kein Problem, dieser Code kopiert den Inhalt der Zelle A1 des ersten Worksheets in die Zelle A2 des selben Worksheets inkl. Apostroph am Anfang.
Grüße Uwe
kein Problem, dieser Code kopiert den Inhalt der Zelle A1 des ersten Worksheets in die Zelle A2 des selben Worksheets inkl. Apostroph am Anfang.
Worksheets(1).Range("A2").Value = "'" & Worksheets(1).Range("A1").Value
Super!
Das ging schnell und funktioniert sogar ;)
Vielen Dank!!!
Das ging schnell und funktioniert sogar ;)
Vielen Dank!!!
