Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1504to1508
1504to1508
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Buttons löschen in 12 Tabellen

Forumthread: Buttons löschen in 12 Tabellen

Buttons löschen in 12 Tabellen
14.07.2016 13:18:01
Dieter(Drummer)
Guten Tag,
hier ist mein Makro, dass in 12 Monatstabellen jeweils 2 Buttons löscht und es funktioniert. Das Makro kann bestimmt kürzer sein, nur weiß ich nicht wie.
Mit der Bitte um Hilfe.
Gruß, Dieter(Drummer)
  • Option Explicit 
    Sub ButtonsRaus()
Sheets("Jan").Shapes.Range(Array("Oval 1", "Oval 2")).Delete
Sheets("Feb").Shapes.Range(Array("Oval 1", "Oval 2")).Delete
Sheets("Mrz").Shapes.Range(Array("Oval 1", "Oval 2")).Delete
Sheets("Apr").Shapes.Range(Array("Oval 1", "Oval 2")).Delete
Sheets("Mai").Shapes.Range(Array("Oval 1", "Oval 2")).Delete
Sheets("Jun").Shapes.Range(Array("Oval 1", "Oval 2")).Delete
Sheets("Jul").Shapes.Range(Array("Oval 1", "Oval 2")).Delete
Sheets("Aug").Shapes.Range(Array("Oval 1", "Oval 2")).Delete
Sheets("Sep").Shapes.Range(Array("Oval 1", "Oval 2")).Delete
Sheets("Okt").Shapes.Range(Array("Oval 1", "Oval 2")).Delete
Sheets("Nov").Shapes.Range(Array("Oval 1", "Oval 2")).Delete
Sheets("Dez").Shapes.Range(Array("Oval 1", "Oval 2")).Delete
MsgBox ("In Monatstabellen sind die Buttons entfernt")
End Sub


    • Anzeige

    6
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Buttons löschen in 12 Tabellen
    14.07.2016 13:28:00
    Bernd
    Hi,
    bin kein VBA Profi, aber hast Du das schon probiert:
    Sheets("Jan",“Feb“,“Mrz“) usw.
    Sollte ich hier aufgrund meiner fehlenden VBA kentnisse falsch liegen bitte ich schon vorab um Entschuldigung :-)
    Lasse es deshalb auch auf offen.
    lg Bernd

    AW: Danke Bernd, aber ...
    14.07.2016 13:43:23
    Dieter(Drummer)
    ... damit komme ich mit meinem Wissensstand nicht weiter.
    Dennoch Danke für deine Hilfe.
    Gruß, Dieter(DRummer)

    Anzeige
    AW: Buttons löschen in 12 Tabellen
    14.07.2016 13:28:52
    baschti007
    Guck mal so ich hab es nicht getestet.
    Sub ButtonsRaus()
Dim Mon
Dim x As Long
Mon = Array("Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dez")
For x = 0 To UBound(Mon)
Sheets(Mon(x)).Shapes.Range(Array("Oval 1", "Oval 2")).Delete
Next x
MsgBox ("In Monatstabellen sind die Buttons entfernt")
End Sub

    Anzeige
    AW: Danke baschti007, funktioniert pefekt ...
    14.07.2016 13:45:59
    Dieter(Drummer)
    Danek für deine Hilfe und nich einen schönen Tag.
    Gruß, Dieter(Drummer)

    Habe ich ja doch schon was gelernt in einem Jahr=)
    14.07.2016 13:48:23
    baschti007

    ;

    Forumthreads zu verwandten Themen

    2 Tabellen verbinden ->zeilenweiser Mengenabgleich
    Mike

    Hallo erstmal,
    als begeisterter Forumsleser habe ich schon viele Tage hier verbracht. Jetzt traue ich mich einmal hinein und hoffe auf Eure Hilfe.
    Ich habe 2 laaange Tabellen. In Tabelle1 stehen (neben anderen Daten)
    Teilenummer, Auftragsnummer, (Lieferwoche) und Stück und in Tabel...
    16.10.2008 11:37:00
    Thread-ID: 1016808
    8 Beiträge
    Anzeige
    RowSource über 2 Tabellen -VBA
    Wolfgang

    Hallo,
    mit cbbKriterium1.RowSource = "Grunddaten!a3:a6000" "bediene" ich in einem UF insgesamt 15 Comboboxes. Gibt es die Möglichkeit, nachdem ich einen weiteren Code für "Altdaten" habe, RowSource so umzustellen, dass sowohl "Grunddaten", als auch "Altdaten" zusammen abgefragt werden könne...
    09.11.2008 13:49:00
    Thread-ID: 1023061
    9 Beiträge
    Anzeige
    2 Tabellen vergleichen und Pärchen bilden
    Universal

    Guten Abend Excel-Profis,
    ich hoffe, dass ihr mir helfen könnt. Ich habe hier und auch in anderen Foren gesucht - natürlich auch was gefunden - aber ich konnte es nie in meine gewünschte Form umwandeln.
    Ich habe 2 riesige Tabellen mit mehreren tausend Datensätzen und mehreren Spalten. L...
    25.01.2009 21:52:00
    Thread-ID: 1043691
    6 Beiträge
    Anzeige
    Werte zuordnen aus 2 Tabellenblättern
    123

    Hallo, habe mal eine Makro-Excel Frage,
    ich habe eine relativ grosse Excel Tabelle
    hier steht folgendes
    00/00006
    00/00012
    ...
    00/12547
    00/45879
    00/45885
    ...
    etc in georndeter Reihenfolge
    in einem Datenblatt habe ich auch diese Werte (teils auch andere...
    25.03.2009 15:12:56
    Thread-ID: 1063837
    2 Beiträge
    2 TabellenBlätter vergleichen - gleiche markieren
    Andy

    Hallo,
    ich habe 2 unterschiedliche Tabellen in denen ein Mitgliederabgleich durch geführt werden soll.
    In der Tabelle1 sind die Namen der Mitglieder einer Gruppe zusammen in einer Zelle hinter einander geschrieben; in der der Tabelle2 sind alle Mitglieder unter einander (jeweils neue Ze...
    16.04.2009 11:44:02
    Thread-ID: 1069028
    13 Beiträge
    2 Tabellen vergleichen, komplette Zeile kopieren
    Marc

    Hallo,
    ich bin mit meinem Latein am Ende und es geht irgendwie nicht wie ich es mir vorstelle.
    Folgendes Problem: Ich möchte gerne 2 Kriterien in 2 verschiedenen Workbooks miteinander vergleichen.
    In diesem Fall handelt es sich um die Teilenummer und den Prozessvorgang.
    Wenn...
    07.07.2009 20:22:08
    Thread-ID: 1087035
    6 Beiträge
    Gültigkeit auf 2 Tabellenblätter
    Konrad

    Hallo,
    ich möchte ein Tabellenblatt mit der Gültigkeit einer Liste abfragen wobei die Liste für die Gültigkeitsprüfung im 2. Tabellenblatt steht, geht das?
    Danke für die Hilfe
    Gruß
    Konrad
    09.07.2009 15:11:50
    Thread-ID: 1087453
    4 Beiträge
    2 Tabellen vergleichen
    Hubert

    Hallo Spezialisten,
    ich, blutiger Laie was VBA angeht muss in zwei Tabellen die Daten miteinander vergleichen und bei Übereinstimmung in zwei Feldern die entsprechende Zeile farblich markieren.
    Ächz, Stöhn.... da weiß ich echt alleine nicht weiter.
    So sieht die Basis aus:
    Tabell...
    05.08.2009 10:33:06
    Thread-ID: 1093683
    5 Beiträge
    2 Tabellen aus 2 Dateien miteinander vergleichen
    Frank

    Hallo zusammen,
    Ich habe hier noch mal was für die Excel Cracks
    Ausgangslage:
    Protokolldatei (in dieser Datei befinden sich die Makros; und letztendlich die kopierten Zeilen in denen Unterschiede gefunden wurden)
    Aus der Protokolldatei heraus (Datei1 Tabelle Monat07; Datei2 Tabe...
    10.09.2009 02:30:35
    Thread-ID: 1101552
    2 Beiträge
    2 Tabellenblätter vergleichen und abgleichen
    Thomas

    Servus
    Besteht eine möglichkeit 2 tabellenblätter miteinander zu vergleichen und in prozent anzugeben wieviel treffer es gibt (konsistenz). Damit meine ich erst mal allg. jede Zelle.
    Also prüfen ob der Wert einer Zelle im anderen Tabellenblatt erscheint.
    Eigentlich möchte ich nur p...
    14.10.2009 22:53:13
    Thread-ID: 1109540
    2 Beiträge
    2 Tabellenblätter in ein PDF nicht möglich
    Joachim

    Hallo,
    ich möchte per VBA das 3. und 4. Tabellenblatt als PDF in EIN Dokument bringen:
    Dim n As Integer
    Sheets(3).Select
    For n = 3 To Sheets.Count
    Sheets(n).Select False
    Next
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", Collate:=True
    25.11.2009 08:17:45
    Thread-ID: 1119865
    6 Beiträge
    Daten aus 2 Tabellen untereinanderschreiben
    Nicole

    Hallo alle,
    ich habe schon einen Code, der mir bestimmte Spalteneinträge von einem Tabellenblatt in ein anderes (GESAMT) schreibt. Jetzt will ich nur noch, dass aus einem 3. Tabellenblatt auch die Daten in GESAMT geschrieben werden, und zwar ganz einfach unten angehängt. Irgendwie komm ich...
    10.12.2009 14:06:25
    Thread-ID: 1122876
    2 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

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