Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
132to136
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
132to136
132to136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

überlauf dringend!!!!!!!!!!!

überlauf dringend!!!!!!!!!!!
02.07.2002 15:28:42
jens k.
bei folgendem Makro kommt es zum überlauf.

Sub druck()
Dim anfang As Integer
Dim ende As Integer

anfang = InputBox("erste Artikelnummer")
ende = InputBox("bis Artikelnummer")
zeile = 2
spalte = 1
While Sheets("daten").Cells(zeile, spalte) <> anfang
zeile = zeile + 1
Wend
druck:
Cells(5, 1) = Sheets("daten").Cells(zeile, spalte)
Cells(5, 3) = Sheets("daten").Cells(zeile, spalte + 1)
Cells(5, 6) = Sheets("daten").Cells(zeile, spalte + 2)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
While Sheets("daten").Cells(zeile, spalte) <> ende
zeile = zeile + 1
GoTo druck
Wend
End Sub
vor einer stunde hats noch funktioniert woran liegts?????

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: überlauf dringend!!!!!!!!!!!
02.07.2002 15:36:11
Hans W. Hofmann
Hallo Jens,

Du hast eine Endlosschleife produziert
While Sheets("daten").Cells(zeile, spalte) <> anfang
zeile = zeile + 1
Wend

Gruß HW

Re: überlauf dringend!!!!!!!!!!!
02.07.2002 15:57:39
jens k.
hat sich mitlerweile erledigt, habe eine andere variable genommen string anstatt integer damit funktionierts , trotzdem danke

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige