Laufzeitfehler 2147417848 .find

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Marius
Die ganze Angelegenheit ist noch diffus. Ich kann den Fehler nicht rekonstruieren und zudem ist das ganze Projekt für meinen Geschmack zu umfangreich, um durchzublicken.
Aus dem holen Bauch heraus würde ich weniger auf ein Speicherproblem tippen. Ich würde eher annehmen, dass zum Zeitpunkt des Fehlers eine andere Mappe oder Applikation aktiv ist, wobei ich zugegeben auf Basis dieser Vermutung keinen Fehler provozieren konnte.
Vorschläge:
Ändere
Application.Worksheets(1).Columns(4)
in
ThisWorkbook.Worksheets(1).Columns(4)
Falls es nicht hilft, versuche den Fehler weiter einzugrenzen. Gibt es zum Zeitpunkt des Fehlers Auffälligkeiten z.B. eine andere Session/Applikation ist aktiv? Lässt sich der Fehler auf allen Rechnern auch mit unterschiedlichen Excel-Versionen rekonstruieren? Kannst du den gleichen Fehler in einer neuen "Dummy-Datei" provozieren?
Wenn du damit nicht weiterkommst, würde ich dir empfehlen eine soweit irgendwie möglich abgespeckte Beispieldatei ins Forum zu laden. Einerseits schliesst du damit Fehlerursachen aufgrund von Zusammenhängen mit anderen Codes/Tabellen etc. aus. Andererseits erleichterst du die Fehlersuche für dich und fürs Forum, wenn du das Problem reduzierst und rekonstruierbar (wiederholbar) machst.
cu
Chris

Hallo Chris und Luschi,
anbei eine vereinfachte Version meines Problems.
https://www.herber.de/bbs/user/155068.xlsm
Einfach Schaltfläche 1 und "Speichern" oft klicken, dann taucht der Fehler bei mir reproduzierbar auf.
Es spielt keine Rolle auf welchem Rechner. Andere Dateien sind nicht geöffnet. Auch wenn ich als andere Excel-Versionen speicher taucht das Problem auf.
@Luschi an so etwas habe ich gedacht, aber das löst das Problem leider nicht. oder ich bin zu doof es richtig einzusetzen ;)


'UserForm1 Auswahl an Fächern
Dim colButtons As New Collection
Private Sub UserForm_initialize()
Dim ctl As MSForms.Control
Dim obEvents As clsButtons
For Each ctl In Me.Controls
If TypeOf ctl Is MSForms.CommandButton Then
Set obEvents = New clsButtons
Set obEvents.Btn = ctl
colButtons.Add obEvents
End If
Next ctl
End Sub


'UserForm2 Eingeben der Daten und Speichern
Public Sub CommandButton1_Click()
Dim p As Integer
Dim platz(1 To 2)
p = 0
For q = 1 To 2
platz(q) = Fach & q
With Worksheets(1).Columns(4)
Set c = .Find(platz(q), LookIn:=xlValues)
n = 1
If q = 1 Then
n = q
Else
n = q * 2 - 1
End If
If Not c Is Nothing Then
c.Offset(0, 1).Value = Controls("TextBox" & n).Value
c.Offset(0, 2).Value = Controls("TextBox" & n + 1).Value
End If
End With
Next q
Unload Me
UserForm1.Show
End Sub
Public Sub UserForm_initialize()
Dim p As Integer
Dim platz(1 To 2)
p = 0
For q = 1 To 2
platz(q) = Fach & q
With Application.Worksheets(1).Columns(4)
Set c = .Find(platz(q), LookIn:=xlValues)
n = 1
If q = 1 Then
n = q
Else
n = q * 2 - 1
End If
If Not c Is Nothing Then
Controls("TextBox" & n).Value = c.Offset(0, 1).Value
Controls("TextBox" & n + 1).Value = c.Offset(0, 2).Value
Else
Controls("TextBox" & n).Locked = True
Controls("TextBox" & n + 1).Locked = True
Controls("TextBox" & n).BackColor = RGB(240, 240, 240)
Controls("TextBox" & n + 1).BackColor = RGB(240, 240, 240)
Controls("TextBox" & n).Visible = False
Controls("TextBox" & n + 1).Visible = False
End If
End With
Next q
End Sub


'Klassenmodul, damit alle CommanButtons das gleiche bewirken
Public WithEvents Btn As MSForms.CommandButton
Private Sub Btn_Click()
Fach = Btn.Caption
Unload UserForm1
UserForm2.Show
Set Btn = Nothing
End Sub

Beste Grüße,
Marius

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Laufzeitfehler 2147417848 .find

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread