Artikel Nummer überprüfen in VBA
14.01.2004 22:50:13
Stephen
ich habe mir ein Macro einfallen lassen, um in einer meiner Sheets
die Artikelnummern zu überprüfen.
Das funktioniert alles bestens, bis der erste falsche Artikel gefunden wird.
Er kopiert ordnugsgemäß den falschen Artikel auf ein 2tes Tabellenblatt.
Danach wird das Macro einfach beendet, obwohl es nach weiteren falschen Artikeln in der ersten Tabelle suchen soll, obwohl ich ordnungsgemäße Schleifen verwendet habe.
Vielleicht kann jemand den Code korrigieren, dass nach dem 1. Fehler weitergesucht wird.
So sieht das Macro aus:
Private Sub cmdÜberprüfen_Click()
Unload Me
Dim i As Long
Sheets("Weine").Activate
Range("A2").Activate
Range("A2").Select
Do While ActiveCell.Value <> ""
Sheets("Weine").Activate
If Len(ActiveCell.Value) <> 3 Then
MsgBox "Falsche Artikelnummer in " & ActiveCell.Address
i = i + 1
Selection.EntireRow.Copy
Sheets("Falsche Artikelnummern").Activate
Selection.EntireRow.Insert
ActiveCell.Offset(0, 6).Value = _
ActiveCell.Offset(0, 6).Value & "Ungültige Weinnummer"
ActiveCell.Offset(6, 0).Select
Application.CutCopyMode = False
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Vielen Dank schonmal im Vorraus
Mfg Stephen