Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
284to288
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
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Loop in makro

Loop in makro
24.07.2003 16:45:46
Patric
Hi leute
Ich möchte in einem Makro ein Loop einbringen,
so dass wenn der zellinhalt mit "x=InputBox" übereinstimmt anhaltet und wenn er alle 65536 zeilen überprüft hat, dass er aufhört und eine "MsgBox" bringt.
Thx

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Loop in makro
24.07.2003 16:51:13
Andreas Walter
Meinst Du so ungefähr

Sub Makro1()
' Makro1 Makro
a = InputBox("Was soll ich suchen")
For i = 1 To 65536
If Cells(i, 1).Value = a Then
MsgBox "gefunden in Zeile " & i
Exit Sub
End If
Next i
MsgBox "nicht gefunden"
End Sub


AW: Loop in makro
24.07.2003 21:27:45
Hajo_Zi
Hallo Patric
ist da find nicht angebracht??
Mal als Ansatz

Sub Test322()
'   erstellt von Hajo.Ziplies@web.de 02.06.03
Dim Found As Range
Dim LoLetzte As Long
Dim sSearch As String
sSearch = Worksheets("Tabelle2").Range("A1")
With Worksheets("Tabelle1")
LoLetzte = 65536
If .Range("A65536") = "" Then LoLetzte = .Range("A65536").End(xlUp).Row
Set Found = .Range("A1:A" & LoLetzte).Find(sSearch, .Range("A" & LoLetzte), , xlPart, , xlNext)
If Found Is Nothing Then Exit 

Sub  'falls nicht gefunden wird 

Sub verlassen
MsgBox Found.Address
End With
End Sub

Gruß Hajo
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige