Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Zeilen einfügen, Werte und Bezüge zu den Werten eintragen
Gruppe
Kopieren
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