Letzte Zelle einer Spalte als Variable einsetzen
06.11.2007 10:31:00
Burghard
habe mal wieder ein Problem. Ich möchte die letzte Zelle der Spalte D einer Tabelle, beispielsweise "D28" auslesen lassen.
Da ich mehrere Tabellen mit unterschiedliche Länge (der Spalte D) habe, möchte ich eine Variable statt "D28" einsetzen.
Beispiel:
Sub AnzahlB()
Dim intZeilenanzahl%
intZeilenanzahl = 0
intZeilenanzahl = ActiveSheet.cells(Rows.Count, 1).End(xlUp).Row
cells(intZeilenanzahl + 2, 4).Activate
ActiveCell = "= Besteller($D$1:D28)"
End Sub
Der Code funktioniert (bezieht sich auf eine Function), allerdings weiß ich nicht, wie ich "D28" durch eine Variable, die die letzte Zelle in Spalte D feststellt, ersetzen kann.
Hilfe wäre nett. Vielen Dank im voraus.
Gruß
Burghard
Anzeige