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

Position finden

Position finden
12.01.2006 14:54:49
Andi
Problem:
1. Ich brauche ein Progrämmchen, welches mir in einer bestimmten Spalte B eine Zeile ausfindig macht,in der Das Wort "Sprachkanal" steht.
2.Von dort aus, soll es eine Funktion ausführen, bis die letzte Zeile in dieser Spalte gefunden ist, die einen Eintrag hat. Die Funktion soll immer mit dem aktuellen Zellenwert arbeiten können.
Ich würde es gern selber machen ich kenne michnur nett mit der VB aus!
gruß

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Position finden
12.01.2006 18:31:12
Beni
Hallo Andi,
Gruss Beni

Sub Position_finden()
Dim a, i, lz As Long
Set c = Columns(2).Find(What:="Sprachkanal", LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then a = c.Row 'gefundene Zeile
lz = Cells(Rows.Count, 2).End(xlUp).Row ' letzte Zeile
For i = a To lz
Cells(i, 3) = "Deine Funktion" 'Spalte 3
Next i
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige