Button u. Zellen vorm löschen schützen
13.02.2008 17:11:40
Wrobel
nach langem habe ich auch mal wieder ´ne Frage...
Wenn ich den u.g. Code ausführe, dann wird der Inhalt in K1 und die darunter stehende Schaltfläche mit der der u.g. Code ausgeführt wird gelöscht. Kann der u.g. Code nun so verändert werden, dass die Zelle K1 und die entsprechende Schaltfläche davon ausgenommen sind?
Bin für jede Hilfe dankbar!
Gruß
André
Code:
Sub Leerzeilen_löschen()
' alle Leerzeilen löschen
Dim LoI As Long
Dim RaZeile As Range
For LoI = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Rows(LoI).SpecialCells(xlCellTypeBlanks).Count = ActiveSheet.UsedRange.SpecialCells( _
xlCellTypeLastCell).Column Then
If RaZeile Is Nothing Then
Set RaZeile = Rows(LoI)
Else
Set RaZeile = Union(RaZeile, Rows(LoI))
End If
End If
Next LoI
RaZeile.Delete
Set RaZeile = Nothing
Range("A1:J6,H7:J300").Select
Range("H8").Activate
ActiveWindow.SmallScroll Down:=-312
Range("A1:J6,H7:J300,A7:A33,A7:A300").Select
Range("A8").Activate
ActiveWindow.SmallScroll Down:=-324
Selection.ClearContents
Range("B7:G300").Select
ActiveWindow.SmallScroll Down:=-291
Selection.Copy
Sheets("Datensatz-Artikel").Select
ActiveWindow.SmallScroll Down:=-21
Range("I17").Select
ActiveWindow.SmallScroll Down:=-33
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B2").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-39
Range("B2").Select
Sheets("Voreinstellung").Select
Range("D4").Select
Sheets("Rohdaten-BRZ").Select
Application.CutCopyMode = False
Sheets("Voreinstellung").Select
Range("D4").Select
End Sub