Option Explicit
Sub Austausch_MAS_Ticketing()
Dim wksQ As Worksheet
Dim rngQMeldungsNr_Spalte As Range
Dim wksZ As Worksheet
Dim rngZMeldungsNr_Spalte As Range
Set wksQ = ActiveWorkbook.ActiveSheet
Set wksZ = Workbooks("Ticketing TMZ").Worksheets("Tickets")
With wksQ
Set rngQMeldungsNr_Spalte = .Range("B2", .Cells(.Rows.Count, "B").End(xlUp))
If rngQMeldungsNr_Spalte.Row < 2 Then
Set rngQMeldungsNr_Spalte = Nothing
End If
End With
With wksZ
Set rngZMeldungsNr_Spalte = .Range("A2", .Cells(.Rows.Count, "A").End(xlUp))
If rngZMeldungsNr_Spalte.Row < 2 Then
Set rngZMeldungsNr_Spalte = Nothing
Else
Set rngZMeldungsNr_Spalte = rngZMeldungsNr_Spalte.Offset(ColumnOffset:=.Columns("V").Column - rngZMeldungsNr_Spalte.Column)
End If
End With
If rngQMeldungsNr_Spalte Is Nothing _
Or rngZMeldungsNr_Spalte Is Nothing _
Then
Call MsgBox("Es wurden keine Daten zum Verarbeiten gefunden.", _
vbExclamation, _
"MAS_Ticketing")
Else
Dim rngQMeldungsNr As Range
Dim rngZFund As Range
For Each rngQMeldungsNr In rngQMeldungsNr_Spalte.Cells
Set rngZFund = rngZMeldungsNr_Spalte.Find( _
What:=rngQMeldungsNr.Value, _
LookAt:=xlWhole, _
LookIn:=xlValues)
If Not rngZFund Is Nothing Then
wksZ.Cells(rngZFund.Row, "AA").Value = wksQ.Cells(rngQMeldungsNr.Row, "N").Value
End If
Next
Call MsgBox("Vorgang abgeschlossen.", _
vbInformation, _
"MAS_Ticketing")
End If
End Sub