Wert suchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Katrin;
außerdem gehören Deklarationen (hier Dim und Const) in den meisten PgmSprachen (Ausnahmen sind so organisierte wie J[ava]Script) der Übersicht halber immer an den PgmAnfang (VBA sucht die ohnehin zuerst). Eine Variable für den Suchbegriff (suchBg) wäre auch nicht verkehrt und die Variablen für die beiden Suchmappen/-blätter können entfallen, wenn diese vor dem Suchvorgang aktiviert wdn (könnte sein, dass die Suche sonst nicht klappt → testen, könnte mich irren!).
Außerdem willst du wohl erst in der einen Mappe suchen und nur bei Nichterfolg in der anderen. Dann müsste der Rest wohl so lauten:

If Not C Is Nothing Then
GoTo Weiter
ElseIf Not D Is Nothing Then
Weiter: 'hier folgt die Behandlung der 1.Fundstelle
Else:   'hier folgt, was passieren soll, wenn es keine Fundstelle gibt
End If

Statt C solltest du besser so etwas wie fundSt verwenden! Außerdem ist das nachfolgende Next hier völlig unmotiviert, da es Abschluss/Return-Bedingung einer For-Schleife ist, die gar nicht angelegt wurde. Die Suche wird mit FindNext fortgesetzt. Das muss aber dann auch entsprechend organisiert wdn. Empfehle, das mal in der VBE-Hilfe nachzulesen! Außerdem gibt's genügend Bspp im Forumsarchiv und ist auch auf diversen xlWebSites und im VBA-WikiBook erklärt.
Luc :-?

Also so sieht nun mein Code aus... Mein problem ist jetzt, dass der nicht den gefilterten Wert nimmt, der in dem beispiel in Zeile 39 ist, sondern dass er natürlich jetzt auf die 2. zeile springt. Wie kann ich das vermeiden?

Sub suchenUkopieren()
Dim ältestDat, jüngstDat, ältestDat2, jüngstDat2 As Date
Dim VK As Range
Dim C, D As Range
Set myhauptsheet = Workbooks("XXXX.xlsm").Sheets("yy")
Set mysheet2012 = Workbooks("XXXXX.xlsx").Sheets("zzz")
Set mysheet2011 = Workbooks("XXX").Sheets("iii")
myhauptsheet.Activate
Range("A1").Select
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select 'HIER geht er in Zeile 2
Set C = mysheet2012.Range("A:A").Find(myhauptsheet.Range("A2"), LookIn:=xlValues, lookAt:= _
xlWhole)
Set D = mysheet2011.Range("A:A").Find(myhauptsheet.Range("A2"), LookIn:=xlValues, lookAt:= _
xlWhole)
If Not C Is Nothing Then
GoTo Datumprüfen:
ElseIf Not D Is Nothing Then
GoTo Datumprüfen2:
GoTo Weiter:
End If
Datumprüfen:
sFilter = mysheet2012.Cells(1, 1).Value
mysheet2012.Range("$A$1").AutoFilter Field:=1, Criteria1:=C
ältestDat = Format(WorksheetFunction.Min(Range("g:g")), "dd.mm.yy")
jüngstDat = Format(WorksheetFunction.Max(Range("g:g")), "dd.mm.yy")
mysheet2012.Activate
ältestDat2 = Format(WorksheetFunction.Min(Range("g:g")), "dd.mm.yy")
jüngstDat2 = Format(WorksheetFunction.Max(Range("g:g")), "dd.mm.yy")
If ältestDat > ältestDat2 Or jüngstDat > jüngstDat2 Then
'alle Zeilen kopieren die älter oder jünger sind
Datumprüfen2:
sFilter = mysheet2011.Cells(1, 1).Value
mysheet2012.Range("$A$1").AutoFilter Field:=1, Criteria1:=D
ältestDat = Format(WorksheetFunction.Min(Range("g:g")), "dd.mm.yy")
jüngstDat = Format(WorksheetFunction.Max(Range("g:g")), "dd.mm.yy")
mysheet2012.Activate
ältestDat2 = Format(WorksheetFunction.Min(Range("g:g")), "dd.mm.yy")
jüngstDat2 = Format(WorksheetFunction.Max(Range("g:g")), "dd.mm.yy")
If ältestDat > ältestDat2 Or jüngstDat > jüngstDat2 Then
'alle Zeilen markieren kopieren die älter oder jünger sind
End If
Weiter:
End 

Sub 'Springt wieder zum vorherigen Filter
Könnte man das irgendwie so schreiben:
Range("A1").Select
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread