benötigen eine Funktion, die die erste vollständig leere Zeile (keine Werte, keine Formeln, keine Leerzeichen) aus einem Blatt mit wenig besiedelten Zellen zurückgibt. Keine einzelne Spalte muss ausgefüllt werden.erste vollständig leere Zeile auf einem Blatt finden
Ich habe versucht, aber ich kann es sogar zu kompilieren erhalten:
Public Donations As Worksheet
Set Donations = Sheets("Sheet2")
Function getEmptyRow() As Long
Dim lastCol As Long, lastRow As Long, maxRow As Long
Dim col As Long
Dim r As Variant
lastCol = Donations.Cells(1, Columns.Count).End(xlToLeft).Column
For col = 1 To lastCol Step 1
lastRow = Donations.Cells(Rows.Count, col).End(xlUp).row
maxRow = Application.WorksheetFunction.max(maxRow, lastRow)
Next col
getEmptyRow = maxRow + 1
End Function
Was bin ich? Der What-Parameter der Suchfunktion ist das Zeichen '*' - chr (42), wenn wir nach einer leeren Zelle suchen. –
Wenn Sie unten beginnen und Zeile für Zeile für die erste bevölkerte Zelle nach oben arbeiten, fügen Sie der Zeilennummer 1 hinzu, um die erste leere Zeile zu erhalten. Dies ist nicht unbedingt dasselbe wie von oben zu arbeiten, um die erste leere Zeile zu finden, da es eine vollständig leere Zeile mit untergeordneten Zellen geben könnte. Der Titel deutet auf den letzteren hin, aber der Code des OP suchte nach dem ersten. – Jeeped