Thema Datum  Von Nutzer Rating
Antwort
Rot Userform
12.11.2019 10:38:11 Alex
NotSolved
12.11.2019 10:49:39 Mase
NotSolved
12.11.2019 11:16:25 Mase
NotSolved
12.11.2019 11:21:02 Alex
Solved

Ansicht des Beitrags:
Von:
Alex
Datum:
12.11.2019 10:38:11
Views:
859
Rating: Antwort:
  Ja
Thema:
Userform

Moin zusammen,

ich habe mir das BuchVBA mit Excel - Das umfassende Handbuch von Bernd Held gekauft, und wollte nun ein Verwaltungstool über eine Userform erstellen. Also habe ich zunächst das Interface der Userform gestaltet (10 Labels + 10 Textfelder + 1 ListenBox) und anschließend angefangen, den Code aus dem Buch zu nutzen.


Private Sub UserForm_Initialize()

Dim i As Integer

With tbl_Artikel

'Überschrift der Userform aus Zelle A1 holen
Me.Caption = .Range("A1").Value

For i = 1 To 10
    Me.Controls("Label" & i).Caption = .Cells(2, i).Value
Next i

'Überschrift der Listbox aus Tabelle holen
For i = 1 To 5
    Me.Controls("Label" & i + 10).Caption = .Cells(2, i).Value
Next i

End With

'ListBox erstellen
With Me.ListBox1
    .ColumnCount = 6
    .ColumnCount = "80;80;80;80;80;10"
End With

'Cursor standardmäßig in die erste Textbox setzen
Me.TextBox1.SetFocus
    

End Sub

Im Buch wird der Code so erläutert, dass die Labels sowie auch die Spaltenüberschriften in der ListenBox automatisch aus dem Tabellenblatt bezogen werden und in das Formular eingetragen werden. Sobald ich jedoch den Code im VBA Editor starten möchte, kommt die Fehlermeldung "Laufzeitfehler '-2147024809 (80070057)': Das angegebene Objekt konnte nicht gefunden werden." Das Formular öffnet sich nicht einmal mehr. Bevor ich den Code in die Userform eingetragen habe, hat sie sich wenigstens noch geöffnet.

Wo liegt der Fehler? Die Tabelle mit allen Daten heißt "tbl_Artikel" und das Formular "Die_Inventur".

Danke schon mal im Voraus.

Gruß Alex


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Userform
12.11.2019 10:38:11 Alex
NotSolved
12.11.2019 10:49:39 Mase
NotSolved
12.11.2019 11:16:25 Mase
NotSolved
12.11.2019 11:21:02 Alex
Solved