Einträge in mehreren Tabellen löschen
30.01.2005 06:49:03
Werner
Ich lösche in einer geschützten Tabelle freie Zellen bzw. mehrere Textfelder mit nachstehendem Makro. Gleiches möchte ich in den drei weiteren Tabellenblättern mit anderen Textfeldbezügen tun.
Kann man von einem einzigen Button in Tabelle 1 aus, die Einträge der anderen Tabellen mit löschen?
Ich dachte so nach der Art wie Makros nacheinander ablaufen lassen wenn sie im Modul stehen.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Text Box 1").Select
Selection.Characters.Text = ""
Range("A1").Select
Dim c As Range, ber As Range
Set ber = ActiveSheet.[a1:k60]
For Each c In ber
If c.Locked = False Then
c = ""
End If
Next
End Sub
Anzeige