die 3 letzten Zeilen im TB finden
Reinhardt
Folgende Ziele erreiche ich mit der u.a. Sub:
* Ab F23 sollen Nullen bis zur letzten, nichtleeren Zeile geschrieben werden.
* Die letzte und vorletzte Zeile soll dann aber in Spalte F eine 1 bekommen.
Sub NullAuffüllen()
' Spalte Anzahl mit Nullen füllen
Range("F23").Select
ActiveCell.FormulaR1C1 = "0"
Selection.AutoFill Destination:=Range("F23:F331"), Type:=xlFillDefault
Range("F332").Select
ActiveCell.FormulaR1C1 = "1"
Range("F333").Select
ActiveCell.FormulaR1C1 = "1"
Range("F23").Select
End Sub
Mein Poblem:
Wenn ich eine Zeile lösche oder ergänze darf ich die
Sub immer umschreiben, weil ich folgendes Problem nicht lösen kann:
Der letzten Eintrag der Tabelle steht bei mir immer in Spalte B.
Durch den Befehl Range("B65536").End(xlUp).Activate kann ich da zwar mit dem Cursor "hinhüpfen" aber ich kriege es nicht so zusammen das ich
die oben genannten Ziele in der Spalte F erreiche.
Wer kann helfen?
Dank im voraus und Gruß Reinhardt.