Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Automatisierungsfehler

Automatisierungsfehler
22.09.2004 17:10:38
Stefan
Hallo,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige