Einfügen in Spalte unter letztem Datensatz

Forumthread: Einfügen in Spalte unter letztem Datensatz
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Einfügen in Spalte unter letztem Datensatz

12.07.2004 12:32:40

Philipp

Hallo Excel-Cracks!
Habe das Problem, daß ich Daten aus mehreren Blättern in einem
Blatt zusammenfassen will. Da die Anzahl der zu kopierenden Spalten
variabel ist, kann ich die Spalte, in die eingefügt werden soll,
nicht klar definieren.
Michael war schon so nett, mir mit der Formel xlDown ein bißchen
auf die Sprünge zu helfen. Ich muß jetzt nur noch wissen, wie ich
in VBA eingeben kann, daß einen unter der letzten gefüllten Spalte
eingefügt werden soll.
Welchen Befehl muß ich eingeben, damit er automatisch eine Zelle
tiefer "wandert" und ich dort eine Eingabe machen kann?
Wäre toll, wenn hier jemand eine Idee für mich hat!
Vielen Dank und Gruß aus Düsseldorf!
Philipp

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Einfügen in Spalte unter letztem Datensatz

12.07.2004 12:56:26

Harald
AW: Einfügen in Spalte unter letztem Datensatz

12.07.2004 15:10:52

Philipp
AW: Einfügen in Spalte unter letztem Datensatz

12.07.2004 16:25:59

Harald
Danke!!! -o.T.-

Philipp

AW: Einfügen in Spalte unter letztem Datensatz

12.07.2004 12:56:26

Harald

Hallo Philipp


Sub FeldunterletztemEintrag()
Range("B:B").SpecialCells(xlCellTypeLastCell).Offset(1, 0).Select
End Sub

Gruß
Harry

AW: Einfügen in Spalte unter letztem Datensatz

12.07.2004 15:10:52

Philipp

Hi Harry!
Vielen Dank schon mal für die Antwort - klappt auch super mit der entsprechenden Zeile - nur die Spalte ist nicht die gewünschte.
Bei dem Code:


Sub FeldunterletztemEintrag()
'Kopiert Daten aus Tabelle 2 und fügt sie am Ende von Tabelle 1 ein
Sheets("Tabelle2").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Tabelle1").Select
Range("B:B").SpecialCells(xlCellTypeLastCell).Offset(1, 0).Select
ActiveSheet.Paste
End Sub

wirft er die Daten zwar wunderbar in der Folgezeile aus, allerdings von den Spalten her nicht in Spalte "A", sondern irgendwo ganz hinten; je nach Anzahl der Ausführungen (auch nach Löschen des Textes) ein Stück weiter nach rechts.
Hast Du hier noch einen Tipp bitte?!
Vielen Dank!
Gruß
Philipp

AW: Einfügen in Spalte unter letztem Datensatz

12.07.2004 16:25:59

Harald

Sorry,
mein Denkfehler. Dies hier sollte es tun.
[B:B].SpecialCells(xlBlanks).Cells(1).Select
Gruß
Harald

Danke!!! -o.T.-

Philipp

...