Suchfunktion per Makro... für Sepp

Forumthread: Suchfunktion per Makro... für Sepp
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Suchfunktion per Makro... für Sepp

08.05.2004 02:25:31

RonaldoHH

Hallo Sepp,
Du hattest mir mit meiner Suchfunktion geholfen. Sag mal, was muss verändern, wenn z.B. unter die erste 100 ein bestimmter Text stehen soll und keine 1 und 2 und 3 etc ?
Gruss
Ronaldo

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suchfunktion per Makro... für Sepp

08.05.2004 02:31:15

Josef
AW: Suchfunktion per Makro... für Sepp

08.05.2004 02:53:44

RonaldoHH

AW: Suchfunktion per Makro... für Sepp

08.05.2004 02:31:15

Josef

Hallo Ronaldo!
Vielleicht so.

Sub suchen()
Dim C As Range
Dim sMark As String
Dim sFirst As String
Dim intC As Integer
intC = 1
sMark = "DeinText"
Set C = Columns("c:c").Find(What:="100", after:=[C65536], _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If Not C Is Nothing Then
sFirst = C.Address
C.Offset(1, 0) = sMark & intC 'oder ohne "& intC"
intC = intC + 1
Do
Set C = Columns("c:c").FindNext(after:=C)
If C.Address = sFirst Then Exit Sub
If Not C Is Nothing Then
C.Offset(1, 0) = sMark & intC 'oder ohne "& intC"
intC = intC + 1
End If
Loop
End If
End Sub
Gruß Sepp

AW: Suchfunktion per Makro... für Sepp

08.05.2004 02:53:44

RonaldoHH

Hi Sepp !
Danke für Deine Hilfe ! Werde ich gleich ausprobieren !!
Schöne Grüße
Ronaldo

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!