Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Alle Button, Option Button usw beim kopieren löschen
zurück: Zeilen tauschen, Formeln beibehalten und nur gefüllte Zellen weiter: Tabellenblatt von Makro ausschliessen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Nando
Einsteiger


Verfasst am:
06. Aug 2013, 00:17
Rufname:
Wohnort: San José, Costa Rica

Alle Button, Option Button usw beim kopieren löschen - Alle Button, Option Button usw beim kopieren löschen

Nach oben
       Version: Office 2010

Hola,
mit folgender Anweisung lösche ich meine Buttos beim kopieren des Sheets in eine andere Mappe.

ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Button 4")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Button 5")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Option Button 2")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Lst_Währung")).Select
Selection.Delete
WKB.Close SaveChanges:=True

Jetzt habe ich mir eine Art Kassensystem gebaut und es kommen noch 40 Button dazu. Wie kann ich per Makro alle Button auf einmal löschen?
Muchas gracias
Nando
Phelan XLPH
Fortgeschritten


Verfasst am:
06. Aug 2013, 00:45
Rufname: Phelan


AW: Alle Button, Option Button usw beim kopieren löschen - AW: Alle Button, Option Button usw beim kopieren löschen

Nach oben
       Version: Office 2010

Hallo,

versuch es hiermit...

Code:
Sub ButtonsEntfernen()
    Dim shp As Shape
   
    For Each shp In Tabelle1.Shapes
        If shp.Type = msoFormControl Then
            If shp.FormControlType = xlButtonControl Then
                shp.Delete
            End If
        End If
    Next
   
    Set shp = Nothing
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Nando
Einsteiger


Verfasst am:
06. Aug 2013, 14:40
Rufname:
Wohnort: San José, Costa Rica

AW: Alle Button, Option Button usw beim kopieren löschen - AW: Alle Button, Option Button usw beim kopieren löschen

Nach oben
       Version: Office 2010

Hallo Phelan,
das funktioniert leider nicht, was aber glaube ich mehr an meiner Beschreibung liegt.
Das zu kopierende Blatt hat immer einen anderen Namen(4 stellige Zahl) und wird unter dieser Zahl in Bezug auf das Datum in Zelle A3 in den dafür vorgesehenen Jahresordner (Abrechnung Gesamt 2013, Abrechnung Gesamt 2014 usw.) verschoben.
Danke dir für deine Mühe
Nando
Phelan XLPH
Fortgeschritten


Verfasst am:
06. Aug 2013, 18:03
Rufname: Phelan

AW: Alle Button, Option Button usw beim kopieren löschen - AW: Alle Button, Option Button usw beim kopieren löschen

Nach oben
       Version: Office 2010

Wie sieht der Kopiervorgang aus?
_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Nando
Einsteiger


Verfasst am:
06. Aug 2013, 19:02
Rufname:
Wohnort: San José, Costa Rica

AW: Alle Button, Option Button usw beim kopieren löschen - AW: Alle Button, Option Button usw beim kopieren löschen

Nach oben
       Version: Office 2010

Hallo Phelan,
das ist mein Makro.

Sub Active_Sheet_Copy_Neu()

Dim WKB As Workbook
Dim wks As Worksheet
Dim strDatei As String
Dim strFullname As String
Const Pfad As String = "C:\Users\test\"
Set wks = ActiveSheet

strDatei = Year(Trim$(wks.Range("A3").Text))
strFullname = Pfad & "Abrechnung Gesamt " & strDatei & ".xlsm"


Set WKB = Workbooks.Open(Filename:=strFullname)
wks.Copy After:=WKB.Worksheets(Sheets.Count)

'Formeln durch Werte ersetzen:
With ActiveSheet.UsedRange
.Value = .Value
End With

ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Button 4")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Button 5")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Option Button 2")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Lst_Währung")).Select
Selection.Delete
WKB.Close SaveChanges:=True


End Sub

Danke dir
Nando


Ps.: Und da muß ich irgendwie auch noch eine Abfrage hineinbekommen ob der Sheet in der Zieldatei schon existiert. Wenn NEIN dann einfügen wie bisher und wenn JA den Alten Sheet überschreiben oder entfernen und den neun einsetzen.
Aber eins nach dem anderen.
Isabelle :-)
Menschin


Verfasst am:
06. Aug 2013, 19:28
Rufname:
Wohnort: Westlicher Spiralarm der Galaxis

AW: Alle Button, Option Button usw beim kopieren löschen - AW: Alle Button, Option Button usw beim kopieren löschen

Nach oben
       Version: Office 2010

Hallöchen,

du musst doch nur Tabelle1 Phelan XLPH's durch ActiveSheet ersetzen.

_________________
LG Isi

Die Mitgliedschaft im Forum erhöht deine Chance auf eine Antwort von mir um 99,999%
Nando
Einsteiger


Verfasst am:
06. Aug 2013, 19:34
Rufname:
Wohnort: San José, Costa Rica

AW: Alle Button, Option Button usw beim kopieren löschen - AW: Alle Button, Option Button usw beim kopieren löschen

Nach oben
       Version: Office 2010

Hallo Isabelle, man mag es nicht glauben, aber das habe ich versucht. Es hat nicht geklappt. Versuche es aber nochmal, hab bestimmt irgendwas falsch gemacht.
Nando
Nando
Einsteiger


Verfasst am:
08. Aug 2013, 02:03
Rufname:
Wohnort: San José, Costa Rica


AW: Alle Button, Option Button usw beim kopieren löschen - AW: Alle Button, Option Button usw beim kopieren löschen

Nach oben
       Version: Office 2010

Hallo, habe mein Problem gelöst indem ich eine UserForm benutze. Jetzt brauche ich nur einen Button löschen und alles ist gut. Jetzt fehlt mir nur noch die Abfrage in meinem Makro. Habe viel probiert, schaffe es aber nicht. Hier nochmal meine Frage:
Wenn ich meine Tabelle (Name 4 stellige Nr. ;immer anders; steht in ZelleC3) in den Zielordner kopiere benötige ich eine Abfrage ob schon vorhanden oder nicht. Bei vorhanden, fragen nach ersetzen (ja, nein), wenn ja dann ersetzen, wenn nein gar nichts machen. Wenn die Tabelle noch nicht existiert so einfügen wie bisher. Hier nochmal das Makro:

Sub Active_Sheet_Copy_Neu()
ActiveSheet.Unprotect Password:="test" ' >>> Arbeitsblatt ist entsperrt
Dim WKB As Workbook
Dim wks As Worksheet
Dim strDatei As String
Dim strFullname As String
Const Pfad As String = "C:\Users\nando\Desktop\Bufete\Gesamt\"
Set wks = ActiveSheet

strDatei = Year(Trim$(wks.Range("A3").Text))
strFullname = Pfad & "Abrechnung Gesamt " & strDatei & ".xlsm"


Set WKB = Workbooks.Open(Filename:=strFullname)
wks.Copy After:=WKB.Worksheets(Sheets.Count)

'Formeln durch Werte ersetzen:
With ActiveSheet.UsedRange
.Value = .Value
End With

ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Delete

WKB.Close SaveChanges:=True

Set wks = Nothing
Set WKB = Nothing
ActiveSheet.Protect Password:="test" ' >>> Arbeitsblatt ist entsperrt
End Sub


Vielen Dank
Nando
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Excelliste ohne Leerzeilen in neues Arbeitsblatt kopieren! 1 8Ball 1994 02. Jun 2005, 14:42
mruettler Excelliste ohne Leerzeilen in neues Arbeitsblatt kopieren!
Keine neuen Beiträge Excel Formeln: Selbständiges Suchen einer Zelle und kopieren i andere Datei 2 Gerson 2322 19. Mai 2005, 04:48
Gerson Selbständiges Suchen einer Zelle und kopieren i andere Datei
Keine neuen Beiträge Excel Formeln: Formulartextfelderinhalt per Button in anderes Tabellenblatt 3 Blubberbernd 1232 10. Apr 2005, 10:49
fl618 Formulartextfelderinhalt per Button in anderes Tabellenblatt
Keine neuen Beiträge Excel Formeln: Wie kann man Nachkommastellen löschen ? 2 Benjamin22 8966 22. März 2005, 15:24
Benjamin22 Wie kann man Nachkommastellen löschen ?
Keine neuen Beiträge Excel Formeln: 2 Exel Spalten automatisch in eine kopieren 3 Steffen 2231 04. März 2005, 08:09
steffen 2 Exel Spalten automatisch in eine kopieren
Keine neuen Beiträge Excel Formeln: Text von Tabelle1 auch in Tabelle 2 kopieren 7 Pinguin1977 2848 30. Jan 2005, 16:56
Pinguin1977 Text von Tabelle1 auch in Tabelle 2 kopieren
Keine neuen Beiträge Excel Formeln: Einzelne Wörter löschen (ersetzen/formel) 2 Michi_wien 4587 29. Jan 2005, 12:33
Gast Einzelne Wörter löschen (ersetzen/formel)
Keine neuen Beiträge Excel Formeln: Zeilen mit doppelten Werten löschen 6 Sebowsky 1208 06. Jan 2005, 22:26
Sebowsky Zeilen mit doppelten Werten löschen
Keine neuen Beiträge Excel Formeln: Zellinhalte KOPIEREN 5 hilfloses Wesen 1732 23. Dez 2004, 13:42
Gast Zellinhalte KOPIEREN
Keine neuen Beiträge Excel Formeln: Doppelte Einträge aus Excel Tabellen löschen 3 Richkid 2831 09. Dez 2004, 15:45
Reinhard Doppelte Einträge aus Excel Tabellen löschen
Keine neuen Beiträge Excel Formeln: Formel mit "festem" Wert kopieren 2 sebbi 1937 08. Dez 2004, 20:36
sebbi Formel mit "festem" Wert kopieren
Keine neuen Beiträge Excel Formeln: Button erstellen 1 phil1982 1001 04. Nov 2004, 13:06
ae Button erstellen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA