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

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige