Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.12.2018 16:24:20 |
Sab |
|
|
|
12.12.2018 16:25:30 |
Gast41518 |
|
|
|
12.12.2018 16:31:19 |
Sabi |
|
|
wenn Anzahl Zeichen gleich 6 dann |
12.12.2018 17:23:27 |
Gast30243 |
|
|
|
12.12.2018 17:25:14 |
Gast39990 |
|
|
|
12.12.2018 17:26:19 |
Gast79450 |
|
|
|
12.12.2018 22:00:02 |
Gast92461 |
|
|
|
19.12.2018 12:59:32 |
Sabi |
|
|
|
19.12.2018 15:24:15 |
Gast92461 |
|
|
Von:
Gast30243 |
Datum:
12.12.2018 17:23:27 |
Views:
513 |
Rating:
|
Antwort:
|
Thema:
wenn Anzahl Zeichen gleich 6 dann |
Hallo Sab,
dieser Code wäre vielleicht schon einmal ein Ansatzpunkt. Du müsstest den Code nur noch an Deine Bedürfnisse anpassen.
Der Code stammt aus einem anderen Forum von "fridgenep". (Quelle: http://www.office-loesung.de/ftopic131122_0_0_asc.php).
Ich hatte versucht, Dir das zu programmieren, bekomme das aber auf die schnelle nicht hin. Auf jeden Fall ist die Funktion "Len"
zum zählen von Zeichen in einer Zelle die Lösung. Vielleicht hilft Dir das hier ein bisschen weiter.
Option Explicit
Sub test()
Dim rngZelle As Range
Dim rngBereich As Range
Set rngBereich = Range("A1:K100")
If WorksheetFunction.CountA(rngBereich) = 0 Then
MsgBox "Es sind keine Zellen befüllt, daher kann ich auch nichts anzeigen!"
Else
For Each rngZelle In rngBereich.SpecialCells(xlCellTypeConstants, 23)
If Len(rngZelle.Value) > 255 Then MsgBox "Zelle zu lang: " & rngZelle.Address
Next rngZelle
End If
Set rngBereich = Nothing
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.12.2018 16:24:20 |
Sab |
|
|
|
12.12.2018 16:25:30 |
Gast41518 |
|
|
|
12.12.2018 16:31:19 |
Sabi |
|
|
wenn Anzahl Zeichen gleich 6 dann |
12.12.2018 17:23:27 |
Gast30243 |
|
|
|
12.12.2018 17:25:14 |
Gast39990 |
|
|
|
12.12.2018 17:26:19 |
Gast79450 |
|
|
|
12.12.2018 22:00:02 |
Gast92461 |
|
|
|
19.12.2018 12:59:32 |
Sabi |
|
|
|
19.12.2018 15:24:15 |
Gast92461 |
|
|