Fehler:400 wenn UserForm aus Zelle heraus gestartet wird

29/09/2007 - 14:20 von m.kurtz | Report spam
Hallo NG
Bin Anfànger im Umgang mit VisualBasic.
Zerbreche mir seit ca. 4 Wochen den Kopf über mein Problem mit VBA.

Mein Problem ist folgender:
Ich habe eine UserForm erstellt mit einer ComboBox, diese UserForm
wird beim Doppelklick auf einer Zelle aufgerufen und bei der Auswahl
eines Textes aus der ComboBox in die Zelle geschrieben. Bei einer
Zelle funktioniert das Super, aber sobald ich einer Zelle dazu
Programmiere und Auswàhle, bekomme ich den Laufzeitfehler 400
(Formular wird bereits angezeigt...).

Wie kann ich diesen Fehler beseitigen habe auch im Internet gesucht,
aber nichts brauchbares gefunden, deshalb versuche ich es jetzt bei
Euch, da ich schon einige nützliche Informationen bei euch gefunden
habe.

Hier ein Auszug aus dem Code (liegt in der Tabelle aus VBA):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$P$4:$R$5" Then
UserForm1.Show
End If
If Target.Address = "$P$6:$R$7" Then
UserForm1.Show
End If
If Target.Address = "$P$8:$R$9" Then
UserForm1.Show
End If
End Sub

Bin für jeden Tip dankbar.
MKurtzen
 

Lesen sie die antworten

#1 Claus Busch
29/09/2007 - 15:20 | Warnen spam
Hallo!

Am Sat, 29 Sep 2007 05:20:59 -0700 schrieb :

Bin Anfànger im Umgang mit VisualBasic.
Zerbreche mir seit ca. 4 Wochen den Kopf über mein Problem mit VBA.

Mein Problem ist folgender:
Ich habe eine UserForm erstellt mit einer ComboBox, diese UserForm
wird beim Doppelklick auf einer Zelle aufgerufen und bei der Auswahl
eines Textes aus der ComboBox in die Zelle geschrieben. Bei einer
Zelle funktioniert das Super, aber sobald ich einer Zelle dazu
Programmiere und Auswàhle, bekomme ich den Laufzeitfehler 400
(Formular wird bereits angezeigt...).

Wie kann ich diesen Fehler beseitigen habe auch im Internet gesucht,
aber nichts brauchbares gefunden, deshalb versuche ich es jetzt bei
Euch, da ich schon einige nützliche Informationen bei euch gefunden
habe.



probiers mal so:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("P4:R5,P6:R7,P8:R9")) _
Is Nothing Then Exit Sub

If UserForm1.Visible = True Then
Exit Sub
Else
UserForm1.Show vbModeless
End If


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen