Ich muss die erste leere Zeile in einer Arbeitsmappe finden und Informationen in (Zeile, 1) und (Zeile, 2) schreiben. Ich glaube ich bin momentan ziemlich festgefahren ...
%Vor%Vielen Dank für jede Hilfe.
Wenn Sie die Zeilennummer nach der letzten verwendeten Zeile meinen, können Sie sie wie folgt finden:
%Vor%Wenn Sie eine Zeile meinen, die leer ist mit Daten danach ... wird es komplizierter.
Hier ist eine Funktion, die ich schrieb, die Ihnen die tatsächliche Zeilennummer der ersten Zeile geben wird, die für das bereitgestellte Arbeitsblatt leer ist.
%Vor% Verwendungsbeispiel: firstblankRow(thisworkbook.Sheets(1)) oder ein beliebiges Arbeitsblatt übergeben.
Edit: Wie ooo darauf hingewiesen hat, wird dies zu einem Fehler führen, wenn in Ihrem verwendeten Bereich keine leeren Zellen vorhanden sind.
Ich hätte es so gemacht. Kurz und gut:)
%Vor%Aktualisiert, um zu prüfen, ob die erste Zeile leer ist.
Bearbeiten: Aktualisieren, um zu prüfen, ob die gesamte Zeile leer ist
%Vor%Aktualisieren
Inspiriert von Daniels Code oben und der Tatsache, dass dies WEG ist! Interessanter für mich als die eigentliche Arbeit, die ich zu tun habe, habe ich eine hoffentlich voll proof-Funktion erstellt, um die erste leere Zeile in einem Blatt zu finden. Verbesserungen willkommen! Ansonsten geht das in meine Bibliothek :) Hoffentlich profitieren andere auch.
%Vor%Ursprüngliche Antwort
Um das erste Leerzeichen in einem Blatt zu finden, ersetzen Sie diesen Teil Ihres Codes:
%Vor%Mit diesem Code:
%Vor%Ich weiß, dass dies ein älterer Thread ist, aber ich musste eine Funktion schreiben, die die erste leere Zeile innerhalb eines Bereichs zurückgab. Der gesamte Code, den ich online gefunden habe, durchsucht tatsächlich die gesamte Zeile (auch die Zellen außerhalb des Bereichs) nach einer leeren Zeile. Daten in Bereichen außerhalb des Suchbereichs haben eine verwendete Zeile ausgelöst. Dies schien mir eine einfache Lösung zu sein:
%Vor%sehr alter thread aber .. ich suchte nach einem "einfacheren" ... einem kleineren code
Ich verstehe ehrlich keine der obigen Antworten: D - Ich bin ein Noob
aber das sollte die Arbeit machen. (für kleinere Blätter)
%Vor%liest jede Zelle in Spalte 1 von unten nach oben und stoppt bei der ersten leeren Zelle
%Vor%Dann kannst du deine Informationen so schreiben
%Vor%usw. ...
und dann erkenne ich einen vba thread ... lol
Funktion firstBlankRow () wie lange
Dim leerCells als Boolean
Ende Funktion