Bezug auf andere Tabelle endet mit Fehlermeldung
16.12.2024 01:23:37
Klaus B aus D
es ist nur ein ganz kleiner Schritt zur Lösung, doch ich kriege es nicht hin.
Im Arbeitsblatt "Wertungspunkte" wird eine UserForm1 geöffnet und der Anwender gibt eine Ganzzahl in das Feld "txtStartNr" ein. Nach dem Return wird die Routine "Sub PunkteLaden()" aufgerufen, die einige Textfelder (txt11, txt12, ...) im Formular mit Einträgen aus der zugrunde liegenden Tabelle füllt. Das funktioniert soweit.
Zusätzlich soll zwecks Plausibilitätskontrolle der Name eines Teilnehmers, zusammengesetzt aus Nach- und Vorname (Spalten B u. C), ein einem Textfeld "txtTeilnehmer" erscheinen.
Diese Information suche ich in der Spalte "A" (TN-Nr = StartNr) eines weiteren Arbeitsblatts "Teilnehmer" und dem Durchlaufen der Zeileninhalte mit Hilfe der Offset-Eigenschaft.
Mit Ausführen des Codes erscheint die Fehlermeldung "438": Objekt unterstützt diese Eigenschaft oder Methode nicht. Die Zeile "Me.txt Teilnehmer= ..." wird markiert. Was mache ich falsch?
' TN-Punkte aus Tabelle ins Formular laden
Sub PunkteLaden()
' Hinweis aus HERBERS Excel-Forum (24.11.2024): _
Formuliere die Argumente der Find-Methode Lookat, Lookin und MatchCase!
Set rng = Worksheets("Wertungspunkte").Range("A2:A80").Find(what:=txtStartNr, LookAt:=xlWhole, LookIn:=xlValues)
If rng Is Nothing Then
MsgBox "Es wurde KEINE entsprechende Startnummer gefunden."
Else
'MsgBox "Es wurde die Startnummer " & rng & " gefunden."
' TN einlesen
Me.txtTeilnehmer = Sheets("Teilnehmer").Range("A2:A80").rng.Offset(0, 1)
' Punkte einlesen
Me.txt11 = rng.Offset(0, 4)
Me.txt12 = rng.Offset(0, 5)
Me.txt13 = rng.Offset(0, 6)
Me.txt14 = rng.Offset(0, 7)
Me.txt21 = rng.Offset(0, 9)
Me.txt22 = rng.Offset(0, 10)
Me.txt23 = rng.Offset(0, 11)
Me.txt24 = rng.Offset(0, 12)
End If
End SubGruß Klaus
Anzeige