VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zeilen einfügen, Werte und Bezüge zu den Werten eintragen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopieren