Prozedur blockiert VBE

16/02/2010 - 08:45 von Ludwig | Report spam
Hallo,

die folgede Prozedur làuft zwar, jedoch nach einmaligem Aufruf wird
der VB Editor
blockiert, will heißen man kann im VB Editor keine Prozeduren mehr
editieren.

Zitat, hier die Prozedur:

Private Sub CBSucheFix_Click()
Dim SuchText As Variant
Dim FrageAntwort As Variant
Dim rFound As Range
Dim sFirst As String
Dim SuchSpalte As Long
Dim SpalteX As Variant

SuchSpalte = ActiveCell.Column
SpalteX = UFormStartMenü.ComboBox1.Value
If SpalteX = "" Then SpalteX = "C"
SuchText = InputBox("Bitte den Text eingeben", "Wir suchen einen
Text")

'Set rFound = ActiveSheet.[E5:E200].FindNext(rFound)
Set rFound = ActiveSheet.Range(SpalteX & "5:" & SpalteX &
"10000").Find(SuchText)

If rFound Is Nothing Then
MsgBox "Der Suchbegriff wurde nicht gefunden"
Else
sFirst = rFound.Address
Do
rFound.Select
'Set rFound = activesheet.[E5:E200].FindNext(rFound)
Set rFound = ActiveSheet.Range(SpalteX & "5:" & SpalteX &
"10000").FindNext(rFound)
'Set rFound = activesheet.Column("5:5").FindNext(rFound)
FrageAntwort = vbCancel
If Not rFound Is Nothing And sFirst <> rFound.Address Then
FrageAntwort = MsgBox("Wollen Sie nach *" & SuchText & " *
weiter suchen ?", vbYesNo + vbQuestion, "Achtung")
'FrageAntwort = MsgBox("Weiter?", vbYesNo + vbQuestion)
End If
Loop While FrageAntwort = vbYes


If FrageAntwort = vbCancel Then
MsgBox "OK, Ende, es gibt keinen weiteren Treffer"
End If
End If
Unload Me
End Sub

Zitat Ende.

Kann mir da jemand einen Tipp geben, woran das wohl iegen kann ?

Vielen Dank im Voraus.

Mit freundlichen Grüßen

Ludwig
 

Lesen sie die antworten

#1 Andreas Killer
16/02/2010 - 09:14 | Warnen spam
On 16 Feb., 08:45, Ludwig wrote:

die folgede Prozedur làuft zwar, jedoch nach einmaligem Aufruf wird
der VB Editor
blockiert, will heißen man kann im VB Editor keine Prozeduren mehr
editieren.


...
Kann mir da jemand einen Tipp geben, woran das wohl iegen kann ?


Das Problem liegt IMHO woanders, schau mal in die Titelzeile des VBE
ob dort ein "aktiv" steht und schau ggf. auch mal in den Taskmanager
welcher Prozess da gerade Zeit verbraucht.

Wenn der VBE das editieren nicht erlaubt kann daran liegen das Code
(ein Makro) làuft. Kann z.B. passieren wenn man ein Ereignis ausgelöst
hat.

Andreas.

Ähnliche fragen