Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code+Button auf Blatt löschen per VBA

Code+Button auf Blatt löschen per VBA
18.02.2005 08:22:26
andreas
Guten Morgen,
möchte den Code und den Button auf meinem Tabellenblatt löschen, da ich es in eine andere Mappe verschiebe. Wie geht das per VBA?
Gruß und danke für jede Hilfe
Andi

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code+Button auf Blatt löschen per VBA
18.02.2005 09:02:27
andreas
Hi,
habe folgendes Makro gefunden:

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

Wie kann ich es anpassen, dass es nur für ein Blatt gilt?
Gruß Andi
Anzeige
AW: Code+Button auf Blatt löschen per VBA
18.02.2005 09:18:10
Harald
Moin Andi,
probiers mal so. (Mit aktivem Tabellenblatt)

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")
Set wks = ActiveSheet  ' oder Blattname angeben
On Error GoTo ERRORHANDLER
With wkb.VBProject.VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines 'Code aus Tabelle entfernen
End With
wks.Shapes(1).Delete          'Schaltfläche entfernen
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ß
Harald
Anzeige
AW: Code+Button auf Blatt löschen per VBA
18.02.2005 09:20:00
Josef
Hallo Andi!
Vorausgesetzt der Button ist das einzige Shape auf der Tabelle, so.

Sub entferneCodeUndButton()
Dim wks As Worksheet
Set wks = Sheets("Tabelle1") 'Tabellenname hier anpassen
On Error GoTo ERRORHANDLER
With ThisWorkbook.VBProject.VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines 'Code aus Tabelle entfernen
End With
wks.Shapes(1).Delete          'Schaltfläche entfernen
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!
Anzeige
AW: Code+Button auf Blatt löschen per VBA
18.02.2005 09:23:56
andreas
Hi,
auf dem Blatt sind 2 Buttons. Kann ich dann schreiben: wks.Shapes(2).Delete?
Danke für eure Hilfe!
Gruß Andi
AW: Code+Button auf Blatt löschen per VBA
18.02.2005 09:28:42
Josef
Hallo Andreas!
Entweder alle Shapes angeben, oder flexibler mit einer Schleife.

Sub entferneCodeUndButton()
Dim wks As Worksheet
Dim shp As Shape
Set wks = Sheets("Tabelle1") 'Tabellenname hier anpassen
On Error GoTo ERRORHANDLER
With ThisWorkbook.VBProject.VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines 'Code aus Tabelle entfernen
End With
For Each shp In wks.Shapes
shp.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!
Anzeige
AW: Code+Button auf Blatt löschen per VBA
18.02.2005 09:50:39
andreas
Hi,
brauche immer das aktive Blatt. Oder besser gesagt: KW1-KW52 werden eingefügt. Kann man schreiben: KW &*? Habe das mal mit dem aktiven Blatt probiert, leier ohne Erfolg:

Sub entferneCodeUndButton()
Dim wks As Worksheet
Dim shp As Shape
Set wks = ActiveSheet 'Sheets("Tabelle1") 'Tabellenname hier anpassen
On Error GoTo ERRORHANDLER
With ThisWorkbook.VBProject.VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines 'Code aus Tabelle entfernen
End With
For Each shp In wks.Shapes
shp.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


Fehlermeldung: Index außerhalb des gültigen Bereichs...
Was muss ich anders machen?
Vielen Dank für deine super Hilfe, ich hoffe du hilfts mir nochmals...
Gruß Andi
Anzeige
danke, geschlossen
18.02.2005 09:54:38
andreas
Habe es noch selber rausgefunden. Vielen Dank.

82 Forumthreads zu ähnlichen Themen

Button in B1 passen einfügen? VBA
Tom

Hi,
ich will einfach per VBA ein Button der auf eine Makro verlinkt ist, in das aktive Tabellenblatt einsetzt und zwar genau passend in die Zelle B1.
Kann mir da vll. einer den Code dafür sagen mit dem Makrorekorder muss ich das passend ziehen das gefällt mir nicht so.
mfg Tom
...
14.08.2008 16:34:00
Thread-ID: 1001915
2 Beiträge
Anzeige
Button mit Filterfunktion erstellen! aber wie ?
Richi

Hallo Zusammen,
wie kann man im Excel ein Button erstellen, das wenn man drauf klickt, ein Bestimter Filter ausgeführt wird ?
06.02.2009 09:35:00
Thread-ID: 1047622
2 Beiträge
Makro mit Button aufrufen
Joni

Hi,
ich möchte mit
Private Sub Buchungen_einfügen_Click() Call Buchungen_einfügen End Sub das Makro Buchungen einfügen aufrufen (wenn auf den Button geklickt wird). Da kriege ich die Meldung Prozedur statt Variale erwartet.
Kann mir jemand helfen warum das nicht funktioniert?
D...
17.11.2009 13:36:53
Thread-ID: 1117967
6 Beiträge
Anzeige
Buttons in Druckvorschau per VBA umbenennen
Aljerter

ich benutze die Druckvorschau als Voranzeige einer Excel-Tabelle, die im Laufe eines VBA Programms in eine andere Tabelle kopiert werden soll.
Ich möcht deshalb die Buttons "Drucken" und "Schließen" vor der Anzeige der Druckvorschau per VBA umbenennen in
"Daten übernehmen" an Stelle "D...
12.04.2010 15:19:40
Thread-ID: 1151228
2 Beiträge
Makro mit Button starten in gleicher Mappe (Sheet)
chris

Hallo und guten morgen an alle,
könnt ihr mir bitte helfen `?
ich habe eine Datei.In dieser Datei gibt es Module und Formulare und zwei Sheets.
ich kopiere mit dem makro das Sheet in eine neue Mappe speichere und schliese diese.
In dem Sheet ist in der Quelldatei ein Makro.
...
21.06.2010 08:36:26
Thread-ID: 1163028
7 Beiträge
Optionsbutton LinkedCell mit VBA zuweisen
Peter.H

Hallo zusammen
die Art wie ich die LinkedCell zuweise funktioniert nicht...
Wie muss ich das richtig zuweisen?
Option Explicit
Const iCol_1 As Integer = 1 + 1 Sub Opt() Dim i As Integer With Tabelle1 For i = 2 To 10 .OLEObjects.Add(ClassType:="Forms.OptionButton.1", _ Left:=.Ce...
20.07.2010 23:23:13
Thread-ID: 1167978
3 Beiträge
Makro mit Button
Ralf

Hallo Excel - Experten,wie kann ich Makrosymbole (z.B. das Smiley) mit einem
bestimmten Makro hinterlegen, aber so dass das Makro
immer da ist.
Ich habe gerade in einer Excel Datei ein Makro geschrieben und
es einem Smiley zugeordnet. Wenn ich jetzt den Smiley button
drücke, öf...
30.04.2002 16:48:18
Thread-ID: 117521
3 Beiträge
Makro Messberichte erstellen mittels UsreForm
Alex

Hallo Excelexperten,
ich habe mir eine Exceldatei für die Übersicht aller Messdaten eines Bauteiles erstellt.
Die Eingabe der einzelnen Werte in die Übersicht ist kein Problem da dies direkt aus der Ausgabedatei der 3D-Messmaschine mittels CopyPast erledigen werden kann. Ab und an bzw....
08.10.2010 00:45:47
Thread-ID: 1181355
4 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
12
1
5
8
1
6
2
2
3
3
4
2
2
4
3
10
5
13
2
2
24
2
2
4