Microsoft Excel

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