Find-Befehl
07.03.2018 08:24:29
Axel
Ziel:
Ich möchte Tabelle A und B miteinander vergleichen. Wenn ein "String" in A vorkommt, der auch in B vorkommt, soll eine Zahl aus der Tabelle A ausgelesen werden und in die Tabelle B geschrieben werden.
Wie weit bin ich?
Im Moment versuche ich, mit "Find" zurechtzukommen. Bisher habe ich damit noch nicht gearbeitet. Wenn ihr mir bei meinem "Find"-Problem helft, kriege ich den Rest bestimmt alleine hin. Das habe ich bisher geschrieben:
Sub Vergleich()
Dim MappeV As Workbook
Dim BlattV As Worksheet
Dim MappeJ As Workbook
Dim BlattJ As Worksheet
Dim VormonatWS As String
Dim AktuellWS As String
Dim Zeile As Long
Dim i As Integer
Dim cl As Integer
VormonatWS = Format(DateSerial(Year(Now()), Month(Now()) - 1, 1), "MMMM")
ThisWorkbook.Sheets("Auflistung").Copy After:=ThisWorkbook.Sheets(1) 'kopiert mir ein Worksheet, _
was dann umbenannt wird.
ActiveSheet.Name = Format(Date, "MMMM") & "Vergleich"
AktuellWS = ActiveWorkbook.ActiveSheet.Name
Set MappeV = ThisWorkbook
Set BlattV = MappeV.Worksheets(VormonatWS)
Set MappeJ = ThisWorkbook
Set BlattJ = MappeJ.Worksheets(AktuellWS)
BlattJ.Columns("R:R").Insert Shift:=xlToRight
Range("R2") = "Vormonat"
BlattJ.Activate
i = Cells(Rows.Count, 2).End(xlUp).Row
For cl = 3 To i
Zeile = BlattV.Columns("B:B").Find(What:=BlattJ.Cells(cl, 2), After:=ActiveCell, LookIn: _
=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
MsgBox Zeile
Next cl
End Sub
Hier kommt ein Fehler beim Find-Befehl. Ich bin mir auch echt nicht sicher, ob ich den korrekten Ausdruck verwendet habe.
Weiß jemand, was ich falsch gemacht habe?