Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
452to456
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einfügen in Spalte unter letztem Datensatz

Einfügen in Spalte unter letztem Datensatz
12.07.2004 10: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
Anzeige
AW: Einfügen in Spalte unter letztem Datensatz
12.07.2004 10: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 13: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
Anzeige
AW: Einfügen in Spalte unter letztem Datensatz
12.07.2004 14:25:59
Harald
Sorry,
mein Denkfehler. Dies hier sollte es tun.
[B:B].SpecialCells(xlBlanks).Cells(1).Select
Gruß
Harald
Danke!!! -o.T.-
Philipp
...

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige