Ich habe eine kurze Frage:
Mit folgendem Code will ich auf die ersten 8 Ziffern gehen und diesen Vergleichen, wenn Sie überreinstimmen schreibe ich den Wert den ich zuvor eingelesen habe.
Mein Ansatz lautet folgendermassen:
Sheets("Übersicht").Select
For i = 2 To 65536
Tic_akt = Cells(i, 2).Value
For j = 1 To Anz_data
If Tic_akt = Data(j, 1) Then
Cells(i, 24).Value = Format(Data(j, 2), "000.0")
Cells(i, 25).Value = Format(Data(j, 3), "000.0")
j = Anz_data
Nun vergleicht er. er soll jedoch nur di ersten 8 Zeichen der Spalte vergleichen.
Ich glaube das funktioniert mit "Left" , schaffe es aber nicht ganz.
Kann mir jemand helfen?
Gruss Alex