Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
23.04.2024 14:47:39
23.04.2024 14:23:45
Anzeige
Archiv - Navigation
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Text auslesen zwischen Separatoren

Text auslesen zwischen Separatoren
09.10.2002 10:16:28
Stoneguard (Armin Steiner)
Mit diesem Code kann ich den Text nur vor oder nach dem Separator auslesen:

i = InStr(ActiveCell.Value, ".")
i2 = Len(ActiveCell.Value)
vorPunkt = Left(ActiveCell.Value, i - 1)
nachPunkt = Mit(ActiveCell.Value, i + 2, i2 - i

Wie kann ich machen, um Text zwischen 2 Punkten auszulesen, also zum Beispiel bei einem Datum den Monat?
z.B.
05.04.2002 > 04


Danke vielmals!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Text auslesen zwischen Separatoren
09.10.2002 10:31:18
Wolfgang
Sub test()
Dim Zelle As String, Teil As String
Zelle = "05.04.2002 > 04"
Dim xx As Integer, xx2 As Integer
xx = InStr(1, Zelle, ".")
xx2 = InStr(xx + 1, Zelle, ".")
Teil = Mid(Zelle, xx + 1, xx2 - xx - 1)
MsgBox Teil

End Sub

Gruß Wolfgang

Re: Text auslesen zwischen Separatoren
09.10.2002 10:45:38
Stoneguard (Armin Steiner)
Besten Dank hat super funktioniert!

Gruss

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige