Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
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
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Button soll Zellen ändern

Forumthread: Button soll Zellen ändern

Button soll Zellen ändern
09.05.2006 11:02:07
harald
Hallo,
ich hatte gestern um 18:24 Uhr schon einen Beitrag im Forum und auch sehr schnell sehr gute Hilfe von Andi und CS bekommen.
Nun hat sich aber eine Änderung ergeben, wobei ich nicht einmal weiß, ob sich das in Excel realisieren lässt.
Einzelne Zellen einer angeklickten Zeile sollen beim Klick auf einen Button (kann ich einen solchen überhaupt in Excel erzeugen?) die Hintergrundfarbe ändern und das aktuelle Datum bekommen.
Wenn es sich realisieren lässt, sollten sich zwei Buttons in Zeile 2 (Spalte B und D) befinden, da diese Zeile beim scrollen sichtbar bleibt. Wenn ich nun eine Zelle in Zeile 7 angeklickt habe und dann den Butten1 drücke, soll in Zeile 7 die Zelle in Spalte B hellblau werden und die Zelle in Spalte D das aktuelle Datum bekommen. Button2 dient nur zum löschen.
Leider sind meine Kenntnisse in VBA nur gering.
M.f.G.
Harald
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Button soll Zellen ändern
09.05.2006 11:12:11
Andi
Hi,
da bin ich wieder... :-)
Das geht schon; die Buttons (Commandbuttons) fügst Du über Ansicht, Symbolleisten, Steuerelement-Toolbox ein. Folgendes kommt dann ins Modul der Tabelle:

Private Sub CommandButton1_Click()
Cells(ActiveCell.Row, 2).Interior.ColorIndex = 37
Cells(ActiveCell.Row, 4).Value = Date
End Sub



Private Sub CommandButton2_Click()
Cells(ActiveCell.Row, 2).Interior.ColorIndex = 0
Cells(ActiveCell.Row, 4).Value = ""
End Sub

"Button2 dient nur zum löschen." hab ich jetz mal so verstanden, dass mittels Button2 in der aktiven Zeile die Spalte B wieder weiß werden und aus Spalte D das Datum wieder verschwinden soll. Oder willst Du die ganze Zeile komplett löschen?
Schönen Gruß,
Andi
Anzeige
AW: Button soll Zellen ändern
09.05.2006 11:18:25
harald
Hallo Andi,
vielen Dank noch einmal für deine Hilfe! Der 2. Button soll nur die Werte zurücksetzen, wie du richtig vermutet hast. Das kriege ich aber ebenso hin wie das Datum + 7 Tage, das du mir ja schon gestern geschrieben hast. Deshalb habe ich das auch heute nicht mehr erwähnt. Dein Code von gestern hat genau so funktioniert wie ich es mir vorgestellt hatte.
Also nochmals vielen Dank.
M.f.G.
Harald
Anzeige
Gern geschehen...
09.05.2006 11:28:52
Andi
Danke für die Rückmeldung.
Schönen Gruß,
Andi
AW: es passiert nichts
09.05.2006 12:30:31
harald
Hallo Andi,
ich habe ein kleines Problem - beim klicken auf Button1 (Ausleihe) passiert nichts! Was habe ich falsch gemacht? Die Datei habe ich hochgeladen:
https://www.herber.de/bbs/user/33454.xls
Ich hoffe, dass nur eine Einstellung falsch ist.
M.f.G.
Harald
Anzeige
AW: es passiert nichts
09.05.2006 13:29:42
Andi
Hi,
bei mir passiert da schon was. A und B werden gelb (oder Ocker, jedenfalls bunt...), in D steht das heutige Datum und in E heute + 7 Tage. Ich kann mir jetzt nur vorstellen, dass
Du entweder noch in Entwurfsmodus bist; guck mal in VB-Editor im Menü Ausführen nach; wenn dort 'Entwurfsmodus beenden' steht dann klick da mal drauf.
oder die Makros bei Dir deaktiviert sind; glaub ich aber eher nicht, weil der gestrige Code ja auch lief.
Schönen Gruß,
Andi
Anzeige
AW: es passiert nichts
09.05.2006 14:18:04
harald
Hallo Andi,
vielen Dank vorab schon mal für die Infos. Ich bin erst am Donnerstag wieder am Rechner der Schulbücherei, wo ich es nachprüfen kann. Dann werde ich alles überprüfen.
m.f.g.
harald
AW: es passiert nichts
09.05.2006 14:21:33
Andi
Alles klar; ich werd dann am Donnerstag nochmal hier nachschauen...
Bis dann,
Andi
Anzeige
AW: es passiert nichts
09.05.2006 16:10:19
harald
Hallo Andi,
ich habe mir zu Hause die hochgeladene Datei auch mal heruntergeladen und ausprobiert - hier funktioniert es auch.
Also nochmals vielen Dank
m.f.g.
harald
;
Anzeige
Anzeige

Infobox / Tutorial

Excel-Button zur Zellenänderung erstellen

Schritt-für-Schritt-Anleitung

  1. Button hinzufügen: Gehe zu "Ansicht" > "Symbolleisten" > "Steuerelement-Toolbox". Hier kannst Du die Excel-Schaltfläche hinzufügen.

  2. Button 1 (Aktualisieren): Füge einen CommandButton hinzu und klicke mit der rechten Maustaste darauf, um den Code-Editor zu öffnen. Füge folgenden Code ein:

    Private Sub CommandButton1_Click()
   Cells(ActiveCell.Row, 2).Interior.ColorIndex = 37 ' Hintergrundfarbe ändern
   Cells(ActiveCell.Row, 4).Value = Date ' Aktuelles Datum einfügen
End Sub

  3. Button 2 (Zurücksetzen): Füge einen zweiten CommandButton hinzu und verwende diesen Code:

    Private Sub CommandButton2_Click()
   Cells(ActiveCell.Row, 2).Interior.ColorIndex = 0 ' Hintergrundfarbe zurücksetzen
   Cells(ActiveCell.Row, 4).Value = "" ' Datum entfernen
End Sub

  4. Testen: Klicke auf Button 1, während Du eine Zelle in der gewünschten Zeile markiert hast. Die Hintergrundfarbe in Spalte B sollte sich ändern und das aktuelle Datum sollte in Spalte D erscheinen.

Häufige Fehler und Lösungen

  • Button funktioniert nicht: Stelle sicher, dass Du nicht im Entwurfsmodus bist. Überprüfe im VBA-Editor unter "Ausführen", ob die Option "Entwurfsmodus beenden" deaktiviert ist.

  • Makros deaktiviert: Überprüfe die Excel-Einstellungen, um sicherzustellen, dass Makros aktiviert sind. Gehe zu "Datei" > "Optionen" > "Trust Center" > "Einstellungen für das Trust Center" > "Makroeinstellungen".

Alternative Methoden

Falls Du keine VBA-Programmierung nutzen möchtest, kannst Du auch die Funktion "Bedingte Formatierung" verwenden, um Zellen basierend auf bestimmten Bedingungen zu ändern. Diese Methode erfordert jedoch keine Buttons.

Praktische Beispiele

Hier ist ein praktisches Beispiel, um die Zellenfarbe und das Datum zu ändern:

  1. Erstelle eine Tabelle mit einigen Werten.
  2. Füge die oben beschriebenen Buttons in Zeile 2 ein.
  3. Klicke auf Button 1, um die Hintergrundfarbe der Zelle in Spalte B hellblau zu machen und das aktuelle Datum in Spalte D einzufügen.

Tipps für Profis

  • Excel Button bearbeiten: Du kannst den Button anpassen, indem Du seine Eigenschaften im VBA-Editor änderst. Zum Beispiel kannst Du den Namen des Buttons ändern oder das Aussehen anpassen.
  • Buchhaltungszahlenformat ändern: Wenn Du die Zellen in Spalte D für das Datum formatieren möchtest, kannst Du das Zahlenformat mit VBA wie folgt ändern: 
    Cells(ActiveCell.Row, 4).NumberFormat = "dd.mm.yyyy"

FAQ: Häufige Fragen

1. Wie kann ich die Schaltfläche in eine andere Zelle verschieben?
Du kannst die Schaltfläche einfach per Drag & Drop an die gewünschte Position ziehen oder die Eigenschaften im VBA-Editor ändern.

2. Funktioniert das auch in Excel 365?
Ja, die beschriebenen Schritte funktionieren in Excel 365 sowie in anderen Versionen, die VBA unterstützen.

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