Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Artikel Nummer überprüfen in VBA

Artikel Nummer überprüfen in VBA
14.01.2004 22:50:13
Stephen
Hallo,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Artikel Nummer überprüfen in VBA
14.01.2004 23:27:30
PeterW
Hallo Stephen,
vielleicht beschreibst du besser im Klartext, was du möchtest und schaust dir mal das an:
http://xlfaq.herber.de/xlbasics/main_sel.htm
Gruß
Peter
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige