- #1
I
isostar
Neues Mitglied
Themenersteller
- Dabei seit
- 06.11.2005
- Beiträge
- 2
- Reaktionspunkte
- 0
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
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