Thema Datum  Von Nutzer Rating
Antwort
08.07.2019 16:00:07 Hans
NotSolved
Blau Erste/Zweites Wort löschen
 08.07.2019 16:18:05 Gast86766
*****
Solved
08.07.2019 16:42:30 Hans
NotSolved

Ansicht des Beitrags:
Von:
Gast86766		 Datum:
08.07.2019 16:18:05		 Views:
406		 Rating:
     
Antwort:
 Nein
Thema:
Erste/Zweites Wort löschen		 
Sub Test()
   DoIt Selection, 2 'Anzahl
End Sub

Private Sub DoIt(mySel As Range, n)
Dim c As Range, x
   For Each c In mySel.Cells
      For x = 1 To n
         c.Value = Mid(c.Value, InStr(c.Value, " ") + 1)
      Next x
   Next c
End Sub

 

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
08.07.2019 16:00:07 Hans
NotSolved
Blau Erste/Zweites Wort löschen
 08.07.2019 16:18:05 Gast86766
*****
Solved
08.07.2019 16:42:30 Hans
NotSolved