Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige