Clever-Excel-Forum

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

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

Hallo Uwe,

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

Gruß

Lukas

sAkuL1703

Kuwer

sAkuL1703