inhalt der Messagebox in die Datei kopieren

Sub Vergleichen()
'Der Code geht davonaus das beide Mappen geöffnet sind
Dim wksA As Worksheet
Dim wksB As Worksheet
Dim lngLetzteZeile As Long
Dim strText As String
Dim lngSpalte As Long
Dim lngZeile As Long
Set wksB = Workbooks("Mitgliederliste.xls").Worksheets("3.03.2010") 'Anpassen!!!!!!!!
Set wksA = Workbooks("Spieler-Liste.xls").Worksheets("Tabelle1") 'Anpassen!!!!!!!!
lngSpalte = 1
lngLetzteZeile = wksA.Cells(wksA.Rows.Count, lngSpalte).End(xlUp).Row
For lngZeile = 1 To lngLetzteZeile
If Application.WorksheetFunction.CountIf(wksB.Columns(lngSpalte), wksA.Cells(lngZeile,  _
lngSpalte))