Werte fortschreiben
25.09.2003 13:50:21
Sonja
Aus dem Forum habe ich folgende Sache
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(0, 0) <> "A1" Then Exit Sub
Range("B65536").End(xlUp).Offset(1 + ([b1] = "")) = Target
End Sub
Da kann man in A1 Werte eingeben und er schreibt sie ab B1 laufend fort
gefällt mir sehr gut, das hohe C wäre für mich
wenn ich z.b nach 30 Zeilen soll aber flexibel sein "ende" eingeben könnte
und er dann die SpalteB nach Spalte C verschiebt und wieder bei B neu anfängt
danach nach Spalte D verschiebt usw
Ich hoffe ich konnte mich verständlich ausdrücken
Vieleicht hat ja jemand Lust sich des Problems anzunehmen
Dank schon mal im voraus
Gruß
Sonja