Zellenvergleich mit Left Funktion

[sAkuL1703]

Hallo Leute,

ich habe mal wieder ein Problem und komme einfach nicht weiter.
Ich möchte einen Vergleich von 2 Zellen machen. Also ich habe ein Tabellenblatt 1 und ein Tabellenblatt 4. Wenn im Tabellenblatt 1 Splate A die ersten Zeichen die gleichen sind wie im Tabellenblatt 4 Spalte A soll aus Tabellenblatt 1 die dazugehörige Zelle kopiert und in eine "fremde" Arbeitsmappe kopiert werden.

Im If Befehl gibt er mir die Meldung Typen unverträglich. Ich weiß auch was das bedeutet habe aber absolut keine Idee wie ich den Code so verändern könnte das es funktioniert.

Hier ist mein Code:

Code:

Dim Quelle As Worksheet
Dim Quelle_1 As Worksheet
Dim Ziel As Worksheet
Dim Datei As String

Datei = Application.GetOpenFilename

Workbooks.Open Filename:=Datei

Set Quelle = ActiveWorkbook.Worksheets(4)
Set Quelle_1 = ActiveWorkbook.Worksheets(1)
Set Ziel = ThisWorkbook.Worksheets(1)

Dim m As Variant
Dim n As Variant

n = 7

For m = 1 To Cells(Rows.Count, 1).End(xlDown).Row

If Quelle.Left(Cells(m + 7, 1).Value, 1) = Quelle_1.Left(Cells(m, 1).Value, 1) Then
Quelle_1.Activate
Quelle_1.Cells(m, 4).Copy
Ziel.Activate
Ziel.Cells(n, 8).PasteSpecial
n = n + 1
End If
Next m

Schonmal im voraus Vielen Dank.

Gruß

Lukas

[Kuwer]

Hallo Lukas,

  If Left(Quelle.Cells(m + 7, 1).Value, 1) = Left(Quelle_1.Cells(m, 1).Value, 1) Then

   Quelle_1.Cells(m, 4).Copy Ziel.Cells(n, 8)

   n = n + 1

 End If

Gruß Uwe

[sAkuL1703]

Hallo Uwe,

darauf hätte ich auch selbst kommen können.... danke dir!!

Gruß 

Lukas