Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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.
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige