Hallo Zusammen
ich würde geren wissen wie ich sicherstellen kenn das meine Inputeingabe in uppercase gewandelt wird
wo muß ich di Funktion UCase einbeinden
Dim Artikelnumer As String
' Neue Daten eingeben, Vorgangsabbruch jederzeit möglich
Artikelnummer = InputBox("Artikelnummer ohne Leerzeichen eingeben")
If Artikelnummer "" Then
zeilea = 50
For zeilea = 50 To 9999 Step 1
If Range(Cells(zeilea, 1), Cells(zeilea, 1)) = "" Then
zeilea = 9999
End If
If Range(Cells(zeilea, 1), Cells(zeilea, 1)) = Artikelnummer Then
Mldg = "Dieser Artikel ist bereits vorhanden" & Chr(13) & Chr(13) & "Furz"
Stil = vbOKOnly + vbExclamation
Title = "Hinweis: Artikelsuche"
Ergebnis = MsgBox(Mldg, Stil, Title)
If Ergebnis = 1 Then
GoTo Beenden
End If
zeilea = 9999
End If
Next zeilea