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

Forumthread: Kopieren und formatiert einfügen per Makro

Kopieren und formatiert einfügen per Makro
14.05.2024 13:05:01
besserist
Hallo zusammen,

vielleicht kann jemand helfen?

Ich bekomme aus SAP den Wert exportiert

2024-05-15 19:21

dieser ist als Standard fomatiert.

Dieses Datum samt Uhrzeit möchte ich per Makro in eine andere Zelle kopieren um unseren Produktionsplan zu erstellen.
Ich benötige aber folgende Dinge.

- Das Datum soll als Tag (Mo, Di, Mi etc.) erscheinen.
- Die Zelle soll einen Textumbruch haben, sodass oben z.Bsp. Mo steht und darunter die Zeit.

Mo
19:21

Wär super wenn das möglich wäre.

Danke schonmal!

VG besserist
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren und formatiert einfügen per Makro
14.05.2024 13:29:16
ralf_b
Wenn du mit Datumswerten und Uhrzeiten arbeitest tust du dir selbst keinen Gefallen wenn die Werte dann noch in der Zelle so verwurstet werden.
Nimm lieber zwei Zellen und splitte die Werte sauber auf.
AW: Kopieren und formatiert einfügen per Makro
14.05.2024 13:38:58
besserist
Hallo Ralf,


das hilft mir leider nicht, ich habe nur eine Zelle zur Verfügung und möchte es bitte genau wie beschrieben haben ;)

VG
Anzeige
AW: Kopieren und formatiert einfügen per Makro
14.05.2024 13:32:34
ede
Hallo,
das geht auch ohne vba,
=TEXT(A1;"TTT.") & ZEICHEN(10) & TEXT(A1;"hh:mm")

Bei der Spalte, in welcher du die Formel einsetzt, Zeilenumbruch setzen.
Gruss
ede
AW: Kopieren und formatiert einfügen per Makro
14.05.2024 13:58:07
besserist
Hallo Ede,

da hast Du Recht.

Es ist aber so, dass die Werte per VBA aus einer anderen Datei importiert werden. (copy A:A der einen Datei in paste Z:Z der anderen Datei).
Dabei werden die Zellen jeweils überschrieben und der Textumbruch wäre wieder weg, daher möchte ich diesen Part in das Makro integrieren.

Eventuell müsste man bei paste eine Formatierung für den Umbruch mit reinpacken aber dann hab ich immernoch das Problem der Formatierung des eigentlichen Werts :(

VG
Anzeige
AW: Kopieren und formatiert einfügen per Makro
14.05.2024 14:05:15
ede
dann setzt die Formel in VBA um:

zielzelle = Format(Range("a1"), "DDD.") & vbCr & Format(Range("a1"), "hh:mm")


gruss
ede
AW: Kopieren und formatiert einfügen per Makro
14.05.2024 14:22:57
besserist
Hi Ede,


okay, cool.
Mir fehlt nur noch der Zeilenumbruch, ansonsten komm ich zurecht, denk ich! ;)

VG
Anzeige
AW: Kopieren und formatiert einfügen per Makro
14.05.2024 14:23:57
ede
ersetze vbCr durch vbCrLf
AW: Kopieren und formatiert einfügen per Makro
14.05.2024 14:42:33
besserist
Hallo Ede,


unglaublich, super, vielen Dank!

Dat war's ;)



VG besserist
AW: Kopieren und formatiert einfügen per Makro
15.05.2024 09:43:59
besserist
Guten Morgen EDE,

kannst Du bitte noch einmal kurz schauen.
Ich bekomm das Format nicht in den Code gebastelt .



Sub WerteKopieren()

Dim Zelle As Range

For Each Zelle In Worksheets("Tabelle1").Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
Zelle.Copy
Zelle.Offset(0, 1).PasteSpecial Paste:=xlPasteAll
Zelle.Offset(0, 1).WrapText = True
Zelle.Offset(0, 1).NumberFormat = ' hier muss doch irgendwie deine Formatzeile rein, oder bin ich falsch?

Next Zelle

Application.CutCopyMode = False
End Sub


Den Umbruch macht ja das Wraptext , oder ? Dachte da fehlt dann nur noch



("DDD.")&" " & ("hh:mm")


Hab lange rumprobiert aber nichts hat funktioniert :(

Kannst Du nochmals helfen?

Danke!

VG
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige