Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Tomschi vom 30.01.2020, 07:37 Options
VBA - erste leere Zelle in einem Bereich
Guten Morgen!
Mal wieder eine Frage an die (VBA-)Profis.
Ich möchte gerne den Curser auf die erste leere Zelle in einem bestimmten Bereich positionieren.
Ich habe schon ein wenig im Forum gestöbert aber "nur"
http://www.supportnet.de/threads/1514023
gefunden.
Leider wird hier immer lediglich die letzte Zelle des gesamten Blattes ermittelt.
Meine Anforderung sieht allerdings anders aus.
Geprüft werden soll z. B. der Bereich C20 bis C60.
Ist in C35 der letzte Eintrag, dann soll die Zelle C36 aktiviert werden.
Vielleicht hat jemand einen Lösungsansatz für mich.
Ciao
Tom
Mal wieder eine Frage an die (VBA-)Profis.
Ich möchte gerne den Curser auf die erste leere Zelle in einem bestimmten Bereich positionieren.
Ich habe schon ein wenig im Forum gestöbert aber "nur"
http://www.supportnet.de/threads/1514023
gefunden.
Leider wird hier immer lediglich die letzte Zelle des gesamten Blattes ermittelt.
Meine Anforderung sieht allerdings anders aus.
Geprüft werden soll z. B. der Bereich C20 bis C60.
Ist in C35 der letzte Eintrag, dann soll die Zelle C36 aktiviert werden.
Vielleicht hat jemand einen Lösungsansatz für mich.
Ciao
Tom
Antwort 1 von Hajo_Zi vom 30.01.2020, 08:42 Options
Hallo Tom,
im ersten Teil möchtest Du die erste freie finden im letzten teil möchtest Du die Zelle ach dem letzten Eintrag finden. Das sind zwei unterschiedliche Sachen. C12 ist frei. Welche Zelle möchtest Du jetzt finden.
C12 mit Fin
C36 mit
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 3)), Cells(Rows.Count, 3).End(xlUp).Row, Rows.Count)+1
Gruß Hajo
im ersten Teil möchtest Du die erste freie finden im letzten teil möchtest Du die Zelle ach dem letzten Eintrag finden. Das sind zwei unterschiedliche Sachen. C12 ist frei. Welche Zelle möchtest Du jetzt finden.
C12 mit Fin
C36 mit
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 3)), Cells(Rows.Count, 3).End(xlUp).Row, Rows.Count)+1
Gruß Hajo
Antwort 2 von Tomschi vom 30.01.2020, 09:26 Options
Hi Hajo!
Vorweg DANKE, dass Du Dich meinem Problem angenommen hast.
Sorry, für die verwirrende Formulierung meiner Frage!
Ich habe einen Bereich eben z. B. C20 bis C60.
Dieser beinhaltet Einträge. Nun soll per VBA der Cursor auf die erste freie Zelle NACH dem letzten Eintrag innerhalb des Bereichs positioniert werden.
Ich habe Deinen Code in meine Mustertabelle hineinkopiert, aber es passiert nichts.
Siehe dazu Musterdatei unter http://www.netupload.de/detail.php?img=e3b324bd0b87f569533c2cc4f6b5....
Ciao
Tom
Vorweg DANKE, dass Du Dich meinem Problem angenommen hast.
Sorry, für die verwirrende Formulierung meiner Frage!
Ich habe einen Bereich eben z. B. C20 bis C60.
Dieser beinhaltet Einträge. Nun soll per VBA der Cursor auf die erste freie Zelle NACH dem letzten Eintrag innerhalb des Bereichs positioniert werden.
Ich habe Deinen Code in meine Mustertabelle hineinkopiert, aber es passiert nichts.
Siehe dazu Musterdatei unter http://www.netupload.de/detail.php?img=e3b324bd0b87f569533c2cc4f6b5....
Ciao
Tom
Antwort 3 von rainberg vom 30.01.2020, 09:52 OptionsLösung
Hallo Tom,
probier mal das:
Gruß
Rainer
probier mal das:
Sub test()
Cells(Range("C60").End(xlUp).Row + 1, 3).Select
End SubGruß
Rainer
Antwort 4 von Tomschi vom 30.01.2020, 12:03 Options
Hallo Rainer!
Vielen DANK für Deinen Support!
Jetzt kann ich beruhigt Mittagessen.
Bye
Tom
Vielen DANK für Deinen Support!
Jetzt kann ich beruhigt Mittagessen.
Bye
Tom
Antwort 5 von gast123 vom 30.01.2020, 12:11 Options
hi all
bei beiden ist keine bereichsangabe angegeben und kann daher nicht funktionieren
gruss gast123
Sub SelectionEinesBereiches()
Workbooks(1).Worksheets(1).Range("C20:C60").Find("").Select
End Sub
bei beiden ist keine bereichsangabe angegeben und kann daher nicht funktionieren
gruss gast123
Sub SelectionEinesBereiches()
Workbooks(1).Worksheets(1).Range("C20:C60").Find("").Select
End Sub
Antwort 6 von Tomschi vom 30.01.2020, 13:56 Options
Hallo Gast123!
Ich habe Deinen Code auch ausprobiert.
Jedoch einen Fehler bekommen:
Laufzeitfehler '91'
Objektvariable oder With-Blockvariable nicht festgelegt.
Ich bin ja kein VBA-Profi, aber irgendwie sieht es für mich aus, als ob Dein Code nach einer Zelle mit "" sucht.
Ich möchte jedoch die Zeile nach dem letzten Eintrag aktivieren.
Der Code aus Antwort 3 funktioniert einwandfrei.
Bye
Tom
Ich habe Deinen Code auch ausprobiert.
Jedoch einen Fehler bekommen:
Laufzeitfehler '91'
Objektvariable oder With-Blockvariable nicht festgelegt.
Ich bin ja kein VBA-Profi, aber irgendwie sieht es für mich aus, als ob Dein Code nach einer Zelle mit "" sucht.
Ich möchte jedoch die Zeile nach dem letzten Eintrag aktivieren.
Der Code aus Antwort 3 funktioniert einwandfrei.
Bye
Tom
Ähnliche Themen
bereich v. zellen in 1 leere zelle/zeile kopieren
dagra 19.03.2007 - 64 Hits -
Erste leere Zelle in einer Spalte suchen
Axel33 24.06.2007 - 139 Hits - 5 Antworten
VBA Acktive Spalte letzte Zelle finden
Marco79 19.09.2007 - 90 Hits - 3 Antworten
erste gefüllte Zelle in einer Spalte finden, ohne VBA
Saarbauer 07.02.2008 - 65 Hits - 1 Antwort
VBA - Bereich kopieren, für dessen 1. Zelle ein Name definiert wurde
jojow 13.05.2008 - 39 Hits -
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
