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

Nächste freie Zeile bei Tabelle VBA

Forumthread: Nächste freie Zeile bei Tabelle VBA

Nächste freie Zeile bei Tabelle VBA
12.03.2024 13:02:29
resli
Hallo zusammen

Ich habe den 
Cells(65000, 1).End(xlUp).Offset(1, 0).Select


zum ermitteln der nächsten Freien Zeile genommen, da die Inhalte in einer Tabelle geschrieben sind nimmt es mir mit dem Code immer das Ende der als Tabelle Formatierten Zeile. Wenn die Tabelle Kein wert enthält springe er dennoch ans Ende und eröffnet eine neue Zeile.

Welchen Code muss ich verwenden damit mir das Makro die nächste freie Zeile in der Formatierten Tabelle nimmt?

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Nächste freie Zeile bei Tabelle VBA
12.03.2024 13:21:04
Piet
Hallo

wenn es sich um eine "Intelligente Tabelle" handel, dann ändere den Code bitte mal so ab:
Cells(Rows.Count, 1).End(xlUp).End(xlUp).Offset(1, 0).Select -- (xlUp doppelt!)

mfg Piet
AW: Nächste freie Zeile bei Tabelle VBA
12.03.2024 17:02:48
UweD
Hallo


so? 

    EZ = Evaluate("=MIN(IF(A1:A65000="""",ROW(1:65000)))") 'Erste Lücke in Spalte


LG UweD
Anzeige
AW: Nächste freie Zeile bei Tabelle VBA
12.03.2024 19:37:30
Piet
Hallo resli

hast du mal meinen Lösungsvorschlag praktisch ausprobiert?? Zwei mal End(xlUp) hintereinander schreiben.

mfg Piet
AW: Nächste freie Zeile bei Tabelle VBA
15.03.2024 16:26:11
resli
Hallo zusammen vielen dank für die vielen Antworten es hat funktioniert.

Gruss Andi
AW: Nächste freie Zeile bei Tabelle VBA
12.03.2024 13:52:42
WolfiSued
Hallo resli,

bei einer intelligenten Tabelle würde ich es so machen.
Hier wird per Spaltenüberschrift auf die letzte Zeile im Tabellen-Body zugegriffen.

Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects("tblStädte")
tbl.ListColumns("Werte").DataBodyRange.Rows(tbl.DataBodyRange.Rows.Count).Value = 99


Viele Grüße
Wolfgang
Anzeige
AW: Nächste freie Zeile bei Tabelle VBA
12.03.2024 15:47:42
resli
Hallo WolfiSued

Dein Code nimmt immer die letzte Zeile der Intelligenten Tabelle auch wenn oben noch leere Felder stehen, ich suche ein Code der die Leeren Zellen auch sieht in der Intelligenten Tabelle
AW: Nächste freie Zeile bei Tabelle VBA
12.03.2024 17:41:29
GerdL
Moin,
probier mal. 

Sub Unit()



    Dim X As ListObject, b As Long

    

    Set X = Worksheets("Tabelle1").ListObjects(1)

    

    For b = 1 To X.DataBodyRange.Rows.Count

            If X.ListRows(b).Range.Value = "" Then Exit For

    Next

    MsgBox X.ListRows(b).Range.Address



End Sub

Gruß Gerd
Anzeige
AW: Nächste freie Zeile bei Tabelle VBA
12.03.2024 20:49:35
schauan
Hallöchen,

bzw. im Prinzip so 

Sub test()

Set myTable = Worksheets("Tabelle1").ListObjects(1)

With myTable

  'von unten in Spalte 1 des Listobject

  MsgBox .ListRows(.ListRows.Count).Range.Cells(1).End(xlUp).Address

  'von oben in Spalte 1 des Listobject

  MsgBox .ListRows(1).Range.Cells(1).End(xlDown).Address

End With

End Sub


.. hat gegenüber der Schleife den Nachteil, dass man in der letzten bzw. ersten Zeile noch auf Leer prüfen muss. Könnte ja sein, dass das die erste leere Zelle ist.


Anzeige
;

Forumthreads zu verwandten Themen

makro markierung von Zeilen nach oben und unten
Zeilen

Hallo liebe Excel-Gemeinde,
ich weiss dass es schon viele Beiträge zum Thema "Löschen von Zeilen nach einer Bedingung" gibt, aber ich habe nach langer Suche keine Lösung bzw. Ansatzpunkt gefunden.
Problembeschreibung:
Ich brauche ein Makro, dass in der Spalte 2 nach 2 verschiedenen...
12.09.2008 08:37:02
Thread-ID: 1009273
3 Beiträge
Anzeige
Zeilensprung in Textbox mit Enter
uli

Hallo Experten,
habe folgenden Code in einem Klassenmodul:
Private Sub clTextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then If clTextBox.Tag = 95 Then 'Hier vielleicht Anweisung für Zeilensprung!!!! Exit Sub End If If Is...
20.11.2008 11:26:40
Thread-ID: 1026350
3 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Leerzeile zählen-nach unten
robert

hi,
kann man-siehe datei- leere zeilen nach unten zählen?
z.B. A6 bis A10 ist leer-sind 5 leerzeilen
in B5 soll 5 stehen
gruß
robert
https://www.herber.de/bbs/user/60378.xls
17.03.2009 09:26:21
Thread-ID: 1061001
3 Beiträge
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
Anzeige
Problem mit Zeilenumbruch in verbundenen Zellen
Christian

Hallo zusammen!
nachdem auf meinen letzten Beitrag leider keine Antworten eingegangen sind, habe ich nochmal selbst versucht, das Problem einzugrenzen.
Es ist nicht nur auf das Dokument beschränkt, mit dem ich Probleme hatte.
Man kann das Problem nachstellen:
Zellen A1 bis D30 v...
03.07.2009 22:42:59
Thread-ID: 1086260
3 Beiträge
Markierte Bereich eine Zeile nach unten verschieb.
Nibio

Hallo Profis,
jetzt weiß ich nicht wie ich per makro, eine markierte bereich (z.B A1: EH1) eine Zeile nach unten verschiebe. Ich hoffe es gibt eine Lösung sonst weiß ich nicht mehr weiter.
Gruß
Nibio
20.08.2009 18:13:37
Thread-ID: 1097497
19 Beiträge
Markierte Bereich eine Zeile nach unten verschieb.
Nibio

Hallo Profis,
jetzt weiß ich nicht wie ich per makro, eine markierte bereich (z.B A1: EH1) eine Zeile nach unten verschiebe. Ich hoffe es gibt eine Lösung sonst weiß ich nicht mehr weiter.
Gruß
Nibio
20.08.2009 18:14:06
Thread-ID: 1097498
2 Beiträge
Markierte Bereich eine Zeile nach unten verschieb.
Nibio

Hallo Profis,
jetzt weiß ich nicht wie ich per makro, eine markierte bereich (z.B A1: EH1) eine Zeile nach unten verschiebe. Ich hoffe es gibt eine Lösung sonst weiß ich nicht mehr weiter.
Gruß
Nibio
20.08.2009 18:12:45
Thread-ID: 1097499
5 Beiträge
pro tabelleneintrag automatisch eine neue Zeile
papa

Hallo liebe Excelianer,
ich möchte über ein Userform diverse Informationen abfragen und diese dann in einer Tabelle ablegen.
Es soll eine Datenbank entstehen, sprich bei jedem neuen Userformeintrag soll in der Tabelle eine neue Zeile verwendet werden.
Bisher hab ich dieses Vorhaben...
06.10.2009 00:10:16
Thread-ID: 1107402
3 Beiträge
Vba; eine Zeile weiter nach unten...
Lucas

Ahoi Leute,
ich hab mal nen Problem:
ich brauche einen Makro, der folgendes tut:
Schreibe in Zelle A1 die Zahl a=1;
Prüfe, ob in Zelle B1 der Text "Ja" steht;
Wenn "Ja": Schreibe in Zelle C1 die Zahl a;
Wenn nicht "Ja": nichts
Schreibe in Zelle A1 den Wert a+1;
P...
18.12.2009 21:22:20
Thread-ID: 1124983
3 Beiträge
Mit Makro eine neue Zeile einfügen
Richard

Hallo zusammen,
ich wollte über Makro eine neue Zeile einfügen lassen welche dann aber auch alle Formeln
der darüber liegenden Zeile übernimmt. Diese Funktion sollte dann aber auch immer wieder benutzt
werden können so das immer eine neue Zeile entsteht.
Könnt ihr mir vielleich...
21.01.2010 13:10:01
Thread-ID: 1131758
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