Als Antwort auf diesen Beitrag
Hallo zs,
ich habe ein Problem beim Auslesen einer bestimmten intelligenten Tabelle was die letzte Zeile ist.
Tabellenblatt ist A_Kunden... das ist die einzige Tabelle in diesem Blatt.
Die Intel. tabelle beginnt bei Zeile 10 mit der Übersicht und heisst tbl_kunden.
trotzdem bekomme ich immer nur die ID 1 angezeigt...
Sub kundenanlegen_DBEingabe()
'Tabelle einlesen
Dim tbl As ListObject
Set tbl = A_Kunden.ListObjects(1)
With eingabemaske
'Spalten leeren
.Columns("G").ClearContents
.Columns("K").ClearContents
.Columns("O").ClearContents
'ID einfügen
.Range("G3").Value = tbl.DataBodyRange(tbl.DataBodyRange.Rows.Count, 1).Value + 1
'navi auf eingabe
.Shapes.Range(Array("txt_anlegen")).Visible = True
.Shapes.Range(Array("txt_bearbeiten")).Visible = False
.Select
'Zelle auswaählen
.Range("G8").Select
MsgBox Cells(5, Columns.Count).End(xlToLeft).Column 'letzte Spalte
End With
End Sub