Office: WorksheetFunction.Max in Excel 2010 mit Tabellen

Hallo

Ich habe eine Tabelle mit dem Namen Aufträge. Sie hat eine Spalte mit dem Namen AuftragsID. AuftragsID ist eine fortlaufende Nummer.
Um die nächsthöhere Nummer berechnen, benutze ich im Excelblatt folgende Formel:

Code:

=Max(Aufträge[AuftragsID])+1

Um mir die Arbeit zu erleichtern habe ich ein Formular geschrieben. Ich benutzte folgende Formel in der Userform um die nächsthöhere Zahl zu erhalten. Ich benutzte damals named ranges:

Code:

Dim AuftragsID as Long
AuftragsID = WorksheetFunction.Max(Range("AuftragsID")) + 1

Wie schreibe ich diese Formel aber mit der Tabellespalte AuftragsID

Danke
Maria

 

Hallo Maria,

wo ist das Problem? Die von dir im zweiten Code gezeigte Formel berechnet genau die neue AuftragsID aus dem genannten/benannten Bereich. Eventuell solltest du noch Sheets("SheetName) mit einfügen.


</pre>

</pre>

 

Hallo Maria,

ich habe leider nur Excel2007 (und kein Excel2010) - aber ich vermute, dass der Code der 2007er-Version auch bei Dir funktioniert:

Falls Dein Arbeitsblatt, in dem sich die Tabelle "Aufträge" mit der Spalte "AuftragsID" befindet, "Tabelle1" heißt,
dann lautet in Excel2007 die Bereichsermittlung für die Spalte "AuftragsID" der Tabelle "Aufträge" (ohne Kopf- und Fußzelle):

Worksheets("Tabelle1").ListObjects("Aufträge").ListColumns("AuftragsID").DataBodyRange

und damit lautet Dein VBA-Code-Abschnitt:

Code:

    
Dim AuftragsID as Long
AuftragsID = WorksheetFunction.Max(Worksheets("Tabelle1").ListObjects("Aufträge").ListColumns("AuftragsID").DataBodyRange) + 1

oder aber Du fügst im Arbeitsblatt "Tabelle1" in einer Zelle folgende Formel ein:
=MAX(Aufträge[AuftragsID])+1
und fragst per VBA-Code diesen Zellwert ab.