Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1756to1760
1756to1760
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kommentarinhat überprüfen

Forumthread: Kommentarinhat überprüfen

Kommentarinhat überprüfen
16.05.2020 12:55:23
Sergej
Hallo Leute,
ich habe mit unten beigefügtem Code überprüft, ob die Zelle KUNNR ein Kommentar enthält. Soweit in Ordnung.
Wie kann ich bitte ergänzend noch folgendes als Bedingung einfügen:
- Wenn der Kommentarinhalt nicht leer ist
- Wenn der Kommentarinhalt nicht mit \\ beginnt oder zweites Zeichen nicht ein : (Doppelpunkt enthält)
- Wenn der Kommentarinhalt nicht mit .cfg endet
Sub Comm()
If Range("KUNNR").Comment Is Nothing Then
MsgBox "Die Zelle ""KUNNR"" beinhaltet kein Inhalt oder ist nicht richtig ausgefüllt",  _
vbCritical
Else
End If
End Sub
Beste Grüße,
Sergej
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Kommentarinhat überprüfen
16.05.2020 13:04:40
Hajo_Zi
Hallo Sergej,
Option Explicit
Sub Comm()
If Range("KUNNR").Comment Is Nothing Then
MsgBox "Die Zelle ""KUNNR"" beinhaltet kein Inhalt oder ist nicht richtig ausgefüllt",  _
_
vbCritical
Else
If Left(Range("KUNNR").Comment.Text, 2) = "\\" Then
ElseIf Mid(Range("KUNNR").Comment.Text, 2, 1) = ":" Then
ElseIf Right(Range("KUNNR").Comment.Text, 4) = ".cfg" Then
Else
MsgBox "Falscher Kommentar"
End If
End If
End Sub
GrußformelHomepage
Anzeige
AW: Kommentarinhat überprüfen
16.05.2020 13:11:01
Sergej
Hallo Hajo,
vielen herzlichen Dank!
Beste Grüße,
Sergej
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige