Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
444to448
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
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen zählen

Zeilen zählen
29.06.2004 08:29:33
Marc
Hallo,
ich habe folgendes Problem. Ich habe mir in Excel ein Tabellenblatt zur Eingabe von Werten gebastelt. Diese sollen in einem anderen Tabellenblatt in eine Liste eingetragen werden. Da die Liste aber immer länger wird, soll Excel per VBA ans Ende dieser Liste springen und in die nächste freie Zelle gehen, um dort die Werte einzutragen. Bisher habe ich folgenden Code geschrieben:

Sub Uebernehmen()
Sheets("Eingabe").Select
Range("C12").Select
Selection.Copy
Sheets("Liste").Select
Range("A8").Select
Selection.End(xlDown).Select
SendKeys "{Down}"
'ActiveSheet.Paste
End Sub

Solange ich diesen Code ohne die Paste-Anweisung ausführen lasse funtioniert das auch. Nur sobald ich die Paste-Anweisung aktiviere trägt er den kopierten Wert nicht in die leere Zelle ein sondern er überschreibt den untersten Wert aus der Liste. Kann mir da jemand helfen?
Danke schonmal im Voraus!
Gruß,
Marc Richter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen zählen
P@ulchen
Hi Marc,
versuch mal so:


Sub Uebernehmen()
    Dim aRow As Integer
    aRow = Sheets("Liste").Range("A65536").End(xlUp).Row + 1
    Sheets("Liste").Cells(aRow, 1) = Sheets("Eingabe").Range("C12")
End Sub


Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Anzeige
AW: Zeilen zählen
29.06.2004 08:59:36
Jens
Hallo Marc,
versuche es mal wie folgt:
Ersetze die Zeile "Selection.End(xlDown).Select" durch
"Selection.End(xlDown).offset(0,1).Select"
Jetzt sollte es gehen.
Gruß
Jens Huthmann
AW: Zeilen zählen
Marc
Danke, jetzt funktioniert es!
AW: Zeilen zählen
Marc
Danke, jetzt funktioniert es!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige