Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
464to468
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
464to468
464to468
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeile durchsuchen und ersten Wert ausgeben

Zeile durchsuchen und ersten Wert ausgeben
06.08.2004 11:53:09
Matthias
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile durchsuchen und ersten Wert ausgeben
harry
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

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige