Excel: VBA Text und Uhrzeit kombinieren

Zelle A1 => 14:15 'Uhr
Zelle A2 => Wunschtext
Wunschergebnis: A3 => 14:15 Wunschtext

Das Ziel ist es mit einem Makrobefehl wie z.B.: Worksheet.Range(„A3“) = Worksheet.Range(„A1“) & Worksheet.Range(„A2“)
das Wunschergebnis zu bekommen und das Zeitformat bestehen bleibt. Bei mir wird das Zeitformat nicht beibehalten.
Danke

Verkettung formatieren?
Moin, lot,

Bei mir wird das Zeitformat nicht beibehalten.

A1 ist weiterhin im Zeitformat. Vorausgesetzt, es war vorher so.

Gruß Ralf

Hallo Ralf,

bei mir gibt die Zelle A3 (0,59375Wunschtext)
sollte eigentlich 14:15 Wunschtext

Gruß Lot

Zeit als Text ausgeben
Hi Lot,

bei mir gibt die Zelle A3 (0,59375Wunschtext)

völlig korrekt, Zeit wird in Text umgewandelt.

sollte eigentlich 14:15 Wunschtext

Das ist was ganz anderes. Wenn in A1 eine Uhrzeit steht und in B1 ein Text, dann schreib

 =STUNDE(A1) & ":" & MINUTE(A1) & " " & B1

Damit wird eine Zeichenkette aufgebaut, die keineswegs als Datum formatiert ist, sondern als Text, der aussieht wie ein Datum plus einem Text.

Gruß Ralf

Zelle A1 => 14:15 'Uhr
Zelle A2 => Wunschtext
Wunschergebnis: A3 => 14:15 Wunschtext

Hallo Lol,

so?

Sub tt()
With Worksheets("Tabelle1")
 .Range("A3").Value = Format(.Range("A1").Value, "hh:mm") & .Range("A2").Value
End With
End Sub

Gruß
Reinhard

Grüezi zusammen

bei mir gibt die Zelle A3 (0,59375Wunschtext)
sollte eigentlich 14:15 Wunschtext

Das ist was ganz anderes. Wenn in A1 eine Uhrzeit steht und in
B1 ein Text, dann schreib

=STUNDE(A1) & „:“ & MINUTE(A1) & " " & B1

…oder man bringt die Zeit direkt ins Format…:wink:

=TEXT(A1;"hh:mm ")&B1

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -