Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1300to1304
1300to1304
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Button geht nicht mehr

Forumthread: VBA Button geht nicht mehr

VBA Button geht nicht mehr
20.02.2013 16:24:24
Julia
Hi,
ich habe einen Button in meiner Datei der eine Gesamtübersicht über alle Tabellenblätter ausgibt. Bei Klick sollte folgender Code ausgeführt werden:
Option Explicit 
Private Sub CommandButton1_Click()
Dim x As Double, i As Double
ActiveSheet.Move before:=Sheets(1) 'setzt Actives Blatt an erste Stelle
x = 2
For i = 3 To Sheets.Count
Cells(x, 1) = Sheets(i).Name
Cells(x, 3).Value = Sheets(i).Cells(9, 5)
Cells(x, 4).Value = Sheets(i).Cells(14, 5)
Cells(x, 6).Value = Sheets(i).Cells(10, 5)
Cells(x, 7).Value = Sheets(i).Cells(11, 5)
Cells(x, 8).Value = Sheets(i).Cells(12, 5)
Cells(x, 9).Value = Sheets(i).Cells(13, 5)
Cells(x, 11).Value = Sheets(i).Cells(6, 4)
Cells(x, 13).Value = Sheets(i).Cells(3, 6)
Cells(x, 15).Value = Sheets(i).Cells(19, 5)
Cells(x, 16).Value = Sheets(i).Cells(20, 5)
Cells(x, 17).Value = Sheets(i).Cells(21, 5)
Cells(x, 18).Value = Sheets(i).Cells(22, 5)
Cells(x, 19).Value = Sheets(i).Cells(23, 5)
Cells(x, 20).Value = Sheets(i).Cells(24, 5)
Cells(x, 21).Value = Sheets(i).Cells(25, 5)
Cells(x, 22).Value = Sheets(i).Cells(26, 5)
Cells(x, 23).Value = Sheets(i).Cells(27, 5)
Cells(x, 24).Value = Sheets(i).Cells(28, 5)
Cells(x, 25).Value = Sheets(i).Cells(29, 5)
Cells(x, 26).Value = Sheets(i).Cells(30, 5)
Cells(x, 27).Value = Sheets(i).Cells(31, 5)
Cells(x, 28).Value = Sheets(i).Cells(32, 5)
Cells(x, 29).Value = Sheets(i).Cells(33, 5)
Cells(x, 30).Value = Sheets(i).Cells(34, 5)
Cells(x, 31).Value = Sheets(i).Cells(35, 5)
Cells(x, 32).Value = Sheets(i).Cells(36, 5)
Cells(x, 33).Value = Sheets(i).Cells(37, 5)
Cells(x, 34).Value = Sheets(i).Cells(38, 5)
Cells(x, 35).Value = Sheets(i).Cells(39, 5)
Cells(x, 36).Value = Sheets(i).Cells(40, 5)
Cells(x, 37).Value = Sheets(i).Cells(41, 5)
Cells(x, 38).Value = Sheets(i).Cells(42, 5)
Cells(x, 39).Value = Sheets(i).Cells(43, 5)
Cells(x, 40).Value = Sheets(i).Cells(44, 5)
Cells(x, 41).Value = Sheets(i).Cells(45, 5)
Cells(x, 42).Value = Sheets(i).Cells(46, 5)
Cells(x, 43).Value = Sheets(i).Cells(47, 5)
Cells(x, 44).Value = Sheets(i).Cells(48, 5)
Cells(x, 45).Value = Sheets(i).Cells(49, 5)
Cells(x, 46).Value = Sheets(i).Cells(50, 5)
Cells(x, 47).Value = Sheets(i).Cells(51, 5)
Cells(x, 48).Value = Sheets(i).Cells(52, 5)
Cells(x, 49).Value = Sheets(i).Cells(53, 5)
Cells(x, 50).Value = Sheets(i).Cells(54, 5)
Cells(x, 51).Value = Sheets(i).Cells(19, 6)
Cells(x, 52).Value = Sheets(i).Cells(20, 6)
Cells(x, 53).Value = Sheets(i).Cells(21, 6)
Cells(x, 54).Value = Sheets(i).Cells(22, 6)
Cells(x, 55).Value = Sheets(i).Cells(23, 6)
Cells(x, 56).Value = Sheets(i).Cells(24, 6)
Cells(x, 57).Value = Sheets(i).Cells(25, 6)
Cells(x, 58).Value = Sheets(i).Cells(26, 6)
Cells(x, 59).Value = Sheets(i).Cells(27, 6)
Cells(x, 60).Value = Sheets(i).Cells(28, 6)
Cells(x, 61).Value = Sheets(i).Cells(29, 6)
Cells(x, 62).Value = Sheets(i).Cells(30, 6)
Cells(x, 63).Value = Sheets(i).Cells(31, 6)
Cells(x, 64).Value = Sheets(i).Cells(32, 6)
Cells(x, 65).Value = Sheets(i).Cells(33, 6)
Cells(x, 66).Value = Sheets(i).Cells(34, 6)
Cells(x, 67).Value = Sheets(i).Cells(35, 6)
Cells(x, 68).Value = Sheets(i).Cells(36, 6)
Cells(x, 69).Value = Sheets(i).Cells(37, 6)
Cells(x, 70).Value = Sheets(i).Cells(38, 6)
Cells(x, 71).Value = Sheets(i).Cells(39, 6)
Cells(x, 72).Value = Sheets(i).Cells(40, 6)
Cells(x, 73).Value = Sheets(i).Cells(41, 6)
Cells(x, 74).Value = Sheets(i).Cells(42, 6)
Cells(x, 75).Value = Sheets(i).Cells(43, 6)
Cells(x, 76).Value = Sheets(i).Cells(44, 6)
Cells(x, 77).Value = Sheets(i).Cells(45, 6)
Cells(x, 78).Value = Sheets(i).Cells(46, 6)
Cells(x, 79).Value = Sheets(i).Cells(47, 6)
Cells(x, 80).Value = Sheets(i).Cells(48, 6)
Cells(x, 81).Value = Sheets(i).Cells(49, 6)
Cells(x, 82).Value = Sheets(i).Cells(50, 6)
Cells(x, 83).Value = Sheets(i).Cells(51, 6)
Cells(x, 84).Value = Sheets(i).Cells(52, 6)
Cells(x, 85).Value = Sheets(i).Cells(53, 6)
Cells(x, 86).Value = Sheets(i).Cells(54, 6)
Cells(x, 87).Value = Sheets(i).Cells(4, 10)
x = x + 1
Next i
End Sub

Es hat auch mal funktioniert, aber irgendwie geht es nicht mehr und ich weiß nicht warum, kann jemand helfen?
Danke und LG Julia

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Button geht nicht mehr
20.02.2013 16:28:03
Maximilian
Also erst mal unten bei "Next i" das i weg machen.. nur "Next"
Ansonsten mal den Debugger fragen, in welcher Zeile ein Fehler auftritt, dann nochmal melden.

AW: VBA Button geht nicht mehr
20.02.2013 16:35:11
Sheldon
Hallo Maximilian, hallo Julia,
das funktioniert selbstverständlich auch mit "Next i", Fehler verursacht sowas nur bei einer For Each .. Next - Anweisung.
Warum das nicht funktioniert? Wir können nur raten, weil wir alle Deine Datei nicht kennen. Aber wenn ich raten soll, dann liegts daran, dass die Datei ein oder zwei Tabellenblätter besitzt, das Makro erwartet aber mindestens drei Tabellenblätter. (For i=3 to Sheets.Count)
Gruß
Sheldon

Anzeige
Auch das ist nicht ganz exakt, ...
20.02.2013 17:14:07
Luc:-?
…Sheldon; ;-]
nach dem Next als Abschluss einer For-Anweisung, egal welcher Art, darf grundsätzlich der Name der Laufvariablen folgen, obwohl er auch (meist) entfallen kann. Es ist so (für den Betrachter) eindeutiger, welche Schleife gemeint ist (falls mehrere ineinandergeschachtelt wdn). Nur ein falscher Laufvariablenname führt zum Fehler (allerdings schon bei der Auto-Überprüfung im VBE bei Kompilieren bzw Speichern).
Gruß Luc :-?

Anzeige
Am Rande
20.02.2013 16:36:21
JACKD
Hallo Julia
Ich versuch mir grad vorzustellen wie deine Arbeitsmappe aussieht..
Aber er gelingt mir nicht..
du willst eine übersicht über alle Arbeitsblätter referierst aber auf die verschiedensten Zellen in den verschiedenen Blättern?
Grüße

On error resume next
20.02.2013 16:37:22
JACKD
bringt häufig schon eine Lösung (behebt aber das Problem nicht)

AW: VBA Button geht nicht mehr
20.02.2013 16:52:20
Rudi
Hallo,
warum's nicht geht, kann ich nicht sagen. Aber kürzer geht's. 
Private Sub CommandButton1_Click()
Dim x As Long, i As Integer
ActiveSheet.Move before:=Sheets(1) 'setzt Actives Blatt an erste Stelle
x = 2
For i = 3 To Sheets.Count
With Sheets(i)
Cells(x, 1) = .Name
Cells(x, 3).Value = .Cells(9, 5)
Cells(x, 4).Value = .Cells(14, 5)
Cells(x, 6).Value = .Cells(10, 5)
Cells(x, 7).Value = .Cells(11, 5)
Cells(x, 8).Value = .Cells(12, 5)
Cells(x, 9).Value = .Cells(13, 5)
Cells(x, 11).Value = .Cells(6, 4)
Cells(x, 13).Value = .Cells(3, 6)
Cells(x, 15).Resize(, 36).Value = _
WorksheetFunction.Transpose(.Cells(19, 5).Resize(36))
Cells(x, 51).Resize(, 36).Value = _
WorksheetFunction.Transpose(.Cells(19, 6).Resize(36))
Cells(x, 87).Value = .Cells(4, 10)
End With
x = x + 1
Next i
End Sub

Gruß
Rudi

Anzeige
AW: VBA Button geht nicht mehr
20.02.2013 17:29:41
Daniel
Hi
vielleicht einfach nur vergessen, beim Starten der Datei die Makros zu aktivieren?
in den neuen Excelversionen kommt nicht immer ne schöne Meldung, manchmal ist das einfach ein Button am oberen Rand.
oder aus versehen den Entwurfsmodus aktiviert?
Gruß Daniel

Hat d.Button evtl keine ...
20.02.2013 17:41:52
Luc:-?
…Beziehung mehr zur Prozedur, Julia?
Das hängt auch von Button-Art und -Standort ab, was wir aus deiner Anfrage nicht erkennen können.
Gruß Luc :-?

Anzeige
AW: Hat d.Button evtl keine ...
21.02.2013 08:06:01
Julia
Guten Morgen,
danke für die zahlreichen Antworten. Es war wirklich der Bezug der gefehlt hat, warum kann ich mir aber nicht erklären. Jetzt geht es wieder. Vielen lieben Dank.
Da mir meine Variante die Gesamtübersicht über alle Tabellenblätter zu erstellen noch nicht ganz so gut gefällt mache ich noch einen neuen Thread auf, vielleicht kann mir jemand helfen das zu verbessern.
Lg Julia

Anzeige
Siehste, 'Stecker' war's! ;-) Gruß owT
21.02.2013 12:25:42
Luc:-?
:-?
;

Forumthreads zu verwandten Themen

Code funktioniert plötzlich nicht mehr
Richard

Hallo,
folgender Code hat immer funktioniert, ich habe daran nichts geändert.
With Application With .CommandBars .Add(Name:="Testmenü").Visible = True End With ...
Ich muss aber irgndwo anders in Excel irgendwas verstellt haben, sodass ich beim Ausführen jetzt folgende Fehlermel...
12.08.2008 14:33:00
Thread-ID: 1001208
2 Beiträge
Makro funktioniert nicht mehr - Verweis?
otto

Hi,
Makro in anhängender Datei läuft nicht mehr. Kann mir jemand sagen warum?
Meine verwendeten Verweise sind auch dabei.
https://www.herber.de/bbs/user/56467.doc
Gruß
otto
03.11.2008 07:35:00
Thread-ID: 1021263
3 Beiträge
AutoFill funktioniert nicht mehr
Anna

Hallo
schon oft habe ich die AutoFill-Methode benutzt und immer lief es einwandfrei, doch auf einmal bekomme ich immer eine Fehlermeldung
"Laufzeitfehler '1004': Die AutoFill-Methode des Range-Objektes konnte nicht ausgeführt werden."
Ich hab schon alles ausprobiert, deswegen glaub...
26.11.2008 10:44:00
Thread-ID: 1027953
2 Beiträge
Dateien auslesen funktioniert nicht mehr
Roland

Hallo VBA-Profis
ich lese mit untenstehendem Code alle zip-Dateien aus einem Verzeichnis aus. Ich habe das ganze auf einem Computer programmiert, auf dem Office 2000 installiert ist. Der ganze Code läuft einwandfrei.
Auf meinem anderen Computer, auf dem Office 2003 installiert ist, funk...
10.03.2009 11:10:53
Thread-ID: 1058528
3 Beiträge
Formel funktionieren nicht mehr!!`????
nino

Hallo, kann mir jemand sagen, was ich falsch gemacht habe?
Die formel funktionieren seit gestern nicht mehr! Bis gestern mitag ist alles gelaufen!?
Ich bedanke mich im Voraus! Nino.
Die Datei https://www.herber.de/bbs/user/60480.xls wurde aus Datenschutzgründen gelöscht
19.03.2009 23:30:43
Thread-ID: 1062003
7 Beiträge
To-Do Liste Code funktioniert nicht mehr? Wieso?
Jessi

https://www.herber.de/bbs/user/62106.xls
Hallo zusammen,
die oben gelinkte Datei sollte eigentlich beim Drücken des "START-BUTTONS" eine E-Mail versenden, sofern die Deadline überschritten wurde. Irgendwie funktioniert nichts? Woran kann das liegen? Dieser Code lief vor 2 Monaten in ei...
28.05.2009 19:15:48
Thread-ID: 1078037
6 Beiträge
Anzeige
Code funktioniert nicht mehr
Roland

Hallo zusammen,
seit langem musste ich mal wieder ein Makro aufzeichnen und auch etwas schreiben.
Ich hab vor einiger Zeit schon mal was programmiert in Excel 2002.
Jetzt wollte ich diesen Code in Excel 2003 verwenden, dabei meldet mir Excel aber immer ein Fehler.
Genauer ge...
17.09.2009 19:26:56
Thread-ID: 1103685
5 Beiträge
Anzeige
Makro funktioniert nicht mehr
Wolfgang

Hallo,
obwohl ich leider keine Ahnung von VBA habe; Perl ist mir da lieber; konnte ich mir trotzdem vor längerer Zeit mit Hilfe verschiedenen Foren eine Makro zusammen bauen.
Dieses Makro macht folgendes unter Excel 2003.
In die erste Spalte "A" werden manuell Artikelnummern eingebe...
14.10.2009 20:56:20
Thread-ID: 1109687
3 Beiträge
Anzeige
Warum funktioniert Makro nicht mehr?
Frank

Hallo Zusammen!
Bin ratlos! Bislang funzte folgender Code Problemlos. Öffne heute die Datei und es funzt nicht mehr. Weiß jemand Rat?
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Dim RaBereich As Range Set RaBereich = Range("I:I, K:K") If Not Intersect(Range(Target...
19.03.2010 20:43:07
Thread-ID: 1147202
4 Beiträge
Anzeige
"Dateioeffnen" in VBA funktioniert nicht mehr
Thilo

Hallo zusammen,
ich habe via VBA programmiert, dass ich eine bestimmte Datei per Explorer-Ansicht auswählen kann.
Dies habe ich via "Dateioeffnen" realisiert und bislang hat das auch immer einwandfrei geklappt.
Seit kurzem geht das nicht mehr - ich bekomme die Fehlermeldung:
"F...
14.04.2010 11:15:53
Thread-ID: 1151703
7 Beiträge
Suchfunktion funktioniert nicht mehr richtig...
Jessi

Hallo zusammen,
zur Info ich hatte bereits am 24.02.2010 Hilfe/Unterstützung von FCS und Luc? erhalten.
Es ging darum, dass ich meine bestehende Suchfunktion um "Kriterienverfeinerungen" erweitern wollte.
Das habe ich mit der taträftigen Unterstützung dann auch hinbekommen, allerd...
27.05.2010 12:11:10
Thread-ID: 1158933
5 Beiträge
Makros funktionieren nicht mehr
Jürgen

Hallo liebe Excelpertinnen und Excelperten,
ich habe ein größeres Problem.....zumindest für mich....und ich hoffe jemand von euch kann mir helfen. Ich habe in Excel-2003 zwei Makros in einer Datei integriert, die jetzt, im neuen Excel (2007) nicht mehr funktionieren. Jedesmal wenn ich versu...
10.06.2010 09:21:09
Thread-ID: 1161190
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA Button funktioniert nicht mehr – Problemlösungen und Tipps

Schritt-für-Schritt-Anleitung

Um das Problem mit dem nicht funktionierenden Excel Button zu beheben, folge diesen Schritten:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Finde den Code des Buttons: Doppelklicke auf das Blatt, in dem sich der Button befindet, und suche den entsprechenden Code.

  3. Überprüfe den Code: Achte darauf, dass der Code korrekt ist. Hier ist ein Beispiel, das du verwenden kannst:

    Private Sub CommandButton1_Click()
   Dim x As Long, i As Integer
   ActiveSheet.Move before:=Sheets(1) 'setzt Actives Blatt an erste Stelle
   x = 2
   For i = 3 To Sheets.Count
       With Sheets(i)
           Cells(x, 1) = .Name
           ' Weitere Zellen können hier bearbeitet werden
       End With
       x = x + 1
   Next i
End Sub

  4. Makros aktivieren: Stelle sicher, dass du die Makros beim Öffnen der Datei aktiviert hast. In den neueren Excel-Versionen kann manchmal ein Button am oberen Rand erscheinen, der die Aktivierung erfordert.

  5. Testen: Klicke auf den Button, um zu sehen, ob er jetzt funktioniert.

Häufige Fehler und Lösungen

  • Fehler im Code: Achte darauf, dass der Code fehlerfrei ist. Ein häufiger Fehler ist das Fehlen des richtigen Bezuges auf die Zellen. Überprüfe, dass alle Zellen, die du ansprechen möchtest, existieren.

  • Falsche Anzahl an Tabellenblättern: Das Makro erwartet möglicherweise eine bestimmte Anzahl von Tabellenblättern. Wenn deine Datei weniger als drei Blätter hat, wird der Code nicht funktionieren.

  • Entwurfsmodus aktiv: Stelle sicher, dass sich der Excel Button nicht im Entwurfsmodus befindet. Überprüfe dies in der Entwicklertools-Leiste.

Alternative Methoden

Wenn dein Excel Button nicht mehr funktioniert, gibt es auch alternative Methoden, um deine Aufgabe zu erledigen:

  • Verwendung von Hyperlinks: Statt eines Buttons kannst du auch Hyperlinks verwenden, um auf andere Blätter oder Zellen zu verweisen.

  • Formeln: Manchmal kann die gewünschte Übersicht auch über Formeln erreicht werden, ohne ein Makro zu verwenden.

  • Benutzerdefinierte Funktionen: Du kannst benutzerdefinierte Funktionen in VBA erstellen, die bei Bedarf ausgeführt werden können.

Praktische Beispiele

Hier ist ein einfaches Beispiel für einen funktionierenden VBA Button:

Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 1 To 10
        Cells(i, 1).Value = "Zeile " & i
    Next i
End Sub

In diesem Beispiel wird bei Klick auf den Button in den ersten 10 Zeilen der ersten Spalte der Text "Zeile x" eingefügt.

Tipps für Profis

  • Verwende On Error Resume Next: Dies kann helfen, kleine Fehler zu ignorieren, aber sei vorsichtig! Es behebt das Problem nicht und kann dazu führen, dass andere Fehler unbemerkt bleiben.

  • Debugging verwenden: Nutze die Debugging-Funktion im VBA-Editor, um herauszufinden, wo der Fehler auftritt. Setze Breakpoints und überprüfe die Variablenwerte.

  • Schreibe klaren und lesbaren Code: Verwende Kommentare, um den Code verständlicher zu machen. Das hilft sowohl dir als auch anderen Benutzern.

FAQ: Häufige Fragen

1. Warum funktioniert mein Excel Button nicht mehr?
Es kann viele Gründe geben, darunter Fehler im VBA-Code, die Notwendigkeit, Makros zu aktivieren, oder der Button wurde in den Entwurfsmodus versetzt.

2. Wie kann ich sicherstellen, dass mein Makro keine Fehler enthält?
Nutze den Debugger im VBA-Editor, um durch den Code zu gehen und zu überprüfen, wo Fehler auftreten. Achte darauf, alle Verweise auf Zellen und Blätter zu überprüfen.

3. Was kann ich tun, wenn ich mehrere Buttons habe?
Stelle sicher, dass jeder Button mit der richtigen Prozedur verknüpft ist. Du kannst auch das gleiche Makro für mehrere Buttons verwenden, indem du Parameter übergibst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige