Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
440to444
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
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Waehlen der letzten Spalte eines Sheets

Waehlen der letzten Spalte eines Sheets
20.06.2004 07:16:59
Zamira
Hallo,
ich möchte die letzte Spalte eines sheets bestimmen.
Die erst Zeile ist hierfuer nicht zu gebrauchen, da da auch Namen fuer leere Spalten angegeben sind.
Bis jetzt benutzte ich folgenden Code
Dim last_colum_in_output As Integer
For last_colum_in_output = 256 To 1 Step -1
If Cells(2, last_colum_in_output) 0 Then Exit For
Next
Das Problem ist das manchmal die 2. Zeile/ letzte Spalte leer ist und das Macro eine Spalte weitergeht.
Gibt es eine elegentere Methode als einfach dies mit mehreren Zeilen zu machen und dann das Maximum zu waehlen.
Zamira
Userbild

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Waehlen der letzten Spalte eines Sheets
20.06.2004 07:40:09
Matthias
Hallo Zamira,
versuch' mal das:
Sub LetzteSpalte() Dim z As Range Dim i As Long Set z = ActiveSheet.UsedRange i = z.Count MsgBox "Letzte Spalte: " & z(i).Column End Sub
Ermittelt den "UsedRange" (rechteckiger Bereich) und aus diesem die letzte Zelle. Von dieser die Spalte ist die, die Du sichst.
Grüße Matthias
AW: Waehlen der letzten Spalte eines Sheets
20.06.2004 09:12:48
Zamira
Danke Matthias,
das Problem ist jedoch dass ich nicht die letzte Spalte mit Werten im Sheet brauche sondern die letzte Spalte in der nich nur Nullen sind( also 29 und nicht 30 im screenshot).
AW: Waehlen der letzten Spalte eines Sheets
20.06.2004 09:17:24
Matthias
Hallo Zamira,
dann weiß ich auch nichts anderes als deine Lösung,
dies mit mehreren Zeilen zu machen und dann das Maximum zu waehlen.
Gruß Matthias
Anzeige
AW: Waehlen der letzten Spalte eines Sheets
20.06.2004 09:27:35
Matthias
Hallo Zamira,
mir ist noch was eingefallen:
Sub ls() Dim s As Integer Dim last_colum_in_output As Integer For last_colum_in_output = 256 To 1 Step -1 If WorksheetFunction.Max(Columns(last_colum_in_output)) <> 0 Then Exit For Next MsgBox last_colum_in_output End Sub
Gruß Matthias
AW: Waehlen der letzten... Danke!
20.06.2004 14:00:08
Zamira
Vielen vielen Dank Matthias, wirklich genial! funktioniert perfekt.
AW: {=MAX((A1:Z1000>0)*SPALTE(A:Z))}
FP
Hallo Zamira,
liefert Dir die letzte Spalte im Bereich A1:Z1000 die Zahlen größer 0 enthält:
hier ein Beispiel für A1:F1000 - Ergebnis 4 = Spalte D:
Tabelle1
 ABCDEFG
1122100 4
2133000  
3144000  
4       
5   3   
Formeln der Tabelle
G1 : {=MAX((A1:F1000>0)*SPALTE(A:F))}
Enthält Matrixformel:
Umrandende
{ } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Servus aus dem Salzkammergut
Franz
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige