Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
25.09.2025 14:32:49
Excel-Dateien zusammen führen (Tabellen)
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
1364to1368
1364to1368
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nächste freie Zeile

Forumthread: Nächste freie Zeile

Nächste freie Zeile
04.06.2014 12:21:37
Jessica
Hallo,
ich möchte das der Text aus einer UserForm immer in die nächste freie Zeile eingefügt wird.
Mein Code:
'Daten übernehmen
Private Sub CommandButton1_Click()
Dim emptyRow As Long
emtyRow = WorksheetFunction.CountA(Range("A:A")) + 1
Sheets("Liste").Cells(emtyRow, 1).Value = TextBox4.Value
End Sub

Er fügt es aber immer direkt in die erste Zeile (A1) ein..
Wo ist mein blöder Fehler? :(
Vielen Dank für euere Hilfe.
Liebe Grüße,
Jessica

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Nächste freie Zeile
04.06.2014 12:24:58
Hajo_Zi
Hallo Jessica,
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)

AW: Nächste freie Zeile
04.06.2014 12:27:36
EtoPHG
Hallo Jessica,
Die Bestimmung der Zeile bezieht sich auf das gerade aktive Blatt, wohingegen das Einfügen sich explicit auf das Blatt "Liste" bezieht, also besser beides aufs Gleiche: 
'Daten übernehmen
Private Sub CommandButton1_Click()
With ThisWorkbook.Worksheets("Liste")
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0) = Textbox4
End With
End Sub
Gruess Hansueli

Anzeige
AW: Nächste freie Zeile
04.06.2014 12:27:54
Jack_d
Hallo Jessica
mach es einfach so (ungetestet)
'Daten übernehmen
Private Sub CommandButton1_Click()
Dim emptyRow As Long
with Sheets("Liste")
emtyRow = .cells(rows.count,1).end(xlup).row +1
if emtyRow=2 then emtyRow=1
end if
.Cells(emtyRow, 1).Value = TextBox4.Value
End with
End Sub

Grüße
Anzeige
;

Forumthreads zu verwandten Themen

Aus Spalte in Zeile schreiben
Eckhard

Hallo Leute, ich benötige Hilfe.
in der ersten Spalte meines Arbeitsblattes stehen Adressdaten (Vorname, Nachname, Strasse, etc) jeweils 7 Felder lang, dann wiederholen sie sich - mit anderem Inhalt. Ich benötige nun ein Makro, das den Inhalt dieser Felder jeweils in eine Zeile schreibt. Da...
15.12.2008 15:57:52
Thread-ID: 1033076
5 Beiträge
Inhalt erst in Zeile 5 schreiben
Schmidtler

Hallo,
wie bekomme ich es hin, dass erst Werte ab der 4. Zeile eingetragen werden?
Main Eng. Doc.
LEER
LEER
LEER
LEER
25.02.2009
23.02.2009
OK
40002058
16.12.2008
18.12.2008
LATE
40002059
Mein Makro sieht wie folgt aus:
E...
27.02.2009 12:32:18
Thread-ID: 1054702
2 Beiträge
Werte aktualisieren oder in nächster freie Zeile
Frank

Hallo!
Ich möchter gerne per VBA einen vorhandenen Datensatz aktualisieren oder in der nächsten freien Zeile anlegen.
Leider bin ich VBA Deep, dass ist mein Versuch:
Private Sub CommandButton6_Click() Dim LngZ As Long Dim Found1 As Range Dim Found2 As Range Set Found1 = Sheets("A...
02.03.2009 19:24:29
Thread-ID: 1055699
7 Beiträge
Anzeige
Datenbloecke in Zeilen schreiben
VolkerM

Hallo Forum
Ich möchte mehrere hundert "Datenblöcke" in Zeilen schreiben.
Diese "Datenblöcke" bestehen immer aus 4 Zeilen und 6 Spalten.
Dann folgt immer eine Leerzeile.
Die einzelnen Zellen sind mal leer mal befüllt.
Auch der Inhalt ist unterschiedlich (Datum Uhrzeit Ziff...
27.10.2009 07:30:13
Thread-ID: 1112385
3 Beiträge
Daten aus einem Bereich in eine Zeile schreiben
Stefan

Hallo liebe Excel-Profis,
ich habe ein kleines Problem und hoffe ihr könnt mir dabei helfen.
Ich möchte Namen, die in einem Bereich J2:Q15 verstreut stehen, in eine Zeile nebendran, sagen wir S2:Z2, schreiben.
Maximal 8 Namen sind es, aber ich bekomm es einfach nicht hin, dass jede...
28.12.2010 14:06:57
Thread-ID: 1193062
4 Beiträge
nächste freie Zeile
Peter

Hallo an alle,
ich habe eine ständig größer werdende Datei, mit z.Zt. 200 Zeilen.
Wenn ich z.B. in der Zeile 15 etwas ändere muß ich immer wieder runterscrollen
um in nächste freile Zeile zu kommen. Je mehr Zeilen es werden um so mehr
scrolle ich da immer wieder runter in die n...
17.02.2011 17:48:42
Thread-ID: 1201539
3 Beiträge
Rahmen in die nächste leere Zeile
Heinz

Hallo Leute
Habe unteres Makro das mir ab A6:L einen Rahmen setzt.
Ich möchte gerne wenn zb. in A10 ein Wert steht,das mir dann in A11:L11 der Rahmen gesetzt wird.
Also immer immer die nächste leere Zelle von A.
Könnte mir dazu bitte jemand helfen?
Gruß
Heinz
Private...
27.02.2011 19:42:52
Thread-ID: 1203245
9 Beiträge
Anzeige
1. freie Zeile trotz Autofilter finden
Dietmar

Hallo zusammen,
mit folgendem (erkennbar umständlichem) Code übertrage ich Daten in eine Endlos-Tabelle zwecks durchzuführender Auswertungen.
Die Daten aus A28:Z28 resultieren aus Verknüpfungen von anderen Sheets, die ich auf dem Umweg der Umwandlung in Werte in Zeile 30 eintrage (ich w...
21.03.2011 16:52:28
Thread-ID: 1206687
6 Beiträge
erste freie Zeile in Zieltabelle finden
René

Hallo liebe Excelgemeinde,
ich will eine Datentabelle aus einer Datei in eine andere Datei kopieren.
Mein Problem ist das die Daten immer in der Zeiltabelle überschrieben werden weil die erste freie Zeile nicht gefunden wird. Kann mir bitte jemand an der Modifizierung des Makros helfen?...
05.04.2011 18:45:35
Thread-ID: 1209134
7 Beiträge
in Fußzeile das Jahr reinschreiben (1899)
Timonski

Servus...
ich hab ein Excel Datei mit mehreren Tabellen ( Januar, Februar... Dezember)
in meinem Makro steht für jeden Monat folgendes Makro...
Sheets("Januar").Select
With ActiveSheet.PageSetup
.CenterFooter = "&A " & Year(jahr)
End With
und bei Year(jahr) b...
02.05.2011 11:24:45
Thread-ID: 1212611
4 Beiträge
nicht in nächste zeile sondern spalte!
lisa

Hallo ihr fleißigen Helfer ich benötige hier bitte mal eure Hilfe!
Ich habe eine Userform mittels der ich Daten in meine Tabelle schreiben will!
Nun habe ich etwas rumgegoogelt und mir hier was zusammengestrickt.
Jetzt würde ich gern die Daten in immer die nächste freie Spalte eintr...
02.05.2011 13:44:31
Thread-ID: 1212635
19 Beiträge
Anzeige
Listbox Inhalt in Zeile schreiben
kaleun

Hallo,
ich habe folgende Frage.
Ich habe eine einspaltige Listbox mit max 12 Einträgen. Diese Einträge möchte ich in ein Tabellenblatt schreiben. Mit folgendem Code funktioniert das auch.
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
Cells(i + 2, 2) = ListBox1.List(i)...
20.05.2011 15:57:52
Thread-ID: 1215383
5 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