Erster Wert in Spalte auslesen

Forumthread: Erster Wert in Spalte auslesen

25.06.2004 15:40:54

Chrissi

Hallo zusammen,
ich habe eine kleine Frage - betreffend auslesen von Spalten. Ich habe in Spalte "B1:B200" Werte stehen, sie fangen aber nicht immer bei B1 an sondern variieren, mal bei B12, mal bei B20. Ich wollte den ersten Wert der Spalte rauslesen und den letzten(der auch von der Position variiert. Die Funktion zum auslesen des letzten Wertes der Spalte habe ich schon gefunden :


Function LetzterWert(Bereich As Range) As Variant
Dim Zelle As Object
For Each Zelle In Bereich
If Zelle <> "" Then LetzterWert = Zelle
Next
End Function

Hier trage ich dann in Excel einfach ein : =LetzterWert(B1:B200)
Nun die Frage - WIE MACHE ICH ES AM BESTEN, DASS ICH DEN ERSTEN WERT DER SPALTE AUSGELESEN BEKOMME - ICH DANKE EUCH TAUSEND MAL - CHRISSI..

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Erster Wert in Spalte auslesen

Reinhard
AW: Erster Wert in Spalte auslesen

25.06.2004 16:18:09

Chrissi

AW: Erster Wert in Spalte auslesen

Reinhard

Hi crissi,


Function letzte()
Application.Volatile
letzte = Range("B201").End(xlUp)
End Function


Function erste()
Application.Volatile
If Range("B1") <> "" Then
erste = Range("B1")
Else
erste = Range("B1").End(xlDown)
End If
End Function

Gruß
Reinhard

AW: Erster Wert in Spalte auslesen

25.06.2004 16:18:09

Chrissi

DANKE TAUSEND MAL-REINHARD HAT GEKLAPPT !!!!

Infobox / Tutorial

Ersten Wert in einer Excel-Spalte auslesen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um den ersten Wert in einer Excel-Spalte auszulesen, kannst Du eine benutzerdefinierte Funktion erstellen. Hier ist eine einfache Anleitung:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

Füge folgenden Code in das Modul ein:

Function ersterwert(Bereich As Range) As Variant
   Dim Zelle As Range
   For Each Zelle In Bereich
       If Zelle.Value <> "" Then
           ersterwert = Zelle.Value
           Exit Function
       End If
   Next Zelle
   ersterwert = "Kein Wert gefunden" ' Falls kein Wert vorhanden ist
End Function

Schließe den VBA-Editor und gehe zurück zu Excel.
Du kannst nun die Funktion in einer Zelle verwenden, indem Du folgendes eingibst:
```
=ersterwert(B1:B200)
```

Diese Funktion wird den ersten Wert in der Spalte zurückgeben, egal wo die Liste beginnt.

Häufige Fehler und Lösungen

Fehler: Funktion zeigt "Kein Wert gefunden".
- Lösung: Stelle sicher, dass der angegebene Bereich (z.B. B1:B200) tatsächlich Werte enthält. Überprüfe auch, ob die Werte in der richtigen Form vorliegen (z.B. keine Leerzeichen).
Fehler: Der Wert wird nicht richtig erkannt.
- Lösung: Achte darauf, dass die Zellen im Bereich nicht formatiert sind, um Texte als Zahlen zu interpretieren.

Alternative Methoden

Wenn Du keine VBA-Funktionen verwenden möchtest, kannst Du auch die Formel =INDEX(B1:B200;VERGLEICH(TRUE;B1:B200<>"";0)) verwenden. Diese Formel gibt den ersten Wert in der Spalte zurück, indem sie die Position des ersten nicht-leeren Wertes findet.

Praktische Beispiele

Angenommen, Du hast in B1:B200 folgende Werte:
```
(leere Zellen)
(leere Zellen)
12
15
(leere Zellen)
```
Wenn Du die Funktion =ersterwert(B1:B200) verwendest, erhältst Du das Ergebnis 12.
Mit der Alternative Methode:
```
=INDEX(B1:B200;VERGLEICH(TRUE;B1:B200<>"";0))
```
wird ebenfalls 12 zurückgegeben.

Tipps für Profis

Nutze Application.Volatile in Deinen VBA-Funktionen, wenn Du möchtest, dass die Funktion bei jeder Berechnung neu ausgewertet wird.
Stelle sicher, dass Du Deine VBA-Funktionen gut dokumentierst, um sie später leichter wiederfinden und verstehen zu können.
Wenn Du mit großen Datenmengen arbeitest, achte darauf, dass Deine Methode schnell und effizient bleibt.

FAQ: Häufige Fragen

1. Wie finde ich den ersten Wert in einer Liste, die in einer anderen Spalte steht?
Du kannst die Funktion =ersterwert(A1:A200) verwenden, um den ersten Wert aus der Spalte A auszulesen, während Du in Spalte B arbeitest.

2. Funktioniert das auch in Excel Online?
Leider sind benutzerdefinierte VBA-Funktionen nicht in Excel Online verfügbar. Du müsstest in diesem Fall die Formel-Alternative verwenden.

3. Kann ich diese Methode für mehrere Spalten gleichzeitig nutzen?
Ja, Du kannst die Funktion anpassen oder mehrere Formeln verwenden, um die ersten Werte aus verschiedenen Spalten auszulesen.

Beliebteste Forumthreads (12 Monate)