Office: Bestimmte Zeichen aus einer Zelle nehmen

Hallo Leute,

ist es möglich aus einer Zelle einen bestimmen Text raszuziehen?
Text in Spalte funktioniert nicht richtig.



z.B würde ich alle MXX raus nehmen wollen oder alle SWXX

Freue mich auf eure Antworten

 

Hola,
abgesehen davon, dass da nirgendwo MXX oder SWXX steht, was verstehst du denn unter "Text rausziehen"?
Was soll am Ende rauskommen?
Gruß,
steve1da

 

halo danke für deine Antwort.

Ich möchte in einer neuen Spalte alle M30 M36 M3 M3 raus ziehen, daher MXX, weil in der Liste noch M3 M4 M5 usw.. stehen.

gibts da eine Funktion, wie ich das abkürzen kann ?

 

Lade eine Exceldatei hoch und trage händisch das Ergebnis ein, was du gerne hättest.

 

Moin noob!
Deine Liste lässt erkennen, dass Mxx (genauer "-M") immer am Ende der ersten Spalte steht. Der Code (in die Tabelle kopieren) holt sich jeweils die Werte hinter dem "-" mit/ab dem "M" in Spalte 2.

Code:

Option Explicit

Sub Version()
Dim i As Integer, r As Integer, iLen As Integer, iPos As Integer, iRest As Integer
r = UsedRange.Rows.Count + 1

For i = 1 To r
    On Error Resume Next
    iPos = InStr(Cells(i, 1), "-M")
    iLen = Len(Cells(i, 1))
    iRest = iLen - iPos
    Cells(i, 2) = Right(Cells(i, 1), iRest)
Next i
End Sub

Viel Spaß! und Grüße

 

Hallo,

in der beiliegenden Excel-Datei habe ich dir in einem allgemeinen Codemodul eine benutzerdef. VBA-Funktion eingefügt.
Wie die Funktion einzusetzen ist, habe ich im Arbeitsblatt "Tabelle1" durch Beispiele erklärt.

Code:

Public Function TxtZiffernEntfernen(S As String, ParamArray Tr()) As String
   Dim SS() As String, T As Variant
   Dim I As Integer, L As Integer
  
   For Each T In Tr
     'Splitte S an allen Stellen mit T
     SS = Split(S, T)
     For I = 1 To UBound(SS)
    
       'Überprüfe, wieviele Ziffern am Anfang von SS(i)
       For L = 1 To Len(SS(I))
         If Mid$(SS(I), L, 1) Like "#" Then
         Else
           Exit For
         End If
       Next L
      
       If L = 1 Then
         'es gab keine Ziffern - füge T wieder ein
         SS(I) = T & SS(I)
       Else
         'es gab L-1 Ziffern - entferne diese
         SS(I) = Mid$(SS$(I), L)
       End If
      
     Next I
     'Verkette alls SS(i) wieder zu S
     S = Join(SS, "")
   Next T
   TxtZiffernEntfernen = S
End Function

 

Hallo Zusammen,

besten Dank für eure Antworten.

Ich schaue mir das an und gebe euch eine Rückmeldung.

Grüße

 

ich glaube ich habe mich falsch ausgedrückt. Die Formel soll die M in eine neue spalte packen und die SW, damit man das richtig filtern kann.

 

gibts hier im Forum irgendeine Seite, wo die Grundlagen von VBA erklärt werden ?

Grüße

 

Hi,

Google gibt da einiges her - z.B.: vba_excel_1 (ertls.de)
Oder auch hier: Online - Excel

 

Moin Noob,
ich glaube, ich habe Dich nimmer noch nicht verstanden. Was brauchst: Wenn Mxx vorkommt, dann Mxx und ??. Wenn SWxx vorkommt dann ?? Zeige doch mal zwei, drei Zeilen (SW und/oder M) mit Deinem Wunschergebnis.
Grüße

 

Achja, fast vergessen. In diesem Forum nicht, aber hier: www.vba-tutorial.de
Grüße

 

danke für eure Antworten :)

 

B1: =LET(x;GLÄTTEN(LINKS(RECHTS(WECHSELN(A1;"-";WIEDERHOLEN(" ";299));897);299));WENN(LINKS(x;2)="SX";x;""))
C1: =LET(x;LINKS(GLÄTTEN(RECHTS(WECHSELN(A1;"-";WIEDERHOLEN(" ";299));299));299);WENN(LINKS(x;1)="M";x;""))

Hinweis: Die M sind bei Dir an letzter Stelle, die SX an drittletzter. Deine Bezeichnungen haben 6 oder 7 Segmente (also uneinheitlich).