Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Excel
  Anzahl Zeichen einer Zelle mit VBA suchen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Anzahl Zeichen einer Zelle mit VBA suchen (11365 mal gelesen)
lothi
Mitglied



Sehen Sie sich das Profil von lothi an!   Senden Sie eine Private Message an lothi  Schreiben Sie einen Gästebucheintrag für lothi

Beiträge: 34
Registriert: 24.08.2005

Eplan P8 2.0 SP1
Eplan P8 Fluid Add ON
Eplan 5.70.4.52700
Eplan 5.xx

erstellt am: 19. Sep. 2005 09:59    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

BJ
Mitglied
PLM System Administrator


Sehen Sie sich das Profil von BJ an!   Senden Sie eine Private Message an BJ  Schreiben Sie einen Gästebucheintrag für BJ

Beiträge: 488
Registriert: 20.12.2002

SolidEdge V15, SP14
SolidEdge V16, SP8
SolidEdge V17, SP2
---
Win XP Prof., SP 2
DELL Precision WorkStation 340
2,26 GHz, 1GB RAM
NVIDIA Quadro4 900 XGL, 128MB

erstellt am: 19. Sep. 2005 13:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für lothi 10 Unities + Antwort hilfreich

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

Mario Wipf
Mitglied
Dipl. Ing. FH, MAS FHO BAE


Sehen Sie sich das Profil von Mario Wipf an!   Senden Sie eine Private Message an Mario Wipf  Schreiben Sie einen Gästebucheintrag für Mario Wipf

Beiträge: 535
Registriert: 07.10.2003

AIS 9 SP3, AIS 10 WINDOWS XP Pro
Fujitsu Siemens CELSIUS M430
Nvidia Quadro FX 1400 128 MB

erstellt am: 19. Sep. 2005 13:38    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für lothi 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz