Bjoern
auf ausgeblendete Register kann kein select und ähnliche Befehle ausgeführt werden. Löse es ungefähr so
Gruß Hajo
gut macht sich bei beantwortung von Fragen, wenn Du den code ins Forum stellst, mit einer Bemerkung wo es harkt. Spitze wäre es, wenn noch Kommentare vorhanden wären.
Gruß Hajo
'
With Worksheets("Kunden")
Range("k30").Select
runter = ActiveCell
Range("k31").Select
knummer = ActiveCell
Firma = InputBox("Bitte geben Sie den Namen der Firma ein.")
Strasse = InputBox("Bitte geben Sie den Strassennamen der Firma ein.")
plz_ort = InputBox("Bitte geben Sie die Plz und den Ort der Firma ein.")
rabatt = InputBox("Bitte geben Sie den Rabatt der Firma ein.")
Cells(runter, 1).Select
ActiveCell = knummer
Cells(runter, 2).Select
ActiveCell = Firma
Cells(runter, 3).Select
ActiveCell = Strasse
Cells(runter, 4).Select
ActiveCell = plz_ort
Cells(runter, 5).Select
ActiveCell = rabatt
runter = runter + 1
Range("k30").Select
ActiveCell = runter
knummer = knummer + 1
Range("k31").Select
ActiveCell = knummer
Sheets("auswahl").Select
End With
End Sub
--------------
An dem ersten Cells-befehl hängt er sich auf, die felder k30 und k31 sind mit den Nummer 1 u. 2 ausgefüllt
Gruß Hajo
'
Sheets("Artikel").Select
For schleifen = 1 To 19
Range("k1").Select
down = ActiveCell
Cells(down, 4).Select
wert1 = ActiveCell
Cells(down, 8).Select
wert2 = ActiveCell
Cells(down, 3).Select
Artikel = ActiveCell
Cells(down, 9).Select
hb = ActiveCell
If wert1 < wert2 Then
wert3 = hb - wert1
Dim Antwort
Antwort = MsgBox("Der Meldebestand bei dem Artikel '" & Artikel & "' ist mit " & wert1 & " Stück erreicht. Um den Höchstbestand zu erreichen, müssen " & wert3 & " Artikel bestellt werden. Bestellung erstellen?", vbYesNo, "Meldebestand erreicht!")
If Antwort = vbYes Then
Application.Run "Auswahl.xls!b_anfrage"
Else
Range("a1").Select
End If
schleifen = 22
Else
down = down + 1
End If
Range("k1").Select
ActiveCell = down
Next schleifen
Range("k1").Select
ActiveCell = 2
End Sub
-------------
umzuändern versucht. Jetzt löscht er leider daten in einer artikelliste:
------------------
Sub lagerbestand()
'
' lagerbestand Makro
' Makro am 26.05.2002 von Bjoern Philipps aufgezeichnet
'
'
With Worksheets("Artikel")
For schleifen = 1 To 19
down = .Range("k1")
.Cells(down, 4) = wert1
.Cells(down, 8) = wert2
.Cells(down, 3) = artikel
.Cells(down, 9) = hb
If wert1 < wert2 Then
wert3 = hb - wert1
Dim Antwort
Antwort = MsgBox("Der Meldebestand bei dem Artikel '" & artikel & "' ist mit " & wert1 & " Stück erreicht. Um den Höchstbestand zu erreichen, müssen " & wert3 & " Artikel bestellt werden. Bestellung erstellen?", vbYesNo, "Meldebestand erreicht!")
If Antwort = vbYes Then
Application.Run "Auswahl.xls!b_anfrage"
Else
.Range ("a1")
End If
schleifen = 22
Else
down = down + 1
End If
.Range("k1") = down
Next schleifen
.Range("k1") = 2
End With
End Sub
-------
Vielleicht findest du ja den Fehler.
Danke für das bisherige
Bjoern