Verwendung von Variablen in Formeln
21.12.2006 15:04:59
Variablen
Habe ein Problem, bei dem mir bisher noch niemand helfen konnte.
Wie kann ich in einem Makro innerhalb einer Formel / Zellbezug, den Benutzer über eine Inputbox den Geltungsbereich bestimmen lassen. Also also Beispiel, eine Formel steht in einer Zelle und soll, je nachdem wie es der Benutzer will, bis zu X Zellen kopiert werden.
Als Anhaltspunkt die beiliegende Formel! Hier soll das "n" in der dritten Zeile nach Cells (.... variabel gehalten werden.
Danke und ein schönes Weihnachtsfest!
Private Sub CommandButton1_Click()
Dim n As Range
Sheets("Tabelle1").Activate
Set n = Application.InputBox("Wählen Sie den Bereich bis wohin die Formel kopiert werden soll", Type:=8)
Range(n.Address).Select
Range(Cells(3, 1), Cells(n, 1)).Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A2").Select
Selection.Copy
Range(Cells(2, 1), Cells(n, 1)).Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
MsgBox "Formel ist kopiert!"
End Sub
Anzeige