Kleines Problem!! Hilfe

[Simsi1277]

Hi Zusammen, breuchte mal Eure Hilfe.

Folgendes Problem: Ich möchte von 8 Comboboxen den Textinhalt in ein anderes Programm in deren Comboboxen Kopieren. Sowit so gut. Das auslesen ist nicht das Problem. Ich mache dies mit Clipboard.

Vorgehensweise:
1. VBA Prog starten
2. Mauszeiger in die Combobox setzen wo die erst Combobox reinkopiert werden soll
3. wieder zum VBA Prog wechseln und Button Übertragen drücken
4. jetzt wird der inhalt der Combobox kopiert in Clipboard
5. String+C
6. Mit Alt+Tab wird Fenster gewechselt
7. Mit String+V wird inhalt in Combobox kopiert
8 Mit Tab wird in die nächste Combobox geswitcht wo der nächste Inhalt reinkopiert werden soll
9. Mit Alt+Tab gehts wieder zu den Ausgangs Comboboxen und der Inhalt der 2 Combobox wird ins Clipboard eingelesen .........

Problem ist das er das einwandfrei macht mit nur einer Combobox. Sobald ich es mit 2 versuche ...schreibt er mir in die erst Combox den Inhalt der 2tenb Combobox und in die 2 Combox erhält ihren richtigen Inhalt.. Irgendwie geht der Inhalt des ersten kopierens verloren und er arbeitet nru noch mit dem Inhalt der eigentlichen 2ten Combobox

Hier mal der Code:

Private Sub Transfer_Click()
Call Command1_Click
End Sub


Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText Combo1.Text
SendKeys "^{C}"
SendKeys "%{TAB}"
SendKeys "^{V}"
SendKeys "{TAB}"
SendKeys "%{TAB}"
Call Command2_Click
End Sub

Private Sub Command2_Click()
Clipboard.Clear
Clipboard.SetText Combo2.Text
SendKeys "^{C}"
SendKeys "%{TAB}"
SendKeys "^{V}"
SendKeys "{TAB}"
End Sub

 

[Alex F.]

Du rufst am ende von sub Command1_Click()
das click ereignis von Command2 auf hier würde ich den Fehler vermuten

Grüsse bb