Automatisierungsfehler
22.09.2004 17:10:38
Stefan
folgendes Problem ich habe ein Makro, welches eine Form aufruft, und die eingetragenen werte in ein Blatt schreibt und noch ein bisschen was hin und her kopiert...
Beim 2. ausführen des selben Makros bekomm ich statt den gewünschten Ergebnis eine fehlermeldung: Automatisierungsfehler. Der aufgerufene (Server, nicht die Serveranwendung) ist nicht verfügbar und kann nicht gefunden werden. Evtl. wurde der Aufruf ausgeführt.
Hier der leicht gekürzte Code (alle wichtigen teile sind enthalten)
-------------------------------------------------------------------
Public frmDate As New DateForm
Sub Mitarbeiter_einfuegen()
Dim sSP As String
Dim iLine As Integer
Tabelle2.Activate
If FormDate = False Then
Exit Sub
End If
With ActiveSheet
.Range(sSP & iLine).Select
ActiveCell.Value = frmDate.txtName.Text
ActiveCell.Offset(rowoffset:=2 + frmDate.listVon.ListIndex, columnoffset:=1).Activate
ActiveCell.Value = frmDate.txtStd.Text
If frmDate.listBis.ListIndex .Range(sSP & iLine).Select
ActiveCell.Offset(rowoffset:=2 + frmDate.listBis.ListIndex + 1, columnoffset:=1).Activate
ActiveCell.ClearContents
End If
End With
End Sub
'***************************************************************************
' Öffnet das Formular "DateForm" auf
'***************************************************************************
Private Function FormDate() As Boolean
On Error GoTo Fehler
'Form öffnen
frmDate.Show vbModal
If Not frmDate.Cancelled Then
FormDate = True
Unload frmDate
Else
FormDate = False
End If
Exit Function
Fehler:
MsgBox Err.Description, vbCritical
End Function
--------------------------------------------------------------------
Könnt ihr mir helfen?
Danke!
Stefan