Datum

Titel

20.04.2024 00:49:19

Excel Sheet in einen Excel Kalender einfügen

20.04.2024 00:08:11

In Ordner nur das Speichern von Dateien erlauben

19.04.2024 21:26:15

mehrfache Texte finden

19.04.2024 19:41:34

Bei VBA Ausführung Anzeige einfrieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

756to760

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Abschneiden innerhalb eines Strings

Forumthread: Abschneiden innerhalb eines Strings
4 Beiträge zu diesem Forumthread
Anzeige
299 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

24.04.2006 10:31:59

Jens

Hallo ist es möglich mit einem Makro einen string ab einer bestimmten Stelle abzuschneiden?
Beispiel:
ich habe eine Exceltabelle mit vielen Emailadressen und will bei jeder emailadresse alles vor dem @-Zeichen abschneiden.
Bei hans.mueller@gmx.de brauche ich also nur das @gmx.de.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Abschneiden innerhalb eines Strings

24.04.2006 10:42:35

Sebastian
AW: Abschneiden innerhalb eines Strings

24.04.2006 10:45:22

Matthias
AW: Abschneiden innerhalb eines Strings

24.04.2006 10:55:27

Franz
AW: Abschneiden innerhalb eines Strings

24.04.2006 11:12:33

jens

AW: Abschneiden innerhalb eines Strings

24.04.2006 10:42:35

Sebastian

Dim SuchText, SuchZeichen, Pos1
Suchtext ="XXpXXpXXPXXP" ' Zu durchsuchende Zeichenfolge.
SuchZeichen = "P" ' Nach "P" suchen.
' Reiner Textvergleich ab Position 4. Das Ergebnis ist 6.
Pos1 = Instr(4, Suchtext, SuchZeichen, 1)
Dim EinText, ZF1
EinText = "Hallo Welt" ' Zeichenfolge definieren.
ZF1 = Left(EinText, 1) ' Liefert "H".
ZF1 = Left(EinText, 7) ' Liefert "Hallo W".
ZF1 = Left(EinText, 20) ' Liefert "Hallo Welt".
Das sind die Sachen die die Excel-Hilfe dazu bietet.
und aus den Funktionen kann man es sich ja recht schnell und leicht zusammenbauen.

AW: Abschneiden innerhalb eines Strings

24.04.2006 10:45:22

Matthias

Hallo Jens,


Sub test()
Dim s As String, s2 As String
s = "email.adresse@test.de"
s2 = Mid(s, InStr(s, "@"))
MsgBox s2
End Sub

Gruß Matthias

AW: Abschneiden innerhalb eines Strings

24.04.2006 10:55:27

Franz

Hallo Jens,
markiere die Zellen mit den email-Adressen und starte folgendes Makro, dann wird der Text vor dem @ entfernt.

Sub email()
Dim Bereich As Range, Zelle As Range
Set Bereich = Selection
On Error Resume Next 'überspringt Zellen ohne @
For Each Zelle In Bereich
Zelle.Value = Right(Zelle.Value, Len(Zelle.Value) - WorksheetFunction.Find("@", Zelle.Value, 1) + 1)
Next Zelle
End Sub

Gruß
Franz

AW: Abschneiden innerhalb eines Strings

24.04.2006 11:12:33

jens

Klasse vielen DAnk. Hat mir sehr weitergeholfen!!!