Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige