Excel-Formel in VBA-Code umwandeln

Question

Hallo,

in einer intelligenten Tabelle "tabDaten" habe ich in Spalte "B" eine Liste mit Einträgen im Format "T999".

Ich möchte die Tabelle erweitern und suche den nächst höheren Eintrag in diesem Format. Das klappt mit der Formel ="T"&TEXT(MAX(RECHTS(B3:B305;3)+1);"000") ausgezeichnet.

Jetzt will ich einen VBA-Code schreiben, der das gleiche Ergebnis erzielt und dabei die intelligente Tabelle (databodyrange...) nutzt.

Bisher sind alle meine Versuche gescheitert. hat jemand einen Tipp?

Danke und Gruß A.

Answer 1

Hi,

nach diesem Prinzip:

    Mid(ActiveSheet.ListObjects(1).DataBodyRange.Columns(2).Cells.Value, 2) + 1

Bis später, Karin

Answer 2

Vielen Dank Karin!