Variables Macro

Question

Hallo zusammen,

ich hab da ein kleines Problem:

Range("f3").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""",""D"",RC[-1])"
LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range("f3").Select
Selection.AutoFill Destination:=Range("f3:f" & LetzteZeile), Type:=xlFillDefault

Das wäre soweit der Code, funktioniert sehr schön. Geht in die Zelle Kopiert den Inhalt runter bis zur letzten gefüllten.

Jetzt würde ich das gerne etwas allgemeiner halten. Also das Makro über Schaltfläche starten. Jetzt zum Problem:

Wie kann ich eine Inputbox einbauen in die ich die Zelle eingeben kann die quasie "Start-Punkt" ist......ich stehe auf dem Schlauch.

Danke für eure Hilfe

Answer 1

Hallo,

ein einfaches Beispiel, in dem die Startzeile für Spalte F abgefragt wird:

Sub kopieren()

sz = "f" & InputBox("Bitte geben Sie die Nummer der Startzelle ein!", "Eingabe")

Range(sz).FormulaR1C1 = "=IF(RC[-1]="""",""D"",RC[-1])"
LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range(sz).AutoFill Destination:=Range(sz & ":f" & LetzteZeile), Type:=xlFillDefault


End Sub

Gruß

M.O.