aus 2 Gründen,
wenn ich die Spalten auswerte möchte, ich nie mit richtigen Rangeangaben arbeiten muss und die Tabellen/Spaltenbezeichnungen nutzen kann.
z.B. Excel
=ANZAHL2(Tabelle1[Spalte1])
oder in VBA
Range("TDiFirma[nName]").Select
Also bleibt die Sache an sich ziemlich Dynamisch
Dann kommt hinzu, dass sich die Tabelle, sofern Sie funktioniert auch immer gut selbstständig erweiter.
Z.B. kommt eine neue Spalte dazu und die enthält eventuell etwas mehr Daten, passt er die gesammte Tabelle wieder von alleine an.
kann man die Zeile
If Application.CountA(.Columns(lngSpalte)) > 0 Then lngSpalte = lngSpalte + 1
nicht irgend wie so hier anpassen
If Application.CountA(.Columns(lngSpalte)).Value = "" Then lngSpalte = lngSpalte + 1
das würde doch glaube ich alle Probleme die danach kommen mit einmal lösen.
grüße
Marco
|