Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

korrektes Update der Spaltenzahl

Forumthread: korrektes Update der Spaltenzahl

korrektes Update der Spaltenzahl
Thorsten
Hallo zusammen,
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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: korrektes Update der Spaltenzahl
04.05.2004 18:04:59
Georg
Hallo Thorsten
Excel ist in diesem Punkt ein wenig eigen, speichere Ddie Datei. Dann wird die Spaltenanzahl auch korrekt erkannt.
Gruß
AW: korrektes Update der Spaltenzahl
WernerB.
Hallo Thorsten,
wie gefallen Dir diese beiden Befehle?
'Letzte Spalte mit Inhalt:
v1 = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
'Adresse der unteren rechten Ecke des benutzten Bereiches:
v2 = Cells(Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row, _
Cells.Find("*", Range("A1"), xlFormulas, , xlByColumns, xlPrevious).Column).Address
Viel Erfolg wünscht
WernerB.
Anzeige
Geschlossen: AW: korrektes Update der Spaltenzahl
05.05.2004 09:48:02
Thorsten
Hallo zusammen,
danke für euer nützliches feedback.
Habe die Vorschläge aus beiden e-mails
ausprobiert. In meinem Anwendungs-Fall
hat der Vorschlag von Werner ohne Probleme
funktioniert. Der Tipp mit dem Speichern
aus der ersten e-mail klappte bei mir leider
nicht.
Aber egal, wichtig ist, dass mir schlussendlich
geholfen werden konnte. Nochmals vielen Dank
für eure Beiträge.
Grüße,
Thorsten
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige