Excel VBA Find-funktions Problem

Dieses Thema Excel VBA Find-funktions Problem im Forum "Windows XP Forum" wurde erstellt von isostar, 6. Nov. 2005.

Thema: Excel VBA Find-funktions Problem Hallo Leute, Habe eine Rechnung in Excel erstellt die in Spalte A  Artikelnummern enthält, die Anzahl der Artikeln,...

  1. Hallo Leute,

    Habe eine Rechnung in Excel erstellt die in Spalte A  Artikelnummern
    enthält, die Anzahl der Artikeln, gebe ich mit einem Makro das die Find Funktion Anwendet ein.

    Folgendes Problem:

    Die Artnr. (62) ist nicht Vorhanden aber dafür die Nr.(162)

    wenn ich jetzt die Nr. 62 eingebe kommt keine Fehlermeldung sonder
    die Find Funktion springt auf die Nr. 162

    Hier ein Teil meines Makros mit der Find Funktion

    XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

    On Error GoTo Art_fehler

    ->Daten eintragen
    Eingabe:
    Do
        ArtNr = InputBox(Getränke Artikel Nummer eingeben ?, Art.Nr.GETRÄNKE, , 2000, 2800)

    If ArtNr = Then GoTo wiederholen:

        ActiveSheet.Unprotect
        Range(A9:A151).Find(ArtNr).EntireRow. _
        Cells(Eingabe).Select
        menge = CSng(InputBox(Lieferung Anzahl Kisten eingeben ?, LIFERMENGE, , 2000, 2800))


    ich hoffe es kann mir jemand helfen.

    Danke Grüße isostar
     
  2. Hallo isostar,

    ersetz mal ...Find(ArtNr).... gegen ...Find(ArtNr, LookAt:=xlWhole)....

    Gruß Matjes :)
     
  3. Hallo Matjes,

    vielen Dank für die schnelle Hilfe  :D

    klappt prima.  :)

    Herzlichen Dank

    isostar
     
Die Seite wird geladen...

Excel VBA Find-funktions Problem - Ähnliche Themen

Forum Datum
Excel-Feature gesucht Microsoft Office Suite 11. Okt. 2016
Excel Tabelle Werte zu ordnen Microsoft Office Suite 23. Sep. 2016
Excel: Bereiche auf 'leer' Überprüfen Microsoft Office Suite 15. Sep. 2016
Import Datensatz inkl = und - Zeichen in Excel/Libre CALC Software: Empfehlungen, Gesuche & Problemlösungen 20. Mai 2016
Bestimmter User kann seine Excel Dateien nicht mehr direkt öffnen Software: Empfehlungen, Gesuche & Problemlösungen 16. Apr. 2016