D.h. er erkennt automatisch dass wenn 5 Spalten 0 kommen er weitersuchen muss und erst aufhoert wenn mehr als 5 Nullen kommen.
Vielen Dank im Vorraus, damit waere mir echt enorm geholfen.
BarbaraM
Tabelle3 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Um die letzte Spalte in Excel auszuwählen, die nicht 0 ist, kannst Du den folgenden VBA-Code verwenden. Dieser Code durchläuft die 2. Zeile von rechts nach links und findet den letzten Wert, der ungleich null ist.
Öffne Excel und drücke ALT + F11
, um den VBA-Editor zu öffnen.
Klicke auf Einfügen
und wähle Modul
, um ein neues Modul zu erstellen.
Füge den folgenden Code in das Modul ein:
Sub letzteOhneNull()
Dim intCol As Integer
For intCol = 256 To 1 Step -1
If Cells(2, intCol) <> 0 Then Exit For
Next
MsgBox "Die letzte Spalte mit einem Wert ungleich null ist: " & intCol
End Sub
Schließe den VBA-Editor und kehre zu Excel zurück.
Drücke ALT + F8
, wähle letzteOhneNull
und klicke auf Ausführen
.
Jetzt wird Dir eine MessageBox angezeigt, die die Indexnummer der letzten Spalte enthält, die nicht 0 ist.
Fehler: "Laufzeitfehler 1004: Anwendung oder Objektdefiniert Fehler."
Fehler: Die letzte Zahl wird zu 0 angezeigt.
Cells(2, intCol)
zu Cells(Zeilennummer, intCol)
, falls Du eine andere Zeile analysieren möchtest.Wenn Du keine Makros verwenden möchtest, kannst Du auch eine Formel benutzen. Die folgende Matrixformel findet den letzten Wert in der 2. Zeile, der ungleich null ist:
Wähle eine Zelle aus, in der das Ergebnis angezeigt werden soll.
Gib die folgende Formel ein:
=INDEX(2:2, MAX((2:2<>0)*SPALTE(2:2)))
Drücke STRG + SHIFT + ENTER
, um die Formel als Matrixformel zu aktivieren.
Diese Methode ist besonders nützlich, wenn Du keine VBA-Kenntnisse hast und trotzdem den letzten Wert einer Zeile ungleich null finden möchtest.
Angenommen, Du hast die folgenden Werte in Zeile 2:
A | B | C | D | E | F |
---|---|---|---|---|---|
3 | 2 | 0 | 0 | 1 | 0 |
Wenn Du den VBA-Code ausführst oder die Matrixformel verwendest, erhältst Du 5
, da die letzte Spalte mit einem Wert ungleich null die Spalte E ist.
1. Wie kann ich die letzte Spalte in einer anderen Zeile finden?
Ändere einfach die Zeilennummer im Code von Cells(2, intCol)
zu Cells(Zeilennummer, intCol)
.
2. Funktioniert das auch in älteren Excel-Versionen?
Ja, der VBA-Code und die Matrixformel funktionieren in den meisten Versionen von Excel, die VBA und Array-Formeln unterstützen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen