Microsoft Excel

Herbers Excel/VBA-Archiv

Leerzeichen Datum

Betrifft: Leerzeichen Datum von: Katharina
Geschrieben am: 25.09.2014 10:30:24

Guten Morgen,
weiß jemand wie man ein Leerzeichen zwischen einem Text und einem Datum hinbekommt?
Zurzeit steht in meiner Excel Tabelle
Datum:25.09.2014
ich möchte jedoch, dass zwischen ":" und der Zahl ein Leerzeichen steht
Datum: 25.09.2014
Mein Code lautet zurzeit:

ziel.Sheets(i + 1).Range("A3").Value = "Datum:" & Date

LG

  

Betrifft: AW: Leerzeichen Datum von: UweD
Geschrieben am: 25.09.2014 10:31:57

so??

ziel.Sheets(i + 1).Range("A3").Value = "Datum: " & Date

Gruß UweD


  

Betrifft: AW: Leerzeichen Datum von: UweD
Geschrieben am: 25.09.2014 10:39:31

zu spät.

Die Antwort gab es ja schon


  

Betrifft: so! von: Klaus M.vdT.
Geschrieben am: 25.09.2014 10:41:15

Hallo Katharina,
hier eine simple Methode:

Dim MyText As String
Dim partLeft As String
Dim partRight As String
Dim iCountText As Long
Dim FoundIt As Boolean
Dim NewText As String
Const SeperateText As String = " "
FoundIt = True
MyText = "Datum:" & Date
For iCountText = 1 To Len(MyText)
    If FoundIt Then
        partLeft = partLeft & VBA.Right(VBA.Left(MyText, iCountText), 1)
            If VBA.Right(VBA.Left(MyText, iCountText), 1) = ":" Then
                FoundIt = Not FoundIt
            End If
        GoTo dontDoPartRight
    End If
    partRight = partRight & VBA.Right(VBA.Left(MyText, iCountText), 1)
dontDoPartRight:
Next iCountText
NewText = partLeft & SeperateText & partRight
ziel.Sheets(i + 1).Range("A3").Value = NewText
Grüße,
Klaus M.vdT.


  

Betrifft: Doppelt! Du hattest längst AW! :-/ von: Luc:-?
Geschrieben am: 25.09.2014 12:47:56

Da stelle mer ons mal janz domm!
Du sitzen vor Tastatur, Katharina.
Da iss unten janz laange Taste, steht nix druff, macht aber Leerzeichen. Nu du drücken nach :-Taste eenfach uff disse Taste bevor drücken uff "-Taste. Fertich!
Erheiterten Gruß, Luc :-?
PS@Klaus: Dunnerwetter noch ma, wat'n Uffwand! Haste da nich zu ville rinjedeutet…?! ;-]


  

Betrifft: AW: Doppelt! Du hattest längst AW! :-/ von: Udo
Geschrieben am: 25.09.2014 13:08:26

PS@Klaus: Dunnerwetter noch ma, wat'n Uffwand! Haste da nich zu ville rinjedeutet…?! ;-]

Ich tippe stark auf: die Ironie-on- und Ironie-off-Schalter vergessen :-)

Gruß

Udo


  

Betrifft: AW: Doppelt! Du hattest längst AW! :-/ von: Klaus M.vdT.
Geschrieben am: 25.09.2014 13:57:24

besonders Stolz bin ich auf das "GOTO", um zwischen linkem und rechtem Text zu unterscheiden. Eleganter geht es nicht!!!!!!!!

Grüße,
Klaus M.vdT.

P.S.: Ironie aus :-)


  

Betrifft: AW: Doppelt! Du hattest längst AW! :-/ von: Udo
Geschrieben am: 25.09.2014 14:47:36

YMMD :-)

Jetzr hab ich tatsächlich Tränen in den Augen !!


  

Betrifft: Na, dann ja allet klaro, armet Katrineken! ;-) owT von: Luc:-?
Geschrieben am: 25.09.2014 15:46:52

:-?


  

Betrifft: Hoffentlich ereilt dich nicht irgendwann der ... von: Luc:-?
Geschrieben am: 25.09.2014 16:59:40

…„Fluch der bösen Tat“, Klaus;
ich stelle mir schon lebhaft vor wie eines Tages von einem Fragesteller dein Code mit der üblichen Bemerkung „habe diesen Code im Internet gefunden; was usw…“ präsentiert wird… ;-))
Fehlte dann bloß noch, dass Hajo vermutete, er würde von ihm stammen, aber umgeschrieben worden ist, da er ja nie GoTo verwendet… ;-))
Gruß, Luc :-?


  

Betrifft: OT @Luc von: hary
Geschrieben am: 25.09.2014 17:16:04

Moin
Frage, sitzt Renée zufaellig neben dir? ;-)))
Koennte von ihr stammen.
gruss hary


  

Betrifft: Aber net Rheinisch unn ooch nich Märkisch-... von: Luc:-?
Geschrieben am: 25.09.2014 19:54:40

…Baalinisch, Hary;
wat soll man ooch sonst mit sona Frare anfangn… ;-)
Ja, Renée, die Sarkastisch-Ironische — weit weg ist sie wohl jedenfalls, wenn evtl auch nicht daheim in Namibia, am Caprivi-Anfang in Okavango-Nähe(?). Wdn wohl nichts mehr von ihr hören… :-[
In diesem Sinne → Mazwara, Luc :-?

Besser informiert mit …


  

Betrifft: AW: Aber net Rheinisch unn ooch nich Märkisch-... von: Ewald
Geschrieben am: 26.09.2014 15:17:51

Hallo,

eigentlich reicht in diesem Fall eine kleine UDF

 Function LZplus(Bezug As Range) As String
Dim b
Dim c
Dim iPos
iPos = InStr(1, Bezug, ":")
b = Left(Bezug, iPos)
c = Right(Bezug, Len(Bezug) - iPos)
LZplus = b & " " & c
End Function
Zielzelle = LZplus(Quellzelle)

Gruß Ewald


 

Beiträge aus den Excel-Beispielen zum Thema "Leerzeichen Datum"