mit welcher funktion erfrage ich die koordinaten der letzten belegten zelle einer spalte?
danke
hier die Anweisung für die Spalte A: LetzteZelle = Range("A65536").End(xlUp).Row
Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA Seite
Sub endzeile_MM_ermitteln()
'ermitteln der letzten Zeile
z = 2
Do Until Cells(z, 1) = ""
If z = 9996 Then
MsgBox ("Diese Datei hat kein Ende und ist viel zu groß um bearbeitet zu werden. Machen Sie lieber Feierabend! ")
GoTo beenden
End If
z = z + 1
Loop
Endezeile = z - 1
beenden:
MsgBox ("Die letzte beschriebene Zeile ist die: " & Endezeile & ".")
End Sub
Gruß Martin
schaue mich gerade auf deiner seite um, sehr interessant!
gruß, Julia
Sub endzeile_MM_ermitteln()
'ermitteln der letzten Zeile
z = 2
Do Until Cells(z, 1) = ""
If z = 9996 Then
MsgBox ("Diese Datei hat kein Ende und ist viel zu groß um bearbeitet zu werden. Machen Sie lieber Feierabend! ")
GoTo beenden
End If
z = z + 1
Loop
Endezeile = z - 1
MsgBox ("Die letzte Zeile ist die: " & Endezeile & ".")
beenden:
End Sub
gruß Martin
für Spalte A:
{=ADRESSE(MAX(WENN(A1:A100<>"";ZEILE(1:100)));1)}
ARRAY-Formel {=geschweifte Klammern} nicht eingeben;
Abschluß der Formel mit gleichzeitig Strg / Shift / Enter; - das erzeugt sie.
trapp, trapp, trapp, trapp, trapp, brrrrr
WF
http://www.excelformeln.de/
die ultimative Formelseite
zwei Fragen. Wenn es in der Splate Leerzellen gibt liefert das Makro dann nicht ein falsches Ergebnis? Und warum ist deine Suche schon bei Zeile 9996 am Ende? Ecxel hat doch mögliche 65536 Zeilen.
Kleiner Hinweis noch, der das unnötige GoTo vermeidet. Schreibe statt der Sprunganweisung einfach direkt die MessageBox gefolgt von der Zeile Exit Sub.
Gruß
Peter
danke und gruß Martin