TextBox aktivieren

[blackpanther]

Hallo. Beim Ausführen des Scripts öffnet sich eine Dialogbox mit drei Textboxen. Zur Zeit muss ich immer erst in das Dialogfenster klicken um etwas eintragen zu können. Welchen Befehl muss ich hier noch ergänzen damit die erste Textbox aktiviert wird. Das ist mein erstes Script überhaupt, aber es läuft so wie ich es wollte. Daher bitte nicht gleich den Kopf abreisen
Vielen Dank


' Dialog gestalten:
Begin Dialog AUSGABEN 800, 400, 204, 92, "Ausgaben"
Text 4,4,92,12, "Wie lautet die Rechnungs-Nr.:"
Text 4,24,92,12, "Wie lautet das Rechnungs-Datum:"
Text 4,44,92,12, "Wie hoch ist der Rechnungs-Betrag:"
TextBox 104,4,88,10, .Box1
TextBox 104,24,88,10, .Box2
TextBox 104,44,88,10, .Box3
OKButton 36,72,48,12
CancelButton 112,72,48,12
End Dialog

Sub Ausgaben
' PlanMaker starten:
Dim pm as Object
Set pm = CreateObject("PlanMaker.Application")
pm.Application.Visible = True
AppPlanMaker "Dateipfad.pmdx" <---- Dateipfad geändert!
' Dialog Anweisungen:
Dim Dlg1 As Ausgaben
Dlg1.Box1 = ""
Dlg1.Box2 = ""
Dlg1.Box3 = ""
button = Dialog(Dlg1)
If button = 0 Then Exit Sub
' Werte in die Tabelle eintragen:
pm.Application.Range("A8").Value = Dlg1.Box1
pm.Application.Range("C8").Value = Dlg1.Box2
pm.Application.Range("D8").Value = Dlg1.Box3
' Neue Zellen einfugen:
pm.Application.ActiveSheet.Range("A7:D7").Select
pm.Application.ActiveSheet.Selection.Copy
pm.Application.ActiveSheet.Range("A8:D8").Select
pm.Application.ActiveSheet.Selection.Insert Shift:=xlDown
' Zellen verbinden:
pm.Application.ActiveSheet.Range("A8:B8").MergeCells = True
End Sub

[SuperTech]

Vielen Dank für Ihren Beitrag und für die Bereitstellung des Codes. Bitte stellen Sie Ihre vollständige Datei zum Testen zur Verfügung. Sie können auch in unserem Benutzerhandbuch nachsehen, wie die Dialogfunktion funktioniert.

[blackpanther]

Hier ist die Datei zum Testen.

Mir ist aufgefallen wenn ich den Dateipfad AppPlanMaker "C:\Users\micha\Desktop\Kosten.pmdx" weglasse und die Datei, bevor ich das Script ausführe, starte funktioniert es. Der Cursor ist in der Textbox im Dialogfenster und ich kann sofort mit der Eingabe beginnen. Füge ich den Dateipfad hinzu, damit ich über das Script auch gleich die Datei starten kann geht es nicht. Dann muss ich erst in Planmaker klicken bevor ich eine Eingabe machen kann. Dieses "klicken" würde ich gerne weg lassen und sofort mit der Eingabe beginnen.

[SuperTech]

Vielen Dank für die Bereitstellung des Scripts. Bei der Überprüfung habe ich festgestellt, dass Sie die unpassende Funktion AppPlanMaker zum Laden des Dokuments verwenden. Sie sollten jedoch pm.Application.Workbooks.Open("Dateiname") verwenden, was Ihr Problem lösen wird.

Hier ist die aktualisierte Arbeitsdatei zu Ihrer Information.

Kosten.bas

(1.23 KiB) 275-mal heruntergeladen

[blackpanther]

Vielen Dank.

Ich habe die Funktion ausgetauscht. Jetzt funktioniert es einwandfrei.