Gruppe
Allgemein
Problem
Wie kann ich am Tabellenanfang von 2 Tabellen eine durch InputBox ermittelte Anzahl von Zeilen einfügen, in der einen Tabelle Werte und in der anderen Bezüge zu den Werten eintragen?
StandardModule: basMain
Sub ZeilenFormelnEinfuegen()
Dim var As Variant
Dim iRow As Integer
Application.ScreenUpdating = False
var = InputBox("Anzahl der Zeilen:", , 3)
If var = "" Then Exit Sub
Rows("1:" & var).Insert
Worksheets("Tabelle2").Rows("1:" & var).Insert
For iRow = 1 To var
Worksheets("Tabelle2").Cells(iRow, 1).Value = iRow
Cells(iRow, 1).Formula = "=Tabelle2!" & _
Cells(iRow, 1).Address
Next iRow
End Sub