Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Buchstaben rausfiltern und groß schreiben


Betrifft: Buchstaben rausfiltern und groß schreiben von: jens
Geschrieben am: 06.07.2017 16:13:34

Hallo,

gibt es eine Möglichkeit per VBA aus E-Mailadressen die ersten vier buchstaben nach dem @-zeichen in eine Variable schreiben zu lassen.

z.b Variable a ist die E-Adresse
ab@werner.de

Varibale b sind die Buchstaben also
wern

jedoch sollen
die Buchstaben in der Variable b noch Groß geschrieben sein also

WERN

Hat hierzu jemand eine Idee?

Die E-Maildresse kommt dabei aus eine Zelle z.b A1

  

Betrifft: AW: warum VBA wäre auch mit ner Formel möglich owT von: ... neopa C
Geschrieben am: 06.07.2017 16:19:29

Gruß Werner
.. , - ...


  

Betrifft: AW: Buchstaben rausfiltern und groß schreiben von: UweD
Geschrieben am: 06.07.2017 16:27:34

Hallo

Per Formel. in B1

Tabelle1

 AB
1ab@werner.deWERN

verwendete Formeln
Zelle Formel Bereich N/A
B1=GROSS(TEIL(A1;SUCHEN("@";A1)+1;4))  
http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://Hajo-Excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 21.10 einschl. 64 Bit



LG UweD


  

Betrifft: wenn doch VBA .. von: UweD
Geschrieben am: 06.07.2017 16:39:07


Sub ATTT()
    Dim strEmail As String, intStelle As Integer, strErg As String
    
    strEmail = Range("A1")
    intStelle = InStr(strEmail, "@")
    If intStelle > 0 Then
        strErg = UCase(Mid(strEmail, intStelle + 1, 4))
        MsgBox strErg
    Else
        MsgBox "Kein @ enthalten"
    End If
End Sub



  

Betrifft: Dann noch die VBA-Variante... von: Michael (migre)
Geschrieben am: 06.07.2017 16:36:29

Hallo,

...weil angefragt:

Sub a()
    Dim a$, b$
    
    a = "ab@werner.de"
    b = Mid(a, InStr(1, a, "@") + 1, 4)
    Debug.Print b
End Sub
LG
Michael


Beiträge aus den Excel-Beispielen zum Thema "Buchstaben rausfiltern und groß schreiben"