Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1652to1656
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bestimmte Zeichen mit Font Eigenschaften lö

Bestimmte Zeichen mit Font Eigenschaften lö
20.10.2018 11:49:56
Michel
Hallo liebes Forum,
ich habe ein performance Problem und zwar dauert eine Schleife im VBA Excel 2010 (32bit) bei mir ziemlich lang. Vieleicht könnt ihr mir helfen diese in eine bessere Form zu bekommen, über Array oder eine spezielle Funktion...
Ich durchlaufe ein FOR Schleife mit einer IF Abfrage. Die FOR Schleife läuft die Komplette Spalte A bis zu den Ende mit befüllten Zeilen bei ca. Zeile 800.000. Ich möchte aus jeder Zelle die "einzelnen Zeichen" löschen (nicht übernehmen) die nicht schwarze Farbe als Eigenschaft haben.
In einer Zelle sind zwischen 50 bis 100 Zeichen bei 800.000 Zeilen sind dies eine Menge Schleifen läufe :( .
Hier der Code:
Sub FontEigenschaften_Zeichenfolge()
Dim Temp1_str, Temp2_str As String
Dim L, i, x, letzteZeile_lng as String
letzteZeile_lng = 10000 'Zum testen reduziert
Sheets(1).Select
For i = 1 To letzteZeile_lng
Temp1_str = ""
Temp2_str = ""
Temp2_str = Sheets(1).Cells(i, 1).Value
x = Len(Temp2_str)
Temp1_str = Sheets(1).Cells(i, 1).Value
Temp2_str = ""
For L = 1 To x
If Sheets(1).Cells(i, 1).Characters(L, 1).Font.ColorIndex  2 Then
Temp2_str = Temp2_str & Mid(Temp1_str, L, 1)
End If
Next L
Sheets(1).Cells(i, 1).Value = Temp2_str
Next i
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Crosspost
20.10.2018 12:01:09
Hajo_Zi
Zu Crossposting lies diese Seite Hajo-Excel.de
Oder Zu Crossposting
Durch Crossposting werden mehrere Gruppen von Leuten mit dem gleichen Thema befasst, ohne dass sie voneinander wissen.
Naturgemäß laufen dann die Antworten, die im einen Forum "zu spät" gegeben wurden, ins Leere und bleiben ohne Resonanz.
Es reicht also, zunächst in einem Forum zu posten - wenn die Antworten dann unbefriedigend sein sollten, steht es einem anschließend immer noch offen, ein anderes Forum zu Rate zu ziehen.
Ich mache keine Werbung für andere Foren und verzichte darum auf den Link.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Anzeige
AW: xml
20.10.2018 12:17:14
Fennek
Hallo,
Test-Scenario: In Zelle A1 wird "abcd" eingetragen und der Buchstabe "c" rot gefärbt. Excel speichert dies als
[code]

abcd
[/code]
Jetzt wird alles um den Tag "Color" gelöscht, also bleibt
[code]

abd
[/code]
Im Worksheet steht dann in A1 "abd" in der Standard-Farbe.
Alle Schritte, im Test von Hand, können auch per VBA durchgeführt werden.
mfg
Anzeige
AW: xml wird nicht als Quelltext dargestellt
20.10.2018 12:19:20
Fennek
die Forensoftware zeigt nicht den xml-Quelltext an, schade ...
AW: Autofilter
20.10.2018 21:33:58
Fennek
Hallo,
falls es nur relativ wenige Zellen mit farbigen Buchstaben gibt, sollte es das Löschen wesentlich eschleunigen, wenn man zuerst filtert:

Sub T_1()
'Farbe der Buchstaben: rot
Dim c As Range
With Cells(1).CurrentRegion
.AutoFilter Field:=1, Criteria1:=RGB(255, 0 _
, 0), Operator:=xlFilterFontColor
For Each c In ActiveSheet.UsedRange.Columns(1).SpecialCells(xlCellTypeVisible)
For b = 1 To Len(c)
If c.Characters(b, 1).Font.Color = 255 Then c.Characters(b, 1).Delete
Next b
Next c
.AutoFilter
End With
End Sub
mfg
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige