Code erweitern Find / FindNext

Sub Eintrag () Dim X As Range Dim I As Integer For I = 2 To 32 Set X = Sheets("Urlaub").Columns(1).Find( _ what:=DateValue(Cells(I, 1).Value), LookIn:=xlFormulas) If X Is Nothing Then ? Exit Sub End If Sheets("Kalender").Cells(I, 2).Value = X.Offset(0, 1).Value Next I End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Volker,
ich hoffe mal das Du dich ein wenig mit VBA auskennst. Mal ein Beispiel für Find und FindNext.


Sub Find_mehrmals()
'   erstellt von Hajo.Ziplies@web.de  14.08.03
Dim Found As Range
Dim FirstAddress As String
Dim Search As String
Dim LoLetzte As Long
Dim LoI As Long
Dim ByMldg As Byte
Search = Worksheets("Tabelle2").Range("A1")
With Worksheets("Tabelle1")
LoLetzte = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row, 65536)
'   von Peter Haserodt
Set Found = .Range("A1:A" & LoLetzte).Find(Search, .Range("A" & LoLetzte), , xlWhole, , xlNext)
If Found Is Nothing Then Exit 

Sub  'falls nicht gefunden wird 

Sub verlassen
If MsgBox("Gefunden in Zelle " & Found.Address(0, 0) & " ist dies richt richtige Zelle !!!" _
, vbYesNo + vbQuestion, "Abfrage") = 6 Then
Exit Sub
Else
FirstAddress = Found.Address
Do
Set Found = .Range("A1:A" & LoLetzte).FindNext(Found)
If Found.Address = FirstAddress Then Exit Sub
If MsgBox("Gefunden in Zelle " & Found.Address(0, 0) & " ist dies richt richtige Zelle !!!" _
, vbYesNo + vbQuestion, "Abfrage") = 6 Then
Exit Sub
End If
If Found.Row = LoLetzte Then Exit Sub
LoI = LoI + 1
Loop While Not Found Is Nothing
End If
End With
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Betriebssystem  Windows 2000 SP4 und Excel Version 2000 SP3.

Sub Find_mehrmals() ' erstellt von Hajo.Ziplies@web.de 14.08.03 Dim Found As Range Dim FirstAddress As String Dim Search As String Dim LoLetzte As Long Dim LoI As Long Dim ByMldg As Byte Search = Worksheets("Tabelle2").Range("A1") With Worksheets("Tabelle1") LoLetzte = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row, 65536) ' von Peter Haserodt Set Found = .Range("A1:A" & LoLetzte).Find(Search, .Range("A" & LoLetzte), , xlWhole, , xlNext) If Found Is Nothing Then Exit Sub 'falls nicht gefunden wird sub verlassen If MsgBox("Gefunden in Zelle " & Found.Address(0, 0) & " ist dies richt richtige Zelle !!!" _ , vbYesNo + vbQuestion, "Abfrage") = 6 Then Exit Sub Else FirstAddress = Found.Address Do Set Found = .Range("A1:A" & LoLetzte).FindNext(Found) If Found.Address = FirstAddress Then Exit Sub If MsgBox("Gefunden in Zelle " & Found.Address(0, 0) & " ist dies richt richtige Zelle !!!" _ , vbYesNo + vbQuestion, "Abfrage") = 6 Then Exit Sub End If If Found.Row = LoLetzte Then Exit Sub LoI = LoI + 1 Loop While Not Found Is Nothing End If End With End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread