|
Hallo liebe Forumsmitglieder,
ich habe eine Excel für das Erfasse von neuen Aufträgen.
Diese möchte ich dann an die Produktion weitergeben.
In der Tabelle sind alle Formelzellen so geschützt, dass beim Anwählen der Blattschutz
einspringt. (Danke an Quelle: Excelbeispiele.de!)
Somit ist aber ein Kopieren/Aussschneiden und an andere Stelle verschieben von ganzen Zeilen
nicht möglich.
-----------------------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'Variable deklarieren
Dim Zelle As Range
'For/Each-Schleife zum Abfragen der Zellen
For Each Zelle In Target.Cells
'Wenn die durch die Schleife angesprochenen Zelle
'eine Formel enthält und die Variable "Zelleschutz_aus"
'gleich dem Wert 0, dann...
If Zelle.HasFormula And Zelleschutz_aus = 0 Then
'...Blattschutz aktivieren und...
ActiveSheet.Protect "GHMexcel1!?"
'...Prozedur beenden,...
Exit Sub
'...ansonsten...
Else
'Blattschutz aufheben
ActiveSheet.Unprotect "GHMexcel1!?"
'Abfrage Ende
End If
'Nächsten Schleifendurchlauf starten
Next Zelle
'Variable "Zelleschutz_aus" auf den Wert 0 setzen
Zelleschutz_aus = 0
End Sub
-------------------------------------------------------------
Ich möchte 3 Makros auf Buttons legen:
Makro 1: markierte ZEILEN kopieren (Blattschutz aufheben, alles kopieren, Blattschutz setzen)
Makro 2: markierte ZEILEN ausschnieden (Blattschutz aufheben, alles ausschneiden, Blattschutz setzen)
Makro 3: Zwischenablage oberhalb aktiver Zeile einfügen: (Blattschutz aufheben, neue Zeilen mit Anzahl Zeilen in zwischenablage schaffen, Inhalt komplett mit Formatierung einfügen, Zwischenablage leeren, Blatt schützen)
Es gibt eine ganze Menge Code im Netz aber ich bekomme den nicht ansatzweise so zusammen....
DANKE FÜR EURE HILFE!
Majo
|