Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten werden nicht in letzte freie Zeile geschrieb

Forumthread: Daten werden nicht in letzte freie Zeile geschrieb

Daten werden nicht in letzte freie Zeile geschrieb
17.08.2018 13:50:21
Andre_D
Hallo zusammen,
die Werte aus den 8 Spalten meiner Listbox sollen in Tabellenblatt3 nach Klick auf den CommandButton geschrieben werden und zwar immer in die letzte freie Zeile.
Kopieren der Daten geht - aber nicht in die letzte freie Zeile.
Hier mein Code:
Private Sub CommandButton3_Click()
Dim last As Integer
last = Tabelle3.Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 0 To ListBox2.ListCount - 1
Tabelle3.Cells(i + 3, 1) = ListBox2.List(i, 0)
Tabelle3.Cells(i + 3, 2) = ListBox2.List(i, 1)
Tabelle3.Cells(i + 3, 3) = ListBox2.List(i, 2)
Tabelle3.Cells(i + 3, 4) = ListBox2.List(i, 3)
Tabelle3.Cells(i + 3, 5) = ListBox2.List(i, 4)
Tabelle3.Cells(i + 3, 6) = ListBox2.List(i, 5)
Tabelle3.Cells(i + 3, 7) = ListBox2.List(i, 6)
Tabelle3.Cells(i + 3, 8) = ListBox2.List(i, 7)
Next
End Sub
WO LIEGT DER FEHLER?
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten werden nicht in letzte freie Zeile geschrieb
17.08.2018 13:54:05
{Boris}
Hi,
WO LIEGT DER FEHLER?
Mit last ermittelst Du die letzte Zeile - und wo verwendest Du dieses Ergebnis dann? ;-)
VG, Boris
AW: Daten werden nicht in letzte freie Zeile geschrieb
17.08.2018 14:15:32
Andre_D
Hallo Boris,
Das Ereignis soll in Tabelle3 erfolgen. Verstehe Deine Frage nicht!
Bin auch neu auf dem Gebiet VBA. Daher wäre ich für die notwendige CodeZeile dankbar.
Gruß
Andre
Anzeige
Siehe Antwort von Werner... ;-) oT
17.08.2018 14:25:44
Werner...
...
AW: Daten werden nicht in letzte freie Zeile geschrieb
17.08.2018 13:54:34
Hajo_Zi
Zeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row+1
fütr I+3
I+zeile

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: Daten werden nicht in letzte freie Zeile geschrieb
17.08.2018 14:20:29
Werner
Hallo Andre,
so: 
Private Sub CommandButton3_Click()
Dim last As Integer
last = Tabelle3.Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 0 To ListBox2.ListCount - 1
Tabelle3.Cells(last, 1) = ListBox2.List(i, 0)
Tabelle3.Cells(last, 2) = ListBox2.List(i, 1)
Tabelle3.Cells(last, 3) = ListBox2.List(i, 2)
Tabelle3.Cells(last, 4) = ListBox2.List(i, 3)
Tabelle3.Cells(last, 5) = ListBox2.List(i, 4)
Tabelle3.Cells(last, 6) = ListBox2.List(i, 5)
Tabelle3.Cells(last, 7) = ListBox2.List(i, 6)
Tabelle3.Cells(last, 8) = ListBox2.List(i, 7)
last = last + 1
Next
End Sub
Gruß Werner
Anzeige
AW: Daten werden nicht in letzte freie Zeile geschrieb
17.08.2018 14:41:26
Andre_D
Hallo Werner,
danke sehr, so kann ich arbeiten ;-)
Schönes Wochenende
Gerne u. Danke für die Rückmeldung. o.w.T.
17.08.2018 14:46:53
Werner
;

Forumthreads zu verwandten 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
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Anzeige
Sortieren bis zum letzten Eintrag
Werner

Hallo allerseits,
habe ein Problem beim Sortieren einer Tabelle. Diese besteht aus Zellen von A2:X200.
A:A =Lfd.-Nr. B:B Vorname, Name C:C Familienname ....
Zellen der Spalte C beinhalten Formel zum Trennen aus Einträgen der Spalte B.
Nach Markierung Bereich A2:X200 und ansch...
09.09.2008 20:45:00
Thread-ID: 1008577
6 Beiträge
aktive Zelle soll in Spalte "L" springen
Karsten

Hallo... ,
Suche folgenden Makrobefehl:
Die aktive Zelle soll in der Zeile bleiben, in der sie sich befindet, allerdings nach Spalte "L" springen.
Danke für eure Hilfe!
Gruß
Karsten
03.10.2008 16:34:44
Thread-ID: 1014058
3 Beiträge
ans ende einer Tabelle
steffen

Hallo in die Runde,
wie bekomme ich es hin, dass mir beim aktivieren einer Tabelle das Ende der Tabelle angeziegt wird.
Ich habe die Zeile 1 fixiert und muss jedes mal runtersrollen.
versucht habe ich es hiermit, jedoch ohne gewünschtem erfolg; der Cursor steht zwar ganz unten, ich...
13.10.2008 10:49:08
Thread-ID: 1015962
4 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
Max,Min, Mittelwert von letzter Zeile
letzter

Hallo
Ich habe in einer Tabelle Temperaturwerte die jeden Tag ergänzt werden. Nun möchte ich für den jeweils letzten eingetragenen Tag die Min, Max und Mittelwerte angezeigt bekommen. Kann ich das ohne VBA mit den Excel Funktionen lösen, das immer die letzte Zeile verwendet wird?
Zude...
08.01.2009 08:53:00
Thread-ID: 1037754
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
Anzeige
In erste freie Spalte springen
Thomas

Hallo Exelgemeinde,
Ich möchte per Schaltbutton in die erste freie Spalte im Bereich CU 8 bis GF 8 springen.
Ist das möglich, und wie müßte das Makro dafür sein ?
Wäre schön wenn mir jemand weiterhelfen könnte.
Gruß Thomas
19.01.2009 16:48:17
Thread-ID: 1041558
3 Beiträge
nach letzter beschriebener Zeile einfügen
lisa

Hallo zusammen
Ich habe einen kopierten Datensatz, der in eine neue Tabelle1 ind die nächste frei Zeile eingefügt werden soll.
Hat hier jemand eine Idee, wie ich die erste freie Zelle in Spalte a finden kann und dort dann die Werte eingefügt werden?
Liebe Grüße Lisa
03.02.2009 17:36:42
Thread-ID: 1046730
8 Beiträge
Hilfe zu letzter zeile (xlUp) aus Bereich
chris

Hallo VBA experten,
habe schon versucht im Forum zu suchen finde aber nichts passendes.
Ich benötige die letzte zeile aus einem Bereich.
Die letzte zeile also Zelle einer Spalte ist kein Problem.Das mache ich so:
Sub neu() MsgBox ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row...
12.02.2009 10:53:00
Thread-ID: 1049939
5 Beiträge
Spalte bis zur letzten Zeile mit akt. Datum füllen
Stefan

Hallo,
ich habe eine Tabelle mit mehreren gefüllten Spalten (z.B. A, C, E, F) und leeren Spalten dazwischen.
Nun möchte ich Spalte I mit dem aktuellen Datum füllen, und zwar bis zur letzten gefüllten Zeile einer Spalte mit Inhalt.
Wie gehe ich da am besten vor?
Die gefüllten Spa...
03.03.2009 13:35:30
Thread-ID: 1055961
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige