Prozeduren bei Eingabe auslösen
01.06.2006 21:34:49
Rolf
Unter https://www.herber.de/bbs/user/34094.xls sollte eine Datei stehen, die unter dem Tabellenblatt 1 den folgenden Code stehen hat:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Bereich As Range
Set Bereich = Intersect(Range("Eingabe"), Target)
If Bereich Is Nothing Then Exit Sub
For n = 1 To Bereich.Rows.Count
Bereich(n).Offset(0, 1) = Bereich(n)
Next
End Sub
Damit wird in den Zellen B2 bis B12 derjenige Eintrag abgebildet, den ich in der benachbarten Zelle der Spalte A eingebe.
Das klappt aber nur, wenn ich die Werte direkt in die Spalte A eingebe, aber nicht, wenn ich z.B. in A2 einen Wert eingebe und durch "Unten ausfüllen" in die Spalten A3 bis... übertrage.
Wie schaffe ich es, dass auch dann die Werte in die Spalte B übertragen werden? (Wobei ich diesen Eintrag in die Spalte B nur als Beispiel nehme - eigentlich will ich bei neuen Einträgen zeilenspezifisch Prozeduren ablaufen lassen)
Danke für die Hilfe.
Rolf