String aufteilen

Forumthread: String aufteilen

String aufteilen

24.12.2018 21:33:37

Sergej

Hallo Leute,
wie kann ich bitte per VBA folgenden Text Max.Mustermann@ZFR-OP8.google.de aufteilen und in einem MsgBox ausgeben:
Vorname: Max
Nachname: Mustermann
Projekt: ZFR-OP8
Domain: google.de
- Vorname und Nachname stehen vor dem @-Zeichen und sind mit einem Punkt getrennt
- Name des Projekts beginnt nach dem @-Zeichen und endet bei nächstem Punkt
- Name der Domain folgt nach dem @-Zeichen und nach dem erstem Punkt bzw. von rechts ausgesehen ist der Domainname der Teil bis zum zweiten Punkt
Beste Grüße,
Sergej

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: String aufteilen

24.12.2018 21:43:10

Sepp
AW: String aufteilen

24.12.2018 21:56:39

Sergej
AW: String aufteilen

24.12.2018 21:58:06

Sepp
AW: String aufteilen

24.12.2018 22:02:09

Sergej
AW: String aufteilen

24.12.2018 21:54:58

onur
AW: String aufteilen

24.12.2018 22:02:50

Sergej

AW: String aufteilen

24.12.2018 21:43:10

Sepp

Hallo Sergej,

Sub Test()
  Dim strInput As String, varTemp As Variant

  strInput = "Max.Mustermann@ZFR-OP8.google.de"

  varTemp = Split(strInput, "@")

  MsgBox "Vorname:" & vbTab & Split(varTemp(0), ".")(0) & vbLf & _
    "Nachname:" & vbTab & Split(varTemp(0), ".")(1) & vbLf & _
    "Projekt:   " & vbTab & Split(varTemp(1), ".")(0) & vbLf & _
    "Domain:    " & vbTab & Split(varTemp(1), ".")(1)
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

	A	B	C	D	E	F
1	Gruß Sepp
2
3

AW: String aufteilen

24.12.2018 21:56:39

Sergej

Hallo Sepp,
vielen Dank!
Was muss ich bitte noch ändern um "google.de" zu bekommen anstatt nur "google"
Beste Grüße,
Sergej

AW: String aufteilen

24.12.2018 21:58:06

Sepp

Hallo nochmal,

Sub Test()
  Dim strInput As String, varTemp As Variant

  strInput = "Max.Mustermann@ZFR-OP8.google.de"

  varTemp = Split(strInput, "@")

  MsgBox "Vorname:" & vbTab & Split(varTemp(0), ".")(0) & vbLf & _
    "Nachname:" & vbTab & Split(varTemp(0), ".")(1) & vbLf & _
    "Projekt:   " & vbTab & Split(varTemp(1), ".")(0) & vbLf & _
    "Domain:    " & vbTab & Split(varTemp(1), ".")(1) & "." & Split(varTemp(1), ".")(2)
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

	A	B	C	D	E	F
1	Gruß Sepp
2
3

AW: String aufteilen

24.12.2018 22:02:09

Sergej

Vielen Dank Sepp

AW: String aufteilen

24.12.2018 21:54:58

onur

Gucks du hier:
https://www.herber.de/bbs/user/126293.xlsm

AW: String aufteilen

24.12.2018 22:02:50

Sergej

Hallo Onur,
vielen Dank - dein Code funktioniert auch.
Beste Grüße,
Sergej

Beliebteste Forumthreads (12 Monate)

Forumthread: String aufteilen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread