Private Sub Worksheet_Change
13.03.2006 16:03:45
Frank
Ich habe folgende Code getestet und stelle fest das beim drucken der Enter Taste das Program richtig funktionniert aber nicht wenn ich in eine andere Zelle clicke ? Wie kan es auch funktionieren wenn ich nicht die Entet Taste drucke ? Hat jemand eine Idee ?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wb1 As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet
Dim i
Set wb1 = Workbooks("Code_Anne_Intrastat.xls")
''Namen aller geöffneten Mappen feststellen
Set ws1 = wb1.Worksheets("Sheet1")
Set ws2 = wb1.Worksheets("Sheet2")
If Target.Column = 3 Then
For i = 1 To 800
If ActiveCell.Value = ws2.Cells(i, 5) Then
ActiveCell.Value = ws2.Cells(i, 6)
Exit For
End If
Next
Else
End If
End Sub
Danke für Eure hilfe
Gruß
Frank
Anzeige