Herbers Excel-Forum - das Archiv

löschen von code + steuerelement auf blatt

Bild

Betrifft: löschen von code + steuerelement auf blatt
von: andreas

Geschrieben am: 12.02.2005 19:19:14
Guten Abend,
wie kann ich den VBA-Code auf sämtlichen Blättern(80) meiner Mappe löschen?
Zusätzlich auch noch den Button auf dem Blatt?
Wäre nett, wenn mir jemand einen Tipp geben könnte.
Danke
Gruß Andi
Bild

Betrifft: AW: löschen von code + steuerelement auf blatt
von: Josef Ehrensberger
Geschrieben am: 12.02.2005 20:01:51
Hallo Andi!
Befinden sich ausser dem Button noch andere Shapes oder Steuerelemente
auf den Tabellenblättern?

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: AW: löschen von code + steuerelement auf blatt
von: Josef Ehrensberger

Geschrieben am: 12.02.2005 23:07:24
Hallo Andi!
Falls der Button das einzige Shape auf den Tabellen ist, dann zB. so.
Sub entferneCodeUndButton()
'entfernt aus allen Tabellenblättern einer Mappe
'den Code und löscht einen Button auf den Tabellen.
Dim wkb As Workbook
Dim wks As Worksheet
Set wkb = ThisWorkbook  'wenn Löschung in dieser Mappe!
'sonst Mappe angeben! zB.: Workbooks("mappe.xls")
On Error GoTo ERRORHANDLER
For Each wks In wkb.Worksheets
With wkb.VBProject.VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines 'Code aus Tabelle entfernen
End With
wks.Shapes(1).Delete          'Schaltfläche entfernen
Next
ERRORHANDLER:
If Err.Number <> 0 Then
If Err.Number = -2147024809 Then 'kein Shape auf Tabelle!
Err.Clear
Resume Next
Else                             'sonstige Fehler
MsgBox "Fehler:" & vbLf & vbLf & Err.Description, vbCritical, "FEHLER"
End If
End If
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: AW: löschen von code + steuerelement auf blatt
von: andi
Geschrieben am: 13.02.2005 09:09:20
Hi Sepp,
vielen Dank für deine Hilfe! War genau das, was ich gesucht habe.
Gruß Andi
 Bild
Excel-Beispiele zum Thema "löschen von code + steuerelement auf blatt"
In einem MultiPage-Steuerelement blättern Aus einem Kalender-Steuerelement Datum und Zeit auswählen
Über UserForm-RefEdit-Steuerelement Bereich auswählen Einlesen von Arbeitsmappen in ein TreeView-Steuerelement
Blatt ohne Code, Steuerelement und Formeln speichern Abspielen einer AVI-Datei in einem UserForm-Steuerelement
UserForm mit Kalendersteuerelement immer mit aktuellem Datum Steuerelemente aus Tabellenblatt löschen
Steuerelementwechsel bei Eingaben Kalendersteuerelement an Tabellenblattwerte binden