Thema Datum  Von Nutzer Rating
Antwort
12.12.2018 16:24:20 Sab
NotSolved
12.12.2018 16:25:30 Gast41518
NotSolved
12.12.2018 16:31:19 Sabi
NotSolved
Blau wenn Anzahl Zeichen gleich 6 dann
12.12.2018 17:23:27 Gast30243
NotSolved
12.12.2018 17:25:14 Gast39990
NotSolved
12.12.2018 17:26:19 Gast79450
NotSolved
12.12.2018 22:00:02 Gast92461
NotSolved
19.12.2018 12:59:32 Sabi
NotSolved
19.12.2018 15:24:15 Gast92461
Solved

Ansicht des Beitrags:
Von:
Gast30243
Datum:
12.12.2018 17:23:27
Views:
513
Rating: Antwort:
  Ja
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

 


Ihre Antwort
  • 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: Name: Email:



  • 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
NotSolved
12.12.2018 16:25:30 Gast41518
NotSolved
12.12.2018 16:31:19 Sabi
NotSolved
Blau wenn Anzahl Zeichen gleich 6 dann
12.12.2018 17:23:27 Gast30243
NotSolved
12.12.2018 17:25:14 Gast39990
NotSolved
12.12.2018 17:26:19 Gast79450
NotSolved
12.12.2018 22:00:02 Gast92461
NotSolved
19.12.2018 12:59:32 Sabi
NotSolved
19.12.2018 15:24:15 Gast92461
Solved