Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1912to1916
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
1912to1916
1912to1916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - erste freie Zelle finden in Spalte

VBA - erste freie Zelle finden in Spalte
16.01.2023 14:18:43
Dirk
Im Rahmen eines umfangreicheren Makros muss ich im Makro folgendes hinterlegen, damit die leeren Zellen dieser Spalte korrekt gefüllt werden:
In einer bestimmten Spalte mit der Taste F5 und im Dialogfenster "Gehe zu" Klick auf Inhalte und Auswählen "Leerzeilen". Soweit so gut. Jetzt soll das Makro die erste freie Zelle in dieser Spalte finden und in der Eingabezeile bspw eintragen: =Y3 (Y = Spaltenname und 3 wäre hier als Bsp die erste freie Zelle).
Kann mir jemand das als VBA zur Verfügung stellen? Danke im Voraus

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - erste freie Zelle finden in Spalte
16.01.2023 15:04:45
Daniel
Hi (wenn das ergänzen würdest, sähe dein Beitrag gleich viel freundlicher aus)
beispielsweise so:

ActiveCell.Formula = "=" & Range("Y:Y").Find(what:="", after:=Cells(Rows.Count, "y"), LookIn:=xlFormulas, lookat:=xlWhole).Address(0, 0)
sollte die die Zeile 1 in dieser Spalte immer befüllt sein (Überschrift), dann kannst du das "after:=cells(Rows.count, "Y"), " auch weglassen. Diese Anweisung braucht man nur für den Fall, das auch die Zeile 1 die erste leere Zelle sein könnte, diese wird ansonsten nicht gefunden, weil die Suche sonst erst in der zweiten Zelle des angegebenen Zellbereichs beginnt.
die Leerzelle über das F5 (in VBA SpecialCells) zu ermitteln ginge prinzipiell auch (Columns("Y:Y").SpecialCells(xlcelltypeblanks)(1)), hat aber den Nachteil, dass es einen Fehlerabbruch gibtt, wenn in der Spalte der verwendete Zellbereich vollständig befüllt ist (dh dass es in der Tabelle keine Spalte gibt, die noch weiter mit Werten oder Formatierungen befüllt ist)
Gruß Daniel
Anzeige
AW: VBA - erste freie Zelle finden in Spalte
16.01.2023 15:22:01
Dirk
Hallo Daniel,
Du hast recht, das hatte ich übersehen im Eifer des Gefechts.
Richtig, Zeile 1 ist immer schon mit einer Überschrift beleg, die erste Zelle wird daher niemals leer sein. Wenn ich jetzt allerdings das Makro wie folgt teste, erhalte ich beim kompilieren schon eine Fehlermeldung

Sub LeerZelle()
ActiveCell.Formula = "=" & Range("Y:Y").Find(what:="", "y"),Lookin:=xlFormulas, lookat:=xlWhole).Adress(0, 0)
End Sub
Fehler beim Kompilieren: Syntaxfehler.
Es wird immer leere Zellen geben, daher wäre (Columns("Y:Y").SpecialCells(xlcelltypeblanks)(1)) vielleicht besser, aber wie sähe das Makro denn dann aus? Danke
Was mache ich noch verkehrt?
Anzeige
AW: VBA - erste freie Zelle finden in Spalte
16.01.2023 15:26:35
Dirk
Ergänzung:
Mein Makro mit F5 und Markierung der leeren Zellen in dieser Spalte und dem Eintrag in der Eingabezeile sieht bisher so aus:
Columns("X:X").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Application.CutCopyMode = False
Selection.FormulaR1C1 = "=R[1]C"
Er soll mir mithilfe eines Makros ja nur die Zelladresse der ersten freien Zelle in Spalte X finden (nicht die Zelle markieren) und diesen Wert/diese Adresse mit "=" gefolgt von der Zelladresse in die Eingabezeile eintragen und mit STRG + ENTER abschicken
AW: VBA - erste freie Zelle finden in Spalte
16.01.2023 16:15:23
Daniel
HI
die erste Frage ,die mich interessieren würde, warum durchsuchst du in der Eingangsfrage die Spalte Y und jetzt plötzlich die Spalte X?
es wäre besser, wenn wir uns auf eine Spalte einigen könnten, das macht es einfacher, passenden Code zu schrieben, denn du dann nicht nachträglich anpassen musst.
der Fehler in deiner Umsetzung war, dass du den Parameter AFTER nicht vollständig rausgelöscht hast sondern nur teilweise, das was ich hier fett und unterstrichen markiert habe, hast du vergessen zu löschen:
ActiveCell.Formula = "=" & Range("Y:Y").Find(what:="", "y"), Lookin:=xlFormulas, lookat:=xlWhole).Adress(0, 0)
aber du hättest den Code ja auch so testen können, wie ich ihn dir gezeigt habe, das ändert eigentlich nichts am Ergebnis.
das andere wäre folgendes, warum ich das nicht verwendet habe, habe ich ja geschrieben.

ActiveCell.Formula = "=" & Range( keine Ahnung, was du als nächste als Spalte haben willst, trags bitte selber ein).SpecialCells(xlcelltypeblanks)(1).Address(0, 0)
Gruß Daniel
Anzeige
AW: VBA - erste freie Zelle finden in Spalte
16.01.2023 15:07:49
Rudi
Hallo,
EingabeZelle = sheets("tabellenname").cells(rows.count, 25).end(xlup).offset(1).address
Gruß
Rudi
AW: VBA - erste freie Zelle finden in Spalte
16.01.2023 15:33:09
Dirk
Hallo Rudi, danke schon einmal. Wo genau würde ich das denn in meinem Makro einbauen?
Mein Makro mit F5 und Markierung der leeren Zellen in dieser Spalte und dem Eintrag in der Eingabezeile sieht bisher so aus:
Columns("X:X").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Application.CutCopyMode = False
Selection.FormulaR1C1 = "=R[1]C"
Er soll mir mithilfe eines Makros ja nur die Zelladresse der ersten freien Zelle in Spalte X finden (nicht die Zelle markieren) und diesen Wert/diese Adresse mit "=" gefolgt von der Zelladresse in die Eingabezeile eintragen und mit STRG + ENTER abschicken
Anzeige

336 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
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
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Spalte nach Schlüsselwörtern auswerten
Mumber

Hallo Experten,
brauche dringend Eure Unterstützung.
Ich würde gerne im Rahmen einer Auswertung eine bestimmte Spalte (Text) mittels VBA nach bestimmten Schlüsselwörtern durchsuchen lassen und bei Treffer eine dem Schlüsselwort entsprechende Kategoriebezeichnung in anderer Spalte (glei...
08.09.2008 11:31:00
Thread-ID: 1008091
5 Beiträge
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Text in anderer Datei suchen, kopiertes rechts ein
Rudolf

Hallo an alle, bin neu hier und benötige Hilfe.
Wie kann ich in Spalte A einen Text z.B. K1 (Kommt immer nur 1x vor) suchen.
Das aus anderer Datei kopierte dann rechts in Sp. C gleiche Zeile einfügen,
so das Range("C45").Select wegfallen kann.
Ich hätte dann die Möglichkeit bel...
12.09.2008 15:29:00
Thread-ID: 1009393
15 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
1
5
4
8
4
3
7
4
2
14
4
2
2
20
7
4
4
2
6
4
6
6
12
11
3