Das Archiv des Excel-Forums

Werte fortschreiben

Bild

Betrifft: Werte fortschreiben
von: Sonja

Geschrieben am: 25.09.2003 13:50:21

Hallo Excel-Fans

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
Bild


Betrifft: AW: Werte fortschreiben
von: Hajo_Zi
Geschrieben am: 25.09.2003 14:37:01

Hajo Sonja

Bedenke aber das nur 256 Spalten eingefügt werden können. Den Fehler habe ih nicht abgefangen.

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(0, 0) = "A1" Then
If Range("B65536").End(xlUp).Row = 30 Then
Columns("B:B").Insert Shift:=xlToRight
Range("B65536").End(xlUp).Offset(1 + ([b1] = "")) = Target
Else
Range("B65536").End(xlUp).Offset(1 + ([b1] = "")) = Target
End If
End If
End Sub




Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.


http://home.media-n.de/ziplies/



Bild


Betrifft: Danke mit Text
von: Sonja
Geschrieben am: 25.09.2003 17:24:31

Hallo Hajo

Das hilft mir sehr viel weiter und klappt wunderbar
Die 256 Zeilen reichen für fast 5 Jahre ( reicht völlig, wer weiß was bis dahin ist )
Vielen Dank noch mal und einen schönen Tag wünscht

Sonja


Bild


Betrifft: Danke für Rückmeldung oT
von: Hajo_Zi
Geschrieben am: 25.09.2003 17:44:16




 Bild