Thema Datum  Von Nutzer Rating
Antwort
12.09.2019 08:18:57 Sara
Solved
12.09.2019 08:26:45 Rainer Kirschbaum
NotSolved
Rot Macro gesucht
12.09.2019 09:26:26 Torsten
NotSolved
12.09.2019 10:08:14 UweD
NotSolved
12.09.2019 17:37:49 Mackie
NotSolved
13.09.2019 07:33:03 Sara
NotSolved

Ansicht des Beitrags:
Von:
Torsten
Datum:
12.09.2019 09:26:26
Views:
399
Rating: Antwort:
  Ja
Thema:
Macro gesucht

Hallo Sara,

so z.B. fuer das aktive Tabellenblatt:

Sub einfuegen()

Dim rngZelle As Range
Dim lngLetzte As Long

lngLetzte = Cells(Rows.Count, 6).End(xlUp).Row

For Each rngZelle In Range("F1:F" & lngLetzte)
    rngZelle.value = Left(rngZelle.value, 3) & ";" & Right(rngZelle.value, 4)
Next

End Sub

Aber nur wenn die Texte wirklich immer so aussehen, wie von dir angegeben. Also der / immer an 4. Stelle

Gruss Torsten


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.09.2019 08:18:57 Sara
Solved
12.09.2019 08:26:45 Rainer Kirschbaum
NotSolved
Rot Macro gesucht
12.09.2019 09:26:26 Torsten
NotSolved
12.09.2019 10:08:14 UweD
NotSolved
12.09.2019 17:37:49 Mackie
NotSolved
13.09.2019 07:33:03 Sara
NotSolved