VBA Lösung bitte gesucht
13.07.2007 12:47:00
Josef
Mit folgendem Code im Worksheet_Chance Ereignis der Tabelle "Kapitel" wird der Wert, der in der Spalte 4 in der nächsten freien Zelle eingetragen wird automatisch im Tabellenblatt "Tabelle1" eingetragen.
Aber nur dann, wenn ich den wert eingebe und bestätgie. Wenn jetzt jedoch im Arbeitsblatt "Kapitel" der Wert über eine Formel eingetragen wird dann erfolgt kein automatischer Eintrag im Tabellenblatt "Tabelle1". Gäbe es hier bitte die Möglichkeit, dass der Wert trotzdem automatisch eingetragen wird?
Dim efz2&, m As Range
If Target.Column = 4 And Target.Row > 1 Then
With Worksheets("tabelle1")
Set m = .Columns(105).Find(Target.Row, LookAt:=xlWhole)
If Not m Is Nothing Then
.Cells(m.Row, 6).Value = Target
Else
efz2 = .Cells(Rows.Count, 6).End(xlUp).Row + 1
.Cells(efz2, 6).Value = Target
.Cells(efz2, 105).Value = Target.Row
End If
End With
End If
Danke
Josef