Position finden

Forumthread: Position finden
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Position finden

Position finden

12.01.2006 15: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

AW: Position finden

12.01.2006 19:31:12

Beni

AW: Position finden

12.01.2006 19: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