Fehlermeldung '91'

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hey Werner,
Es wird sehr schwer, das so zu machen das du die jeweilige Userform öffnen kannst, wo man auf einen Knopf drücken muss, weil diese sich zich Daten aus den tabellenblättern zieht, welche ich jetzt großteils gelösccht habe um auf unter 300KB zu kommen.
Hier aber die Datei wie ich sie jetzt habe ohne einen großteil der Tabellenblätter.
Die Userform heißt "Achsbild_Tool_erstellen" und bei der Userform oben rechts in der ecke sind zwei kleine Knöpfe, der untere ist der wo ich normal das Problem bekomme.
Hier einmal die Datei mit allen Codes, wo du aber die Userform nicht benutzen kannst, weil X Daten von tabellenblättern fehlt:
https://www.herber.de/bbs/user/135613.xlsm
Hier einmal die Datei, wo du dann per der "Achsbild_Tool_erstellen" Userform auch den Fehler bekommst mit '91', aber so das du auf dieser Userform alles betätigen kannst, weil Codes gelöscht sind etc.:
https://www.herber.de/bbs/user/135614.xlsm
Vielen Dank für deine Antwort nochmal,
LG Herbert!

Hallo,
als erstes hättest du mal meinen Hinweis umsetzen können. Dann hättest du nämlich festgestellt, dass der Fehler im Userform_Initialize deiner Userform auftritt.
Da du hier:

Set finden = Columns(29).Find(what:=TextBox_Name)

den Namen des Blattes nicht angibst, in dem gesucht werden soll, suchst du im aktiven Blatt - das ist das Blatt von dem aus du die Userform aufrufst - und da gibt es in Spalte 29 (AC) nichts. Somit kann man auch nichts finden und dein Set... läuft in einen Fehler.

Private Sub UserForm_Initialize()
Dim finden As Range
TextBox_Name.Value = Sheets("Einstellungen").Range("AH1").Value
TextBox_Achsbild = Sheets("Einstellungen").Cells(Indx + 3, 30)
Set finden = Sheets("Einstellungen").Columns(29).Find(what:=TextBox_Name, _
LookIn:=xlValues, LookAt:=xlWhole)
If Not finden Is Nothing Then
TextBox_Namen_Zelle = finden.Address
TextBox_Achsbild.Value = WorksheetFunction.VLookup(TextBox_Name.Value, _
Sheets("Einstellungen").[Tabelle9], 2, False)
End If
End Sub

Zudem sollte man bei Find immer zumindest die Parameter LookIn und LookAt mit angeben. Excel speichert diese nämlich bei einer "händischen" Suche ab und greift dann per Makro auf die abgespeicherten Einstellungen zu, wenn diese nicht explizit im Code angegeben werden. Das kann aber zu fehlerhaften Ergebnissen führen.
Gruß Werner

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehlermeldung '91'

6 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)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread