Zeilen kopieren und einfügen über Inputbox
22.01.2007 15:18:41
Frank
hab folgendes Makro im Forum gefunden:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim zeilenanzahl As Integer
zeilenanzahl = InputBox("Wieviel Zeilen?")
Range(ActiveCell, ActiveCell.Offset((zeilenanzahl - 1), 0)).EntireRow.Insert
Cancel = True
End Sub
jetzt mein Problem, kann man das Makro so modifizieren, dass die Formmeln der Zeile in welcher der Doppelklick ausgeführt wurde kopiert und in die eingefügten Zellen eingesetzt werden ?
Wenn das makro versehentlich ausgeführt wird und man auf abbrechen geht öffnet sich eine MSG Box "Laufzeitfehler 13" (Typen unverträglich)die nach dem Debuggmodus fragt, kann man das abschalten ?
Anzeige