Gruppe
Allgemein
Bereich
Kopieren
Thema
Zeilen einfügen, Werte und Bezüge zu den Werten eintragen
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?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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