Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle ans Ende kopieren

Forumthread: Zelle ans Ende kopieren

Zelle ans Ende kopieren
Mike
hi leute... gibt es einen befehl in vba, der mir eine zelle (eingabewert) ans ende einer bereits bestehenden liste verschiebt?
hier ein kleines beispiel:
https://www.herber.de/bbs/user/5474.xls
Vielen dank schon mal.
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zelle ans Ende kopieren
21.04.2004 08:30:26
Matthias
Hallo Mike,
Rechsklick auf den Tabellenreiter, "Code anzeigen", folgenden Code reinkopieren:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4" Then 'C4 = Eingabefeld
Cells(Range("A65536").End(xlUp).Row + 1, 1) = Target
Target.Select 'kann man auch weglassen, setzt den Cursor wieder auf C4
End If
End Sub

Gruß Matthias
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige