Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zelleninhalt mit bestimmtem Format löschen

Zelleninhalt mit bestimmtem Format löschen
20.06.2016 11:55:07
Daniel
Hallo,
wie im Bild ersichtlich ich habe Zellen:
- leer
- nur schwarz
- nur rot
- schwarz und rot
Rot ist die Korrektur, d.h. wenn in einer Zeile schwarze und rote Zeichen sind sollen die schwarzen Zeichen gelöscht werden, sonst nicht.
Ich bräuchte also sowas in der Art:
* fahre alle Zeichen einer Zelle durch, prüfe ob mind. ein Zeichen rot ist
* zähle die Anzahl an roten Zeichen
* =RIGHT(aktuelle Zelle, Anzahl rote Zeichen)
Vielleicht habt ihr eine Idee wie man die ersten zwei Punkte realisieren könnte.
Danke,
Daniel
Userbild

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalt mit bestimmtem Format löschen
20.06.2016 12:13:29
Mullit
Hallo,
im Prinzip so:
Option Explicit

Public Sub test()
  Dim objCell As Range
  Dim lngIndex As Long        '// Spaltennummern anpassen... 
  For Each objCell In Cells(1, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row, 1)
      With objCell
          For lngIndex = 1 To .Characters.Count
             If .Characters(Start:=lngIndex, Length:=1).Font.Color = vbRed Then _
                Call .Characters(Start:=1, Length:=lngIndex - 1).Delete: Exit For
          Next
      End With
  Next
End Sub


VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel



Code erstellt und getestet in Office 12

Gruß, Mullit
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige