VBA Lösung bitte gesucht
12.07.2007 14:19:57
Josef
Mit nachfolgendem Code im Worksheet Change Ereignis im Arbeitsblatt "Ausprägungen" wird der eingetragene Wert in diesem Blatt in der nächsten freien Zelle der Spalte B im Tabellenblatt "Tabelle1" in der nächsten freien Zelle in der Spalte E eingetragen.
Ich möchte jedoch erreichen, dass wenn der Wert eingetragen wird die Werte aus der Spalte B und C (getrennt durch einen Bindesstrich links und rechts mit einem Leerzeichen) im Tabellenblatt "Tabelle1" in der nächsten freien Zelle in der spalte E eingetragen werden.
Wie müßte ich hier bitte den Code verändern, damit es funktioneren würde?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim efz1&, k As Range
If Target.Column = 2 And Target.Row > 1 Then
With Worksheets("tabelle1")
Set k = .Columns(104).Find(Target.Row, LookAt:=xlWhole)
If Not k Is Nothing Then
.Cells(k.Row, 5).Value = Target
Else
efz1 = .Cells(Rows.Count, 5).End(xlUp).Row + 1
.Cells(efz1, 5).Value = Target
.Cells(efz1, 104).Value = Target.Row
End If
End With
End If
End Sub
Danke
Josef