Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1416to1420
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
1416to1420
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich nach der letzten Zeile einfügen mit button

Bereich nach der letzten Zeile einfügen mit button
24.03.2015 18:39:07
Mr.Pink
Hallo zusammen,
ich sitze vor folgendem Problem:
Ich habe einen Bereich an Daten, Zeile 12 bis 27. Diese Daten sollen per Button genau unterhalb des ersten Bereichs eingefügt werden. Also genau nach der letzten Zeile die mit Daten gefüllt ist.
Kann mir jemand einen Tipp geben wie ich auf eine Lösung kommen kann? Geht das ohne VBA?
Gruß
Fabi

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich nach der letzten Zeile einfügen mit button
24.03.2015 18:49:52
Matthias
Hallo
Weiß nicht ab ich Dich richtig verstanden habe.
Tabelle1

 ABCD
1DatenDatenDatenDaten
2DatenDatenDatenDaten
3DatenDatenDatenDaten
4DatenDatenDatenDaten
5DatenDatenDatenDaten
6DatenDatenDatenDaten
7DatenDatenDatenDaten
8DatenDatenDatenDaten
9DatenDatenDatenDaten
10DatenDatenDatenDaten
11DatenDatenDatenDaten
12DatenDatenDatenDaten
13DatenDatenDatenDaten
14DatenDatenDatenDaten
15DatenDatenDatenDaten
16DatenDatenDatenDaten
17DatenDatenDatenDaten
18DatenDatenDatenDaten
19DatenDatenDatenDaten
20DatenDatenDatenDaten
21DatenDatenDatenDaten
22DatenDatenDatenDaten
23DatenDatenDatenDaten
24DatenDatenDatenDaten
25DatenDatenDatenDaten
26DatenDatenDatenDaten
27DatenDatenDatenDaten


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Setz den Cursor in Spalte(A) und drücke Strg+Pfeil nach unten, dann gehst Du eine Zeile tiefer
Oder Du drückst Strg+Ende, gehst eine Zeile tiefer und dann in Spalte(1)
Wenn Du aber eh schon einen Button hast, dann benutzt doch eh schon VBA, oder?
Gruß Matthias

Anzeige
AW: Bereich nach der letzten Zeile einfügen mit button
24.03.2015 19:09:14
Mr.Pink
ne das ist nicht ganz das was ich meinte.
Ich möchte das Kopieren mit einem Button auslösen. Immer nach der letzten Zeile in der Daten stehen soll es eingefügt werden.
So stell ich mir das vor: https://www.herber.de/bbs/user/96616.xlsx

AW: Bereich nach der letzten Zeile einfügen mit button
24.03.2015 19:30:32
Matthias
Hallo
Kann mir jemand einen Tipp geben wie ich auf eine Lösung kommen kann? Geht das ohne VBA?
Dann verstehe ich Deine Frage nicht, Sorry

Kann es auch sein das Du Zeilen mit Spalten verwechselst?
Tabelle1

 AB
1Spalte 1Detail 1
2Spalte 2Detail 2
3Spalte 3Detail 3
4Spalte 4Detail 4


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Vielleicht solltest Du es doch besser nochmal erklären, oder nochmal besser erklären.
Gruß Matthias

Anzeige
AW: Bereich nach der letzten Zeile einfügen mit button
26.03.2015 15:42:33
Mr.Pink
Ja vllt hab ich es nicht genau erklärt.
Also, Ich habe einen Bereich an Daten. In meinem Beispiel(Excel File das ich hochgeladen habe) wäre dieser Bereich (A1:E13) (Spalte sollte Zeile heißen, da hast du Recht). Nun benötige ich einen Code(VBA) der mir diesen Bereich (A1:E13) nach der letzten benutzten Zeile (in dem Fall ist Zeile 13 die letzte Zeile in der Daten stehen.) einfügt. Also in Zeile 14. Der Code sollte so geschrieben sein, dass er die letzte benutzte Zeile selbständig erkennt. So kann ich den Code auch anwenden, falls der Bereich (A1:E13) sich von der größe ändern sollte.

Anzeige
AW: Bereich nach der letzten Zeile einfügen mit button
26.03.2015 16:21:36
Matthias
Hallo
Vielleicht hift Dir das hier:
Option Explicit Sub ml() Dim Zeile&, x&, MyMaxRow For x = 1 To 5 'A-E Zeile = Cells(Rows.Count, x).End(xlUp).Row MyMaxRow = IIf(Zeile > MyMaxRow, Zeile, MyMaxRow) Next 'erste Zeile nach letzter belegter Zeile der Spalten("A:E") MsgBox MyMaxRow + 1 End Sub Gruß Matthias

Kopieren, Einfügen dann so ...
27.03.2015 04:43:09
Matthias
Hallo
Im Prinzip wäre es dann so
Letzte gefüllte Zelle war B7
Tabelle1

 ABCDE
1xxxxx
2 x xx
3xxxx 
4x xxx
5   x 
6xx xx
7 x   
8xxxxx
9 x xx
10xxxx 
11x xxx
12   x 
13xx xx
14 x   


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Also kannst Du mit diesem Code den Bereich Kopieren und unmittelbar darunter Einfügen.
Option Explicit
Sub mlCopy()
Dim Zeile&, x&, MyMaxRow
For x = 1 To 5 'A-E
Zeile = Cells(Rows.Count, x).End(xlUp).Row
MyMaxRow = IIf(Zeile > MyMaxRow, Zeile, MyMaxRow)
Next
Range("A1:E" & MyMaxRow).Copy Destination:=Range("A" & MyMaxRow + 1)
End Sub
Bei einer komplett leeren Tabelle müsste man noch UsedRange abfragen,
damit nicht die leeren Zellen der Zeile(1) kopiert werden.
Gruß Matthias

Anzeige
AW: Kopieren, Einfügen dann so ...
28.03.2015 18:01:07
Mr.Pink
Perfekt, genau nach dieser Lösung habe ich gesucht.
Vielen Dank Matthias!!

Danke für Deine Rückmeldung :-) owT
28.03.2015 18:30:00
Matthias

318 Forumthreads zu ähnlichen Themen

Letzte beschriebene Zeile suchen
Thomas3

Guten Morgen zusammen,
ich muß aus über 1000 Listen Daten auslesen. Das ist kein Problem.
Jede Liste sollte so beschrieben werden, dass ab Zeile 13 bis je nach Eintragungen x-Zeile Spalte O gefüllt ist.
In der Spalte 1 ist in der Datenliste eine Formel hinterlegt, die sichtbar aut...
19.08.2008 08:29:00
Thread-ID: 1002780
10 Beiträge
Anzeige
zeile ermitteln, werte prüfen
sonja

hallo ihr lieben,
ich hoffe ihr könnt mir auch dieses mal wieder helfen.
ich möchte in einer zeile (die sich ständig ändert letzte beschriebene zeile minus 6)
in jeder spalte prüfen ob der wert kleiner als ... ist, wenn dies zutrifft sollte sich eine userform
mit einem hinweis...
10.10.2008 16:55:00
Thread-ID: 1015638
11 Beiträge
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:17:00
Thread-ID: 1017692
4 Beiträge
Anzeige
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
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
Letzten Zeilenwert
Andre´

Hallo alle zusammen,
wie kann ich den letzten Zeilenwert der 2.Zeile in einer MSGBox angeben also: 11.11.2008
(dazwischen sind leere Zellen)
Tabelle1

 ABCDEFG1wee  dfgh   2trtrt  recht  11.11.20083Uhuu  Prod &n...
18.11.2008 22:31:00
Thread-ID: 1025804
10 Beiträge
Zeilen einfügen vor Zeile mit Wert XX in Spalte D
NetMare

Hallo zusammen,
ich möchte gern per script eine Zeile an bestimmten Stellen einfügen.
Das Einfügen klappt ja über
Worksheets("Tabelle1").Rows(7).Insert
ganz gut...
Ich habe mehrere Zeilen in der Liste mit unterschiedlichen Dingen die ich mir auch über scripte erstellen lasse...
25.11.2008 11:49:00
Thread-ID: 1027648
2 Beiträge
Formel für letzter Zeilenwert
Andre´

Hallo alle zusammen,
gibt es eine Formel, die mir den letzten Zeilenwert anzeigt.
Tabelle1

 BCDEFGHIJKLMN3 = letzter Zeilenwert() AnnePeter12.01.2008       Ändern4 = letzter Zeilenwert() FranzPetraLutz15.05.2008   ...
05.12.2008 07:44:00
Thread-ID: 1030336
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
2
10
3
1
4
2
9
1
7
3
2
5
4
5
7
3
9
1
2
1
6
3
2
5