Hallo ich habe folgendes Problem. Ich bin dabei eine Datenbank zu erstellen (das erste Mal) und habe folgenden Code unten eingegeben. Als ich das Makro zugewiesen habe, wurde mir in meinem Eingabeformular aber immer nur die Überschrift angezeigt. Es sollte doch den Wert aus der Datenbank anzeigen. Kann mir bitte jemand helfen? Ich sehe den Fehler einfach nicht.
Überschrift New PMA Standard Property_ID CompanyID DL
Zeile 12 No 46EU3506 TRPC PM.DE.NOC.DWSO.1
Code:
Sub KundenBearbeiten_DBEingabe()
'Tabelle einlesen
Dim tbl As ListObject
Set tbl = tb_Datenbank.ListObjects(1)
Dim Zeile As Long
Zeile = ActiveCell.Row = tbl.HeaderRowRange.Row
With tb_Eingabeformular
'Spalten leeren
.Columns("C").ClearContents
.Columns("F").ClearContents
.Columns("I").ClearContents
.Columns("L").ClearContents

'Eingabeformular befüllen
.Range("C13").Value = tbl.DataBodyRange(Zeile, 1).Value
.Range("C15").Value = tbl.DataBodyRange(Zeile, 2).Value
.Range("C15").Value = tbl.DataBodyRange(Zeile, 2).Value
.Range("C17").Value = tbl.DataBodyRange(Zeile, 3).Value
.Range("C19").Value = tbl.DataBodyRange(Zeile, 4).Value
.Range("C21").Value = tbl.DataBodyRange(Zeile, 5).Value
.Range("C23").Value = tbl.DataBodyRange(Zeile, 6).Value
.Range("C25").Value = tbl.DataBodyRange(Zeile, 7).Value
.Range("C27").Value = tbl.DataBodyRange(Zeile, 8).Value
.Range("C29").Value = tbl.DataBodyRange(Zeile, 9).Value

'Navigieren auf das Eingabeformular
.Shapes.Range(Array("txt_Anlegen", "img_Anlegen")).Visible = False
.Shapes.Range(Array("txt_Bearbeiten", "img_Bearbeiten")).Visible = True
.Select

'Zelle auswählen
.Range("C13").Select

End With
End Sub