Thema Datum  Von Nutzer Rating
Antwort
12.12.2017 13:32:36 Andreas
NotSolved
Blau VBA Spalte nach Wörtern durchsuchen
 12.12.2017 15:00:16 Gast509
NotSolved
13.12.2017 08:15:28 Gast34706
NotSolved

Ansicht des Beitrags:
Von:
Gast509		 Datum:
12.12.2017 15:00:16		 Views:
535		 Rating:
     
Antwort:
  Ja
Thema:
VBA Spalte nach Wörtern durchsuchen

Hallo Andreas,

 

das ist wahrscheinlch auch nicht die eleganteste Variante, aber wenn deine Texte (Zeichenfolgen und Wörter) in einer Zelle immer mit einem Leerzeichen getrennt sind, kannst du es wie folgt rausfiltern:

 

Sub woerter()

Dim vArrwört As Variant
Dim n, x As Integer

For n = 2 To 100   'Für alle Zeilen mit Wörtern -> anpassen
vArrwört = Split(Cells(n, 1), " ")   'Alle Texte anhand Leerzeichen aufsplitten, 'Wörter in Spalte 1 Zeile n
    For x = 0 To UBound(vArrwört)
        If IsNumeric(CStr(vArrwört(x))) = False Then
        Cells(n, 2) = vArrwört(x)  'Wenn nicht numerisch ausgeben in Spalte 2 Zeile n
        Exit For
        End If
    Next x
Next n

End Sub

 

Gruß 

Tamara

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.12.2017 13:32:36 Andreas
NotSolved
Blau VBA Spalte nach Wörtern durchsuchen
 12.12.2017 15:00:16 Gast509
NotSolved
13.12.2017 08:15:28 Gast34706
NotSolved