VBA Hilfe Dialogfenster
22.03.2017 13:20:20
Christian
ich habe ein Excel-Blatt, das grundsätzlich gegen Eingaben über den Blattschutz gesperrt ist. Jetzt soll es aber möglich sein, Zeilen zu kopieren und einzufügen. Grundsätzlich lässt sich so etwas ja über ein Makro lösen. Habe ich auch gemacht:
'
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect Password:="PW"
Selection.EntireRow.Insert
Range("B10:AD10").Select
Selection.Copy
Range("B11").Select
ActiveSheet.Paste
Range("B11").Select
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
ActiveSheet.Protect Password:="PW"
'End Sub
Nun hätte ich gerne einen Button "Zeilen duplizieren". Das bekomme ich auch noch hin und kann den auch mit dem Makro verknüpfen. Nun mein Problem: eigentlich soll sich mit dem Butto nein kleines Eingabefenster öffnen, in dem der User mitteilt, welche Zeile er kopieren und darunter einfügen möchte. In diesem Fall Zeile 10 (Range"B10:AD10"). Hat da jemand eine Idee? Lieben Dank im Voraus. Christian