Application.InputBox Verhalten
Peter
bin schon eine ganze Zeitlang am suchen, finde aber nix.
Meine Aufgabenstellung:
Der Benutzer soll eine Zelle auswählen können, in dem sich der von ihm gewünschte Dateiname befindet.
Das Ganze wird über eine Application.Inputbox abgefragt.
Sub Dateiname()
strDateiname = Application.InputBox("Bitte wählen Sie die Zelle aus, die den gewünschten _
Dateinamen enthält", "Dateiname wählen...", , , , , , Type:=2)
End Sub
Jetzt das (für mich) kuriose:
Führe ich die Routine Dateiname() im Einzelschrittmodus aus, funktioniert das Ganze.
Führe ich die Routine xy() im Einzelschrittmodus aus, funktioniert das Ganze auch.
Führe ich die Routine xy() im VBA-Editor (mit F5) aus, funktioniert es immer noch.
Wenn ich aber die Routine xy() über eine selbsterstellte Menüleiste aufrufe, dann funktioniert das Ganze nicht mehr.
Die Inputbox wird 2x angezeigt, danach bricht der Code ab.
Nachfolgend noch der Codeschnipsel für den entsprechenden Eintrag in der Menüleiste:
Set objBtn = objPopUp.Controls.Add(msoControlButton)
With objBtn
.caption = "xy"
.OnAction = "xy()"
.FaceId = 3
End With
Selbes Verhalten tritt auch auf, wenn ich das Ganze mit einem RefEdit1 mache.
Wer hat eine Idee, wo der Hammer hängt.
Danke im Voraus.
Gruß Peter
Anzeige