Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Erste leere Zelle in Spalte per Button anspringen

Erste leere Zelle in Spalte per Button anspringen
10.09.2024 07:24:09
Bill
Hallo zusammen,

ich suche einen Befehl, um die erste leere Zelle in der Spalte B anzuspringen (in den anderen Spalten sind die Zellen zum Teil nicht leer).

Ich hab aktuell mit einem Button und Makro gearbeitet, dass ich so ähnlich hier im Forum gefunden habe:


Sub springen()
If Cells(Rows.Count, 2).End(xlUp).Row = 2 And Range("B1").Value = "" Then
Range("B1").Select
Else
Range("B" & Cells(Rows.Count, 2).End(xlUp).Row + 1).Select
End If
End Sub
Sub springen() If Cells(Rows.Count, 2).End(xlUp).Row = 2 And Range("B1").Value = "" Then Range("B1").Select Else Range("B" & Cells(Rows.Count, 2).End(xlUp).Row + 1).Select End If End Sub


Mit diesem Code springt er mir aber in die erste Zelle in Spalte B, in der auch alle anderen Zellen dieser Zeile leer sind. Beispieldatei kann ich leider nicht hochladen, weil zu groß mit 2,6 MB.

VG
Bill
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erste leere Zelle in Spalte per Button anspringen
10.09.2024 08:05:10
MCO
Moin!

Dieser Code funktioniert:

Sub erste_leere_test()

On Error Resume Next
Dim rng As Range
Set rng = Range("B:B").SpecialCells(xlCellTypeBlanks) 'sucht leere zellen im usedrange

If Not rng Is Nothing Then
Cells(rng.Row, rng.Column).Select 'innerhalb usedrange
Else
Range("B" & Cells(Rows.Count, 2).End(xlUp).Row + 1).Select 'ausserhalb used range
End If

End Sub


Gruß, MCO
Anzeige
AW: Erste leere Zelle in Spalte per Button anspringen
10.09.2024 09:11:09
daniel
HI
noch ne Methode:
with Columns(1) ' Spalte, in der das passiert, nur hier anpassen

if .Cells(1, 1).formula = "" then
.Cells(1, 1).Select
elseif .Cells(2, 1).formula = "" Then
.Cells(2, 1).Select
else
.Cells(1, 1).End(xldown).offset(1, 0).Select
end if
end with


Gruß Daniel
Anzeige
AW: Erste leere Zelle in Spalte per Button anspringen
10.09.2024 10:20:11
GerdL
Moin

Sub Wenn_in_Spalte_B_keine_Luecke_und_keine_Formeln()


Dim Zeile As Long

Zeile = WorksheetFunction.CountA(Columns("B")) + 1
Columns("B").Cells(Zeile).Select

End Sub

Gruß Gerd
AW: Erste leere Zelle in Spalte per Button anspringen
10.09.2024 08:55:07
Bill
Vielen Dank! Funktioniert einwandfrei, wenn wirklich alle Zellen der Spalte B belegt sind :)
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige