Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inputbox

Forumthread: Inputbox

Inputbox
Peter
Hallo,
Ich arbeite mit einer Inputbox, mit den Buttoms OK und Abrechen. Beim Benutzen des "Abrechen", kommt Laufzeitfehler 9 index ausser dem gültigen Bereich.
Wie kann ich den Fehler vermeiden.
Danke
Peter
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Inputbox
Ramses
Hallo
Das ist ohne den anderen Code nicht möglich zu sagen.
"Abbrechen" alleine verursacht keine Fehler
Du kannst höchstens die Inputbox abfragen
x = Inputbox(".....
If x = "" Then Exit Sub
oder du schreibst dir eine Fehlerroutine
Gruss Rainer
AW: Inputbox
Peter
Hi,
ich habe mal den ganzen Ablauf aufgezeichnet.
Vielleicht kannst Du da was erkennen. Von einer Fehlerroutine habe ich keine Ahnung.
Peter

Sub Abrufe_laufende_Woche_10()
Application.ScreenUpdating = False
Monat = InputBox("Bitte Monat eingeben(Bsp:MMJJ)", , Monatsname)
Sheets(Monat).Select
kawo = InputBox("Bitte die laufende Kalenderwoche eingeben(99=Gesamter Monat)", , KWL)
kawo1 = "<=" + kawo
Selection.AutoFilter Field:=1, Criteria1:=kawo1, Operator:=xlAnd
Selection.AutoFilter Field:=9, Criteria1:="10"
Range("A4").Select
ActiveWindow.ScrollRow = 4
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Inputbox
Ramses
Hallo
wie ich bereits geschrieben habe

Sub Abrufe_laufende_Woche_10()
Application.ScreenUpdating = False
Monat = InputBox("Bitte Monat eingeben(Bsp:MMJJ)", , Monatsname)
If Monat = "" then Exit sub
Sheets(Monat).Select
kawo = InputBox("Bitte die laufende Kalenderwoche eingeben(99=Gesamter Monat)", , KWL)
If kawo = "" Then Exit Sub
kawo1 = "<=" + kawo
Selection.AutoFilter Field:=1, Criteria1:=kawo1, Operator:=xlAnd    Selection.AutoFilter Field:=9, Criteria1:="10"
Range("A4").Select
ActiveWindow.ScrollRow = 4
Application.ScreenUpdating = True
End Sub

Gruss Rainer
Anzeige
Danke, es flutscht. oT
26.03.2004 06:18:20
Peter
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige