Datum

Titel

18.04.2024 21:09:11

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

18.04.2024 20:45:35

Worksheet_Activate für alle Sheets

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1412to1416

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

In die erste Leere Zelle der Spalte A

Forumthread: In die erste Leere Zelle der Spalte A
7 Beiträge zu diesem Forumthread
Anzeige
304 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

10.03.2015 19:58:30

Fritz_W

Hallo VBA-Kundige,
wie kann ich erreichen, dass beim Aktivieren eines Tabellenblatts automatisch in die erste leere Zelle der Spalte A markiert wird.
Für Eure Hilfe besten Dank im Voraus
Liebe Grüße
Fritz

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: In die erste Leere Zelle der Spalte A

11.03.2015 00:15:49

Klexy
AW: In die erste Leere Zelle der Spalte A

11.03.2015 00:38:47

Werner
AW: In die erste Leere Zelle der Spalte A

11.03.2015 00:46:40

Werner
AW: In die erste Leere Zelle der Spalte A

11.03.2015 09:40:49

Fritz_W
AW: Danke für die Rückmeldung owT

11.03.2015 12:18:07

Werner
AW: In die erste Leere Zelle der Spalte A

11.03.2015 09:39:35

Fritz_W
AW: In die erste Leere Zelle der Spalte A

16.03.2015 14:00:59

Klexy

AW: In die erste Leere Zelle der Spalte A

11.03.2015 00:15:49

Klexy

Ins VBA-Feld des entsprechenden Tabellenblattes reinkopieren:

Private Sub Worksheet_Activate()
Range("A1").End(xlDown).Offset(1, 0).Select
End Sub

AW: In die erste Leere Zelle der Spalte A

11.03.2015 00:38:47

Werner

Hallo Fritz,
den Code in die Tabelle für die du die Funktion haben willst

Private Sub Worksheet_Activate()
Dim erstefreieZelle As Long
erstefreieZelle = Worksheets(1).Range("A6500").End(xlUp).Row
Application.Goto Cells(erstefreieZelle + 1, 1), True
End Sub

Die erste freie Zelle in Spalte A wird ausgewählt und das Fenster wird nach oben gescrollt, so dass diese Zelle ganz oben steht.
Gruß Werner

AW: In die erste Leere Zelle der Spalte A

11.03.2015 00:46:40

Werner

Hallo Fritz,
natürlich so, du willst ja die erste freie Zelle von oben.

Private Sub Worksheet_Activate()
Dim erstefreieZelle As Long
erstefreieZelle = Worksheets(1).Range("A1").End(xlDown).Row
Application.Goto Cells(erstefreieZelle + 1, 1), True
End Sub

Werner

AW: In die erste Leere Zelle der Spalte A

11.03.2015 09:40:49

Fritz_W

Hallo Werner,
funktioniert, ganz herzlichen Dank.
Liebe Grüße
Fritz

AW: Danke für die Rückmeldung owT

11.03.2015 12:18:07

Werner

AW: In die erste Leere Zelle der Spalte A

11.03.2015 09:39:35

Fritz_W

Hallo,
vielen Dank für die Hilfe.
Anmerkung: Der Code bringt Fehlermeldung, wenn A1 leer ist, hat aber für mich im vorliegenden Fall keine Relevanz.
Liebe Grüße
Fritz

AW: In die erste Leere Zelle der Spalte A

16.03.2015 14:00:59

Klexy

Sollte in dem Fall nur ein falsches Ergebnis bringen, nämlich die zweite befüllte Zelle statt der ersten leeren Zelle in der Spalte, aber keine Fehlermeldung.
Welche Fehlermeldung kommt bei dir?