Datum

Titel

25.04.2024 08:41:49

VBA: Probleme mit pdftk zum Zusammenfügen

25.04.2024 00:42:03

Listbox mit gefilterten Daten füllen

24.04.2024 20:38:58

Summe mit Bedingung, nur letzte Ergebnisse anzeigen

24.04.2024 19:29:30

Formel filter

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

464to468

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

die nächste leere Zelle auswählen

Forumthread: die nächste leere Zelle auswählen
8 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
Top 100 Forumthreads

03.08.2004 21:31:20

Hagepeter

Hallo,
ich möchte das beim öffnen einee Arbeitablattes sofort der Curser in die
nächste freie Zeile in der Spalte A Springt, so das ich nicht immer
herunterscrollen muss.

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: die nächste leere Zelle auswählen

Ramses
AW: die nächste leere Zelle auswählen

03.08.2004 21:56:28

Björn
AW: die nächste leere Zelle auswählen

Ramses
AW: die nächste leere Zelle auswählen

03.08.2004 22:09:29

Björn
Merci für die Info... m.T.

Ramses
AW: die nächste leere Zelle auswählen

K.Rola
Auf dich ist eben Verlass :-)) o.T.

Ramses
AW: die nächste leere Zelle auswählen

03.08.2004 22:15:18

Björn

AW: die nächste leere Zelle auswählen

Ramses

Hallo
Ohne Makro
"Ctrl"+"Pfeil nach unten"
ansonsten kannst du in der Recherche unter "Letzte Zelle" mal suchen.
Da sind ein paar tausend Einträge drin.
Gruss Rainer

AW: die nächste leere Zelle auswählen

03.08.2004 21:56:28

Björn

Hallo Hagepeter,
wenn du im VBA-Editor in "DieseArbeitsmappe" folgenden Code schreibst, dann wird ind der betreffenden Arbeitsmappe immer die von unten her gesehen erste freie Zelle in Spalte A aktiviert.


Private Sub Workbook_Open()
ActiveSheet.Cells(65536, 1).End(xlUp).Offset(-1 * Not IsEmpty(Cells(1, 1)), 0).Select
End Sub


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Cells(65536, 1).End(xlUp).Offset(-1 * Not IsEmpty(Cells(1, 1)), 0).Select
End Sub

Gruß
Björn

AW: die nächste leere Zelle auswählen

Ramses

Hallo Björn
Nur Interessehalber
Was bezweckt die Anweisung "Not isEmpty" ?
ActiveSheet.Cells(65536, 1).End(xlUp).Offset(1, 0).Select
Hat doch den gleichen Effekt,... oder habe ich was übersehen.
Gruss Rainer

AW: die nächste leere Zelle auswählen

03.08.2004 22:09:29

Björn

Hallo Rainer,
wenn das Blatt leer ist, wird sonst die zweite Zeile ausgewählt.
Gruß
Björn

Merci für die Info... m.T.

Ramses

Hallo Björn
dann erübrigt sich aber auch das scrollen *grins* ;-))
Gruss Rainer

AW: die nächste leere Zelle auswählen

K.Rola

Hallo,
und mein Lieblingseinwand, was wenn A65536 nicht leer ist?
Gruß K.Rola

Auf dich ist eben Verlass :-)) o.T.

Ramses

...

AW: die nächste leere Zelle auswählen

03.08.2004 22:15:18

Björn

Hallo Karola,
Fehler bei der Programmausführung, was sonst ;-).
Gruß und Dank
Björn
P.S.:
Für Hagepeter also eine verbesserte Version:


Private Sub Workbook_Open()
if IsEmpty Activesheet.cells(65536,1) then
ActiveSheet.Cells(65536, 1).End(xlUp).Offset(-1 * Not IsEmpty(Cells(1, 1)), 0).Select
else
ActiveSheet.cells(1,1).select
MsgBox "Keine freie Zeile mehr vorhanden"
end if
End Sub


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
if IsEmpty sh.cells(65536,1) then
Sh.Cells(65536, 1).End(xlUp).Offset(-1 * Not IsEmpty(Cells(1, 1)), 0).Select
else
Sh.cells(1,1).select
MsgBox "Keine freie Zeile mehr vorhanden"
end if
End Sub