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

Suchfunktion per Makro

Suchfunktion per Makro
07.05.2004 23:56:50
RonaldoHH
Hallo,
ich hatte ja vorhin schon einmal geschrieben und hatte gleich eine Antwort erhalten. Jetzt habe ich ein weiteres Problem. In meiner Excel-Tabelle habe ich in der Zelle C1,C10,C100 und C110 die Zahl 100 stehen. Es kann auch mal sein, dass die Zahl 100 häufiger oder auch seltener vorkommt. Ich möchte jetzt per Suchfunktion, dass die erste Zahl 100 gefunden wird und eine Zelle darunter die Zahl 1 geschrieben wird. Bei der zweiten Zahl 100 soll eine Zelle darunter die Zahl 2 stehen etc. Kann mir evtl. jemand sagen, wie ich das lösen kann ?
Zur Zeit habe ich folgende Anweisung:
Dim C As Range
Columns("c:c").Select
Set C = Selection.Find(What:="100", After:=ActiveCell, LookIn:xlFormulas, Look At:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not C Is Nothing Then
C.Activate
Else
Exit Sub
End If
ActiveCell.Offset(1,0).Select
ActiveCell.FormulaR1C1 = "1"
Vielen Dank für Eure Hilfe !

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchfunktion per Makro
08.05.2004 00:08:52
Josef
Hallo Ronaldo!
Probier mal.
Option Explicit

Sub suchen()
Dim C As Range
Dim sFirst As String
Dim intC As Integer
intC = 1
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) = 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) = intC
intC = intC + 1
End If
Loop
End If
End Sub

Gruß Sepp
Anzeige
AW: Suchfunktion per Makro
08.05.2004 00:21:04
RonaldoHH
Hallo Sepp,
vielen Dank für Deine Hilfe. Es klappt sehr gut ! ! !
Machs gut !
Ronaldo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige