Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
In Freie Zelle springen
342 views
Skip to first unread message
Christoph Kost
Nov 22, 2021, 5:48:43 AM11/22/21
to
Hallo zusammen,
ich möchte das beim klicken eines Commandbutton immer in die nächste freie Zelle in Spalte B gesprungen wird. Das ganz soll aber erst ab Zeile 5 geschehen.
Den Befehl habe ich schon:
With ActiveSheet
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2).Activate
End With
Der Befehl funktioniert soweit. Nur fängt er leider nicht in Zeile 5 an.
Was fehlt an diesem Befehl noch?
Vielen Dank im Voraus
Gruß Christoph
ich möchte das beim klicken eines Commandbutton immer in die nächste freie Zelle in Spalte B gesprungen wird. Das ganz soll aber erst ab Zeile 5 geschehen.
Den Befehl habe ich schon:
With ActiveSheet
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2).Activate
End With
Der Befehl funktioniert soweit. Nur fängt er leider nicht in Zeile 5 an.
Was fehlt an diesem Befehl noch?
Vielen Dank im Voraus
Gruß Christoph
Carlos Naplos
Nov 22, 2021, 11:28:58 AM11/22/21
to
Hallo Christoph
Wähle statt ActiveSheet einen passenden Bereich!
Sub test()
Dim rg As Range
Set rg = Range(Cells(5, 2), Cells(Rows.Count, 2))
With rg
.Cells(.Cells(.Rows.Count).End(xlUp).Row + 1).Activate
End With
End Sub
Das "ActiveSheet." kann weggelassen werden:
https://docs.microsoft.com/de-de/office/vba/api/excel.worksheet.range
https://docs.microsoft.com/de-de/office/vba/api/excel.worksheet.cells
Gruß CN
Wähle statt ActiveSheet einen passenden Bereich!
Sub test()
Dim rg As Range
Set rg = Range(Cells(5, 2), Cells(Rows.Count, 2))
With rg
.Cells(.Cells(.Rows.Count).End(xlUp).Row + 1).Activate
End With
End Sub
Das "ActiveSheet." kann weggelassen werden:
https://docs.microsoft.com/de-de/office/vba/api/excel.worksheet.range
https://docs.microsoft.com/de-de/office/vba/api/excel.worksheet.cells
Gruß CN
Christoph Kost
Nov 23, 2021, 1:55:31 AM11/23/21
to
im Grund ist das das was ich suche.
Nur ist bei deinem Befehl so das immer um 5 Zeilen weiter gesprungen wird und in Zeile 6 gestartet wird.
Gruß Christoph
Carlos Naplos
Nov 23, 2021, 6:21:01 AM11/23/21
to
Genau! Sowohl Dein als auch mein Algorithmus finden die erste freie
Zelle von unten. Meiner lässt die ersten fünf Zeilen beim Suchen weg.
Wenn das nicht ganz das ist, was Du möchtest, was möchtest Du?
lg CN
Zelle von unten. Meiner lässt die ersten fünf Zeilen beim Suchen weg.
Wenn das nicht ganz das ist, was Du möchtest, was möchtest Du?
lg CN
Christoph Kost
Nov 23, 2021, 7:04:39 AM11/23/21
to
ich möchte das beim anklicken des Buttons in die nächste freie Zeile in Spalte B gesrungen wird. Es sollen aber erst ab Zeile 5 passieren, dann aber jede freie Zelle.
Bei deinem Befehl lässt er immer 5 Zeilen frei.
Gruß Christoph
Claus Busch
Nov 23, 2021, 7:11:42 AM11/23/21
to
Hallo Christoph,
> ich möchte das beim anklicken des Buttons in die nächste freie Zeile in Spalte B gesrungen wird. Es sollen aber erst ab Zeile 5 passieren, dann aber jede freie Zelle.
> Bei deinem Befehl lässt er immer 5 Zeilen frei.
probiere es mit:
Sub test()
Dim lRow As Long
lRow = Cells(Rows.Count, 2).End(xlUp).Row
If lRow > 5 Then
Cells(lRow + 1, 2).Activate
End If
End Sub
Mit freundlichen Grüßen
Claus
--
Windows10
Microsoft 365 for business
> ich möchte das beim anklicken des Buttons in die nächste freie Zeile in Spalte B gesrungen wird. Es sollen aber erst ab Zeile 5 passieren, dann aber jede freie Zelle.
> Bei deinem Befehl lässt er immer 5 Zeilen frei.
Sub test()
Dim lRow As Long
lRow = Cells(Rows.Count, 2).End(xlUp).Row
If lRow > 5 Then
Cells(lRow + 1, 2).Activate
End If
End Sub
Mit freundlichen Grüßen
Claus
--
Windows10
Microsoft 365 for business
0 new messages