Bestimmte Anzahl von Zellen einfügen
17.10.2014 10:18:49
Klaus Weiß
Hallo,
ich habe eine sehr große Tabelle, in die ich eine bestimmte Anzahl von Zeilen für die weitere Bearbeitung einfügen muss. Bislang habe ich mit folgender Anweisung (mühsam)gearbeitet:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim zeilenanzahl As Integer
zeilenanzahl = ActiveCell
Range(ActiveCell, ActiveCell.Offset((zeilenanzahl - 1), 0)).EntireRow.Insert
Cancel = True
End Sub
Ich möchte nun z.B. Spalte G durchsuchen lassen und Reihen entsprechend der ausgelesenen Zahl einfügen lassen.
Für eine Hilfestellung wäre ich sehr dankbar.
Danke Klaus