Liste übertragen....
11.07.2007 23:33:00
Uwe
habe folgenden Code zusammen gebastelt....
Private Sub Worksheet_Activate()
Dim Bereich1x As Range
Dim Bereich2x As Range
Dim l As Long
UserForm3.Show
Set Bereich1x = Worksheets("KSH").Range("E2:E500")
Set Bereich2x = Range("C2:C500")
Bereich2x.Value = Bereich1x.Value
For l = Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1
If WorksheetFunction.Match(Cells(l, 3), [c:c], 0)
..... funktioniert so auch ohne Probleme.
Jetzt würde ich gerne das es nach Spalte P übertragen wird!!
Was ich bis jetzt geändert hatte gab immer ein großes durcheinander.
Wer kann mir da mal bei der Anpassung helfen?
Vorab schon mal Dank!
Gruß Uwe