MsgBox
30.10.2020 08:50:49
xtian
ich habe 2 Punkte wo ich leider nicht weiterkomme. Ich hoffe es kann mir jemand helfen.
Das Makro prüft, ob die Texte in Spalte 8 nicht länger als 20 Zeichen lang sind.
Problem 1: Sind die Texte nicht länger als 20 Zeichen, soll eine MsgBox mit den Worten
"Alles Ok" kommen.
Problem 2: Weiterführend würde ich gerne auch noch prüfen lassen, ob in den Texten
ein ö oder ä oder ü vorhanden ist.
Sub DateinamePruefen()
Dim i As Long
Dim DName As String
Dim LRow As Long
LRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 18 To 50 'LRow
DName = Cells(i, 8)
If Len(DName) > 20 Then
Cells(i, 8).Select
End If
Next
End Sub
Gruß
Christian
Anzeige