Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1868to1872
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

Zelle auslesen

Zelle auslesen
17.02.2022 02:52:16
Frank
Hallo,
vielleicht kann mir jemand bei meinem Problem helfen.
ich möchte gerne mehrere Zellen auslesen
die Zellen sind immer identisch aufgebaut
es sind immer 9 Zeichen
es kann aber auch sein, dass 9 Zeichen sind, dann ein Zeilenumbruch und dann wieder 9 Zeichen kommen (dann wieder Zeilenumbruch und dann wieder 9 Zeichen - kann 3-4 oder 5 mal passieren)
die Zeilenümbrüche zählen kann ich, damit ich weiß wie viele Zeilen ich in der Zelle habe

xStrLen = Len(.Text) + 1
xChrLen = Len(Replace(.Text, Chr(10), ""))
ZaehlerBA = ZaehlerBA + (xStrLen - xChrLen)
jetzt zu meinen Problem:
es passiert sehr oft, dass immer wieder 9 Zeichen durchgestrichen sind.
diese 9 Zeichen möchte ich jetzt gerne Zählen (bzw. die Zeile)
ich bekomme das aber nicht hin
Bsp.
Zelle A1
1. Zeile 9 Zeichen
2. Zeile 9 Zeichen --> dies 9 Zeichen sind durchgestrichen
3. Zeile 9 Zeichen
hier möchte ich jetzt gerne eine Ausgabe habe wie viele Zeile durchgestrichen sind
B1 Gesammtzeilenanzahl -- 3
C1 Durchgestrichene Zeile -- 1
das ganze soll dann für die komplette Spalte A gemacht werden
kann mir dabei jemand helfen, bzw. ist das überhaupt möglich?
danke schon einmal im Vorraus
Frank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle auslesen
17.02.2022 03:45:43
Oberschlumpf
Hi Frank,
ersetz deinen Code durch meinen

Dim xStrLen, xChrLen, ZaehlerBA
Dim loRow As Long, liChr As Integer, liCountChr As Integer
For loRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
ZaehlerBA = 0
liCountChr = 0
xStrLen = Len(Range("A" & loRow).Text) + 1
xChrLen = Len(Replace(Range("A" & loRow).Text, Chr(10), ""))
ZaehlerBA = ZaehlerBA + (xStrLen - xChrLen)
Range("B" & loRow).Value = ZaehlerBA
For liChr = 1 To Len(Range("A" & loRow).Text) Step 10
If Range("A" & loRow).Characters(Start:=liChr, Length:=1).Font.Strikethrough = True Then
liCountChr = liCountChr + 1
End If
Next
Range("C" & loRow).Value = liCountChr
Next
oder füg den fehlenden Code hinzu.
Hilfts? Bei mir funktioniert der Code mit diesen Texten in den Zellen A1 + A2
A1, Anzahl Zeilen: 3, davon durchgestrichen: 1
123456789
123456789 durchgestrichen
123456789
A2, Anzahl Zeilen: 7, davon durchgestrichen: 3
123456789
123456789 durchgestrichen
123456789 durchgestrichen
123456789
123456789
123456789
123456789 durchgestrichen
der fette Text ist das jeweils durch den Code errechnete Ergebnis zu den gewünschten Kriterien.
Hilfts?
Wenn nein, zeig bitte ne Bsp-Datei per Upload.
Ciao
Thorsten
Anzeige
AW: Zelle auslesen
17.02.2022 05:12:31
Frank
Hallo,
das ist ja sensationell
danke dir
Frank

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige