Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte fortschreiben

Werte fortschreiben
25.09.2003 13:50:21
Sonja
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte fortschreiben
25.09.2003 14:37:01
Hajo_Zi
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/

Anzeige
Danke mit Text
25.09.2003 17:24:31
Sonja
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
Danke für Rückmeldung oT
25.09.2003 17:44:16
Hajo_Zi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige