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

nach letzter Zeile einfügen

Forumthread: nach letzter Zeile einfügen

nach letzter Zeile einfügen
14.07.2005 09:17:40
Christoph
Hallo Leute,
ich habe ein Problem und zwar möchte ich aus der Tabelle2 den Bereich A4:H100 kopieren und in der Tabelle Ausfälle ab der letzten Zeile einfügen.
Wenn also in Tabelle Ausfälle die letzte Zeile die 140 ist, sollen die Sachen ab 141 eingefügt werden.
Habt ihr eine Idee, wie ich sowas machen kann.
Gruß
Christoph
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: nach letzter Zeile einfügen
14.07.2005 09:21:07
Dr.
Hi, ungetestet:

Sub test()
letztezeile = sheets(2).cells(65536,1).end(xlup).row
sheets(1).range("a4:a100").copy destination:= sheets(2).Cells(letztezeile+1,1)
End Sub

AW: nach letzter Zeile einfügen
14.07.2005 09:27:32
Christoph
Haut leider net hin, er gibt mir in den Zellen immer nur eine 0 aus
AW: nach letzter Zeile einfügen
14.07.2005 09:38:59
Dr.
Der Code funzt einwandfrei, habs grad getestet.
Du musst die Tabellenbezeichnungen natürlich entsprechend anpassen. Momentan wird von Tabelle 1 (A4:A100) in Tabelle 2, Spalte 1 kopiert.
Anzeige
;

Forumthreads zu verwandten Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
letzte Zelle mit eintrag
Jens

Hallo,
ich habe ein problem....
in einer tabelle (spalte) werden immer mehr werte eingetragen.... von A16 bis A....
in zelle A7 soll nun automatisch der letzte, also unterste wert der in der entspr. spalte eingetragen ist übernommen werden....
mfg
Jens
24.10.2008 12:17:00
Thread-ID: 1018957
4 Beiträge
Letzte Zelle & Mittelwert
Frank

Hallo,
ich möchte den Mittelwert von z.B. A2 bis A(XYZ) ermitteln.
Die Letzte Zelle kann ich aus der Variable Letzte_Vlinie auslesen.
Wie muß die Befehlszeile in einem Makro aussehen damit xyz durch den Inhalt der Variable ersetzt wird.
Gruß und danke
Frank
05.11.2008 09:22:11
Thread-ID: 1021766
5 Beiträge
Anzeige
VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Jede Zahlenwertänderung mit Blinken der Zelle
Steffi

anzeigen.
Ist sowas möglich? HAt jemand eine Idee?
Soll nur einmal blinken, also kein Dauerblinken.
LG
Steffi
07.11.2008 19:28:58
Thread-ID: 1022795
5 Beiträge
Anzeige
Zellen mit bestimmtem Wert leeren
P.Mackes

ich möchte innerhalb einer gewählten range alle Zellen, die einen bestimmten Wert enthalten einfach leeren, also nicht löschen, sondern quasi den effekt, wenn man in die zelle geht und entfernen drückt
hat da jemand ein handliches makro parat?
mfg, Peter
03.12.2008 08:52:34
Thread-ID: 1029679
8 Beiträge
Anzeige
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
Wert mit VBA suchen und Zelle aktivieren
Nico

Moin
Ich habe eine Abrechnungsdatei und folgendes Problem
In einem Tabellenblatt werden Informationen wie Firmenname und Co. eingetragen.
In der letzten Spalte dieses Blatte möchte ich gerne das Datum per VBA eintragen lassen, an dem ich die Rechnungsnummer über mein Abrechnungstabe...
16.02.2009 16:07:00
Thread-ID: 1051203
2 Beiträge
Letzte Zelle mit konstantem Wert in Excel
Daniel

Hallo zusammen,
mit welchem VBA-Befehl komme ich an die letzte Zeile mit einem konstantem Wert (KEINE Formel!!) in einem Excel-Blatt? (Mit Cells(Rows.Count,1).End(xlUp).Row bekomme ich ja die letzte Zeile mit einer Formel zurückgeliefert)
Vielen Dank für eine Antwort!
04.05.2009 14:37:38
Thread-ID: 1072763
18 Beiträge
Letzte Zelle mit IST-Kosten-Eintrag finden
Bernd

Hallo Freaks,
ich habe eine Tabelle mit Budget- und IST-Kosten-Spalten für das Geschäftsjahr. Ich suche eine Formel/VBA-Code, der mir die Monatsziffer ( 1 - 12 ) ausgibt, in der der letzte IST-Wert steht (Im Bsp. die 7).

Und hier die Bsp.Datei dazu:
https://www.herber.de/bbs/us...
06.05.2009 11:31:03
Thread-ID: 1073295
7 Beiträge
Letzte Zelle mit IST-Kosten-Eintrag finden
Bernd

Hallo Freaks,
ich habe eine Tabelle mit Budget- und IST-Kosten-Spalten für das Geschäftsjahr. Ich suche eine Formel/VBA-Code, der mir die Monatsziffer ( 1 - 12 ) ausgibt, in der der letzte IST-Wert steht (Im Bsp. die 7).

Und hier die Bsp.Datei dazu:
https://www.herber.de/bbs/us...
06.05.2009 12:06:44
Thread-ID: 1073310
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Nach der letzten Zeile in Excel einfügen

Schritt-für-Schritt-Anleitung

Um in Excel die letzte Zeile mit Wert zu ermitteln und darunter Daten einzufügen, kannst du VBA verwenden. Folge dieser Anleitung:

  1. Öffne das Excel-Dokument, in dem du arbeiten möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  4. Kopiere den folgenden Code in das Modul:

    Sub nachLetzterZeileEinfuegen()
   Dim letztezeile As Long
   letztezeile = Sheets("Ausfälle").Cells(Rows.Count, 1).End(xlUp).Row
   Sheets("Tabelle2").Range("A4:H100").Copy Destination:=Sheets("Ausfälle").Cells(letztezeile + 1, 1)
End Sub

  5. Stelle sicher, dass du die Tabellennamen (Tabelle2 und Ausfälle) entsprechend deiner Excel-Datei anpasst.

  6. Schließe den VBA-Editor und führe das Makro aus, indem du ALT + F8 drückst und das Makro auswählst.

Mit diesem Code wird der Bereich von A4:H100 in der Tabelle Tabelle2 kopiert und unter der letzten Zeile in der Tabelle Ausfälle eingefügt.

Häufige Fehler und Lösungen

  • Problem: Der Code gibt in den Zellen nur eine 0 aus.

    • Lösung: Überprüfe, ob die Tabellennamen korrekt sind und dass die Daten in Tabelle2 tatsächlich vorhanden sind.

  • Problem: Der Bereich wird nicht korrekt kopiert.

    • Lösung: Stelle sicher, dass die Range-Angaben mit den tatsächlichen Daten übereinstimmen.

Alternative Methoden

Wenn du keine VBA-Lösung nutzen möchtest, kannst du auch manuell die letzte Zeile in Excel ermitteln und die Daten kopieren:

  1. Gehe zur Tabelle Ausfälle.
  2. Scrolle nach unten, um die letzte Zeile mit einem Wert zu finden.
  3. Notiere die Zeilennummer und füge die Daten aus Tabelle2 manuell unterhalb ein.

Diese Methode ist jedoch weniger effizient, besonders bei großen Datenmengen.

Praktische Beispiele

Angenommen, du hast in Tabelle2 die folgenden Daten:

A B C
1 2 3
4 5 6

Wenn die letzte Zeile in Ausfälle Zeile 140 ist, wird der Code die Daten ab Zeile 141 einfügen, sodass deine Tabelle wie folgt aussieht:

A B C
... ... ...
1 2 3
4 5 6

Tipps für Profis

  • Nutze die Funktion xlUp, um die letzte Zeile mit Wert in einer beliebigen Spalte zu ermitteln, z.B. in Spalte B:

    letztezeile = Sheets("Ausfälle").Cells(Rows.Count, 2).End(xlUp).Row

  • Experimentiere mit Schleifen, um mehrere Bereiche in einer einzigen Ausführung zu kopieren.

  • Dokumentiere deine Makros gut, damit du sie später leichter wiederverwenden kannst.

FAQ: Häufige Fragen

1. Wie finde ich die letzte Zeile in einer anderen Spalte? Du kannst die Cells-Methode anpassen, um die letzte Zeile in der gewünschten Spalte zu ermitteln, z.B. Cells(Rows.Count, 2).End(xlUp).Row für Spalte B.

2. Kann ich den Code für andere Bereiche anpassen? Ja, passe einfach die Range-Angaben im Code an, um andere Bereiche zu kopieren und einzufügen.

Beliebteste Forumthreads (12 Monate)

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