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
336to340
336to340
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dauerbrenner: erste FREIE ZEILE

Forumthread: Dauerbrenner: erste FREIE ZEILE

Dauerbrenner: erste FREIE ZEILE
11.11.2003 14:40:37
Markus
Hallo,
das ist wirklich ein Klassiker, - ich suche etwas, was schnell die erste freie Zeile findet.
Man denkt ja meistens, man kann LetzteZeile = Worksheets("ArtWahl").Cells(Rows.Count, 2).End(xlUp).Row nehmen und dann LetzteZeile = LetzteZeile + 1.
Aber: Dieser Code liefert, wenn das Blatt leer ist: LetzteZeile = 1 und wenn nur in der ersten Zeile etwas steht auch die 1. Das ist dann natürlcih strenggenommen nicht korrekt. Wer weiss also etwas schnelles, ohne Loop u.dgl., dass die erste freie Zeile liefert (wäre bei einem leeren Blatt die 1, bei einem, wo etwas nur in Zeile 1 steht, die 2)?

Markus
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Dauerbrenner: erste FREIE ZEILE
11.11.2003 14:44:42
Russi
Hallo Markus!

Vielleicht hilft Dir das:

Rows.SpecialCells(xlCellTypeLastCell).Rows.Activate

Viele Grüße

Russi
AW: Dauerbrenner: erste FREIE ZEILE
11.11.2003 14:48:44
Markus
Hallo,

danke, das liefert mir aber nicht den Wert, oder?

Markus
AW: Dauerbrenner: erste FREIE ZEILE
11.11.2003 14:59:42
Russi
Äh...nö.

Welche Wert meinst Du? Denn Zellinhalt erhälst Du wie folgt:

debug.print Rows.SpecialCells(xlCellTypeLastCell).value

Die Adresse der betreffenden Zelle erhälst Du mit:

debug.Print cells.SpecialCells(xlCellTypeLastCell).Address

Russi
Anzeige
AW: Dauerbrenner: erste FREIE ZEILE
11.11.2003 14:52:11
Heinrich M.
Du kannst auch folgenden Code benutzen, auch wenn der etwas länger läuft ;-)

rownum = 0
Range("A1").Select
Do While Application.ScreenUpdating = True
If ActiveCell.Value = "" Then
Application.ScreenUpdating = False
Else
rownum = rownum + 1
ActiveCell.Offset(1, 0).Select
End If
Loop
Range("A1").Offset(rownum, 0).Select

Viele Grüsse,

Heinrich
Anzeige
AW: Dauerbrenner: erste FREIE ZEILE
11.11.2003 14:54:30
Markus
Hallo Heinrich,
tut mir leid, da bin ich ein Nörgler: das ist zu langsam, da kann man ja auch mit dem alten Code arbeiten, und den Fall das die erste Zeile gefüllt ist, als einzige abfangen mit der Abfragen: if LetzteZeile = 1 ABER Cells (1,1) <> "" then ....
Markus
oder so
11.11.2003 15:18:07
IngoG
Hallo Markus,
addiere doch einfach nicht 1 sondern

(Worksheets("ArtWahl").Cells(letzteZeile, 2).value<>"")

also

LetzteZeile = LetzteZeile + (Worksheets("ArtWahl").Cells(letzteZeile, 2).value<>"")

sollte funktionieren

Gruß Ingo
Anzeige
AW: Dauerbrenner: erste FREIE ZEILE
11.11.2003 15:33:38
FP
Hallo Markus,

Funktion: FirstFreeLine
Parameter:
intCol: Spaltennummer - optional - Standard = Spalte 1 (A)
wsObj: Blatt (Objekt!) - optional - Standard = aktives Blatt

Rückgabe: 1.leere Zeile lt. Spalte intCol

Public 

Function FirstFreeLine(Optional intCol As Integer, Optional wsObj As Worksheet) As Long
If wsObj Is Nothing Then Set wsObj = ActiveSheet
intCol = IIf(intCol = 0, 1, intCol)
FirstFreeLine = Cells(Rows.Count, intCol).End(xlUp).Row
If Not IsEmpty(Cells(FirstFreeLine, intCol)) Then FirstFreeLine = FirstFreeLine + 1
End Function


Servus aus dem Salzkammergut
Franz
Anzeige
Danke, Franz
11.11.2003 15:38:03
Markus
Halo Franz,

das war es wirklich - gewonnen!

Vielen Dank,

Markus
;

Forumthreads zu verwandten Themen

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
Ans ende einer Zeile springen
Felix

Hallo,
wahrscheinlich eine sehr einfache Frage für euch:
Ich möchte gerne per makro einen wert 3 zellen links vom zeilenende kopieren und an einer andere zelle wieder einfügen.
Das ganze zur einer schleife programmieren kann ich (hoffe ich) selbst.
Vielen Dank.
Felix
16.06.2009 13:23:03
Thread-ID: 1081884
4 Beiträge
erste leere Zelle einer Zeile finden.
Marcel

Hallo zusammen
Ich möchte den Wert der Aktiven Zelle (ohne diese zu verlassen) in die erste leere Zelle der Zeile schreiben.
Kennt jemand den Befehl dafür?
Wäre echt froh um Hilfe.
Danke schon im Voraus
Gruss Marcel
23.09.2009 14:23:15
Thread-ID: 1104940
3 Beiträge
Erste freie Zeile...
Gegga

Hallo an alle...
Wer kann mir folgendes ins VBA übersetzen?
SucheA
Suche erste freie Zeile in Sheet LIEF Spalte 6
Wenn dieser Wert > 71 verwende gefundenen Wert
Wenn der Wert <71 dann Suche erste freie Zeile ab 118
Wenn der Wert <146 dann Suche erste freie Zeile...
13.10.2010 13:50:17
Thread-ID: 1182244
7 Beiträge
erste freie Zeile suchen aber nur bis Zeile 40
Reinhardt

Hallo,
ich möchte mit u.a.Code ein "PASTE" in die erste freie Zeile in Spalte G durchführen.
Jedoch soll nur der Bereich bis Zeile 40 berücksichtigt werden.
Wie schreibt man so etwas?
Gruß aus Lübeck
Reinhardt.
Sub Schritt02() 'Eintragen zur Vorbereitung für ArchivB Shee...
23.10.2010 12:13:40
Thread-ID: 1183617
7 Beiträge
Anzeige
gehe zu einer Zelle in der aktuellen Zeile
Holger

Hallo mit einander
Ich habe folgendes Problem
im bereich f6- bis f250 sind Datumswerte
in der 5 Zeile sind auch Datumswerte
Bsp
----------------Zeile 6 -------------01.06. --- 02.06 ---- 03.06
Spalte F
12.6.2010
13.6.2010
03.6.2010 -----------...
30.10.2010 20:33:37
Thread-ID: 1184563
3 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
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
Anzeige
erste freie Zeile suchen
René

Hallo,
ich möchte ausgewählte Texte aus ComboBoxen und TextBoxen aus einer UserForm in ein Tabellenblatt übernehmen.
Funktioniert auch mit
Hier nur mal für das Auslesen einer ComboBox. Werden aber mehrere ausgelesen und die Werte stehen dann in Tabelle 1 hintereinander in einer Zei...
24.03.2011 15:50:04
Thread-ID: 1207434
2 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
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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