Wenn Links keine Zahl - MsgBox
02.02.2009 20:00:18
Heinz
Mit unteren Code werden Werte (Zahlen) verschoben.
Nun möchte ich bitte wenn in " Range("F65") = Left(wks.Range("C5").Value, 5) " keine 5 Zahlen stehen, das dann eine MsgBox erscheint "Linie 311 keine gültige SAP Nummer".
Ist das mit diesen unteren Code möglich ?
Gruß
Heinz
Range("F65").Copy
Range("F7").PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("F65") = Left(wks.Range("C5").Value, 5) 'Sonntag Linie 311