Excel VBA Letzte Zeile Das Auffinden der letzten Zeile in einer Spalte ist ein wichtiger Aspekt beim Schreiben und Dynamisieren von Makros. Da wir es nicht vorziehen, die Zellbereiche von Zeit zu Zeit zu aktualisieren, wenn wir mit Excel-Zellreferenzen arbeiten. Als Programmierer / Entwickler würden Sie es immer vorziehen, einen dynamischen Code zu schreiben, der für alle Daten verwendet werden kann und Ihren Anforderungen genügt. Darüber hinaus wäre es immer gut, wenn Sie die letzte bekannte Zeile Ihrer Daten hätten, damit Sie den Code dynamisch gemäß Ihren Anforderungen ändern können. Ich möchte nur ein Beispiel hervorheben, das die Bedeutung von dynamischem Code wiederholt. Angenommen, ich habe die unten angegebenen Daten mit Mitarbeitern und deren Gehältern. VBA in Excel - Letzte beschriebene Zeile selektieren - Visual Basic for Applications (VBA) - VB-Paradise 2.0 – Die große Visual-Basic- und .NET-Community. Und sehen Sie sich den unten angegebenen Code an: Code: Sub Example1 () Range ("D2"). Value = (Range ("B2: B11")) End Sub Hier gibt dieser Code die Summe der Gehälter für alle Mitarbeiter (Zelle B2: B11) in Zelle D2 aus. Siehe das Bild unten: Was ist, wenn ich diesen Daten einige Zellen hinzufüge und diesen Code erneut ausführe?
Eine leere Zelle mit einer Formatierung hingegen nicht. Hilft dir diese Antwort weiter? VG Santa Du kannst hilfreiche Beiträge bewerten (Symbol unten links) 16. 2015, 07:53 # 4 Threadstarter Hallo Ralf, ich will die letzte gefüllte Zelle in Spalte A anfahren - egal, was wo in welchen anderen Spalten steht. Danke, Santa. Aber der Code tut bei mir nix. Hm. Es gibt mir in der Box nur die Info, welches die letzte gefüllte Zelle in Spalte A ist. Ich will aber einen select dorthin, keine Indobox. Letzte benutzte Zellen, Zeilen, Spalten finden. 16. 2015, 07:58 # 5 Registrierung: 16. 2015 ungetestet Cells(Worksheets("Tabelle1")(Worksheets("Tabelle1"), 1)(xlUp), 1) Geändert von lupo1 (16. 2015 um 08:00 Uhr). 16. 2015, 08:01 # 6 Fantastisch, Lupo1!!!! Das wars. 1000 Dank allen fürs Mitdenken..... Bin wieder mal total begeistert. 16. 2015, 08:03 # 7 Zitat: von AchimSKI meine Gegenfrage ist dann, warum du die Zelle selektieren willst. Wenn du aus dieser Zelle einen Wert auslesen willst, oder in die letzte Zelle einen Wert schreiben willst, oder ähnliches, dann solltest du die Zelle nicht selektieren.
Eine beliebte Anwendung ist das "Ziehen" von Daten aus einer anderen Datei, die Excel dann automatisch an das Ende einer bestehenden Tabelle anfügen soll. Um automatisch das Ende der bestehenden Liste zu finden, helfen die folgendne beiden Befehle. Sub letzte_Zeile_Test() 'finden der letzten zeile in Spalte A letztezeile = (, 1)(xlUp) MsgBox letztezeile End Sub Sub letzte_Spalte_Test() 'finden der letzten Spalte in Zeile 1 letztespalte = Sheets(1)(1, 256)(xlToLeft) MsgBox letztespalte End Sub
Da dieser Wert in der Zeile2 offensichtlich nicht existiert und der Parameter vergleichstyp auf 1 (kleiner oder gleich verweis_wert) gesetzt ist, gibt die VERGLEICH-Funktion die Position der letzten "geprüften" Zelle im Array zurück, d. die Anzahl der Zellen, die mit Daten im Bereich B2:XFD2 gefüllt sind (XFD ist die allerletzte Spalte in den neueren Versionen von Excel). Excel vba letzte zeile in tabelle. Die Funktion RSCHIEBEN Dann verwenden wir die RSCHIEBEN-Funktion, um den Wert dieser Zelle zu erhalten, deren Position von der VERGLEICH-Funktion zurückgegeben wurde. RSCHIEBEN(B2;0;C4-1)
SpecialCells (xlCellTypeLastCell) End Sub Diese Funktion SpecialCells wählt die letzte Zelle aus Ihrem Excel aus, während sie in Klammern angegeben ist ( xlCellTypeLastCell ermöglicht die Auswahl der letzten nicht leeren Zelle aus Ihrem Excel- Arbeitsblatt). Schritt 5: Verwenden Sie jetzt ROW, um die letzte Zeile von Ihrem Excel-Arbeitsblatt abzurufen. Code: Sub Example3 () Dim Last_Row As Long Last_Row = Range ("A: A"). SpecialCells (xlCellTypeLastCell) End Sub Dadurch wird die letzte nicht leere Zeile von Ihrem Excel zurückgegeben. Schritt 6: Weisen Sie diesen Wert von Last_Row nun MsgBox zu, damit die letzte nicht leere Zeilennummer im Meldungsfeld angezeigt wird. 3 besten Wege Letzte nicht leere Zeile und Spalte VBA finden - office-skill. SpecialCells (xlCellTypeLastCell) MsgBox Last_Row End Sub Schritt 7: Führen Sie den Code aus, indem Sie die Taste F5 oder Ausführen oben links drücken. Ausgabe: Sie können sehen, dass die letzte nicht leere Zellennummer mit Bezug auf die Spalte A durch MsgBox ausgegeben wird. Weil wir die Spalte A unter Range-Funktion beim Definieren der Variablenformel erwähnt haben.