Hallo zusammen, gibt es eine einfache und elegante Methode, eine Zeile von links nach rechts zu durchsuchen und den ersten gefundenen Wert auszugeben? Vielen Dank im Voraus Matthias
hi, wert = ActiveSheet.Cells(1, Cells(2, Columns.Count).End(xlToLeft).Column).Value
liebe grüße, harry
AW: Zeile durchsuchen und ersten Wert ausgeben
06.08.2004 17:14:18
Matthias
Hallo Harry, vielen Dank für Deine Antwort. Ich habe versucht, Dein Skript als Funktion
Public Funtion ErsteVonLinks(Bereich as Range) ErsteVonLinks=..... End Function
in meine Tabelle einzubauen. Das hat leider bisher nicht geklappt. Wie müsste ich den Code anpassen, um die erste Zahl von links innerhalb des angegebenen Bereichs (der nur über eine Zeile geht) ausgegeben bekommen. Danke schonmal Matthias
AW: Zeile durchsuchen und ersten Wert ausgeben
harry
ist so als ferndiagnose nicht ganz einfach, aber wenn bereich als range definiert ist müsste ErsteVonLinks = bereich.Cells(1, Columns.Count).End(xlToLeft).Value funken.
liebe grüße, harry
Anzeige
AW: Zeile durchsuchen und ersten Wert ausgeben
10.08.2004 16:05:59
Matthias
Hallo Harry, vielen Dank für Deine Mühe, leider gibt mir das System hier eine Fehlermeldung aus. Vielleicht hilft hier eine Schleifenkonstruktion. Wie müsste ich den Code schreiben, wenn er jede einzelene Zelle in der Zeile testen soll? Wenn er einen Wert findet, kann er abbrechen. Ich meine mich da an etwas wie "for each ... in selection" o.ä. erinnern zu können, aber leider ist mein VBA da nicht das beste. Es wäre gut, wenn hier jemand weiterwüsste. Vielen Dank Matthias