---

Hallo Zusammen,

ich suche eine Ergänzug zum nachfolgenden Programm.
Über die Find Funktion ("") suche ich nach leeren Zellen.
Das Funktioniert aus soweit.

Meine Frage ist, wenn ich die Zelle überprüfen will,
ob mindestens 6 Zeichen (beliebig) in der Zelle eingetragen
sind, müsse es doch gehen die Suchfunktion "" zu erstzen.

In der Eceltabelle geht es über die Funktion Länge(C66) <6
mit der Bedingten Formatierung. 

With Range(Cells(1, 11), Cells(Zeile_Anzahl, 12))
    Z1 = 0
    Set Leer_Zelle = .Find("", LookIn:=xlValues)
   
    If Not Leer_Zelle Is Nothing Then
        firstAddress = Leer_Zelle.Address
        Do
          Z1 = Z1 + 1
          Set Leer_Zelle = .FindNext(Leer_Zelle)
        Loop While Not Leer_Zelle Is Nothing And Leer_Zelle.Address <> firstAddress
          MsgBox Z1 & "  *  Leere Zelle gefunden!"
    Else
  MsgBox "keine leeren Zellen gefunden"
    End If
End With

Gruß

Lothi

------------------
Gruß

Lothi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Lothi!

Ich kann dir nicht ganz folgen was du machen willst, die Länge des Zelleninhalts kriegst du übr die LEN-Funktion z.B. "Len(Cells(1,1).Value".

Gruß,
BJ

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Lothi:

Kannst Du das nicht mit der folgenden Funktion lösen ???

LENB

LÄNGE liefert die Anzahl der Zeichen einer Zeichenfolge.

LENB liefert die Anzahl der Bytes, die die Zeichen in einer Textzeichenfolge darstellen. Diese Funktion wird für Double-Byte-Zeichen verwendet.

Syntax

LÄNGE(Text)

LENB(Text)

Text  ist der Text, dessen Länge Sie ermitteln möchten. Leerzeichen zählen als Zeichen.

Beispiele

LÄNGE("Karlsruhe, BW") ergibt 13

LÄNGE("") ergibt 0

LENB("") ergibt 6

Du kannst ja die jeweilige Zelles auslesen und in einen string verwandeln und dann diese Funktion anwenden:

LÄNGE(CStr(Worksheets("Tabelle1").Range("A1")))

wobei natürlich für "A1" die entsprechende Syntax für Deine Schleife gesetz werden muss.

Hilft Dir das was ??

Gruss Mario

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP