|
hey danke für die rache antwort!!
ich habe das ganze so umgeschrieben... das makro läuft durch aber liefert leider noch kein ergebnis (..) aber das bekomme ich hoffentlich noch hin.
'Find matches
Sub Find_matches()
With wksCOFOG2013_2014
Dim anfang As Integer
anfang = 1 ' Merker der Startzeile, ist 1
Dim suchspalte As Integer
suchspalte = 1 ' Suchspalte ist "A", d.h. Start bei "A1"
Dim zeile As Integer
zeile = anfang
For zeile = Start To ENDE
i = 1
If Cells(i, 6) = Cells(i, 8) Then
Cells(i, 7) = Cells(i, 9)
End If
Next zeile
End With
End Sub
Das mit der schleife war so gemeint: manchmal kommt in den spalten F und H ein betrag 2 mal vor (gleich 2 mal nach einander), wobei dann aber in der Zeile nebendran (spalte I) jeweils nur einmal ein wert ist. die schleife dachte ich deshalb, damit er, falls in I kein wert ist, weitersucht bis er dort einen wert findet.
kling etwas kompliziert ist es aber eigetlich nicht.. konkret sollte, nach ausführung des makros, in den zellen folgender wert sein:
G7 D11
G8 D121
...
G15 D11
usw
|