korrektes Update der Spaltenzahl
Thorsten
mein Problem ist das folgende:
Ich füge einer Tabelle mittels Makro Spalten mit Werten
hinzu und lösche manuell Spalten.
Wenn ich danach versuche, die korrekte Anzahl an
Spalten zu ermitteln, so erhalte ich eine falsche Antwort.
Ich habe schon mehrere Befehle ausprobiert, aber alle
scheiterten bisher.
Hier ein Beispiel:
Ich habe ein Tabllenblatt mit 25 Spalten. Dann füge ich
8 weitere Spalten per Makro hinzu. Wenn ich dann wieder 8 Spalten
manuell entferne, erhalte ich als Antwort nicht 25, sondern
33. Wenn ich zweimal 8 Spalten hinzufüge und wieder manuell entferne,
erhalte ich 41 anstelle von 25.
Folgenden Befehl habe ich ausprobiert:
ActiveSheet.UsedRange.Columns.Count
und auch der Code unten hat nicht funktioniert
Dim wert As String
Dim neue_Spalten_Zahl As Integer
wert = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Address
neue_Spalten_Zahl = Range(wert).Column -1
Ich denke, das Problem ist, dass Excel die Werte
nicht updated, wenn ich die Tabelle verändere. Ich
weiss aber nicht, wie ich ein Update von z.B. UsedRange
erzwingen kann.
Ich hoffe, ihr könnt mir weiterhelfen.
Grüße,
Thorsten