Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
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
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CommandButton

Forumthread: CommandButton

CommandButton
13.01.2005 08:06:46
Chaos
Hallo Forum
Ist es möglich einen CommandButton durch einen Range zu starten z.B. If Range("D65") = ? then. Oder sonstiges. Der CommandButton 3 sollte nachdem ein Wert in D65 geschrieben wurde betätigt werden.
Würde mich über eine Lösung freuen ich gebe noch den code bei als Orientierung.
Tabelle1:
Option Explicit
Dim X As Integer

Private Sub CommandButton1_Click()
UhrStart = Now
UhrLaeuft = True
Range("C7") = 0
Range("A3") = Now
Range("B3") = Time
ActiveSheet.OLEObjects("CommandButton3").Object.Caption = "Stop"
ActiveSheet.OLEObjects("CommandButton3").Visible = True
Range("D15") = 0
End Sub



Private Sub CommandButton2_Click()
Application.OnKey "{ENTER}", "SchreibDieZeit"
Range("C7") = 0
UhrLaeuft = True
ActiveSheet.OLEObjects("CommandButton2").Visible = False
ActiveSheet.OLEObjects("CommandButton3").Visible = True
End Sub



Private Sub CommandButton3_Click()
If UhrLaeuft = True Then
Range("C11") = Now - UhrStart + Range("C7")
UhrLaeuft = False
ActiveSheet.OLEObjects("CommandButton3").Visible = False
Else
UhrStart = Now
UhrLaeuft = True
ActiveSheet.OLEObjects("CommandButton3").Object.Caption = "Stop"
End If
Range("C3") = Time
Range("D3").SpecialCells(xlCellTypeLastCell).Offset(1, 0).Value = Now - UhrStart + Range("C7")
Range("B16") = "Phase 1"
Range("B17") = "Phase 2"
Range("B18") = "Phase 3"
Range("B19") = "Phase 4"
Range("B20") = "Phase 5"
Range("B21") = "Phase 6"
Range("B22") = "Phase 7"
Range("B23") = "Phase 8"
Range("B24") = "Phase 9"
Range("B25") = "Phase 10"
Range("B26") = "Phase 11"
Range("B27") = "Phase 12"
Range("B28") = "Phase 13"
Range("B29") = "Phase 14"
Range("B30") = "Phase 15"
Range("B31") = "Phase 16"
Range("B32") = "Phase 17"
Range("B33") = "Phase 18"
Range("B34") = "Phase 19"
Range("B35") = "Phase 20"
Range("B36") = "Phase 21"
Range("B37") = "Phase 22"
Range("B38") = "Phase 23"
Range("B39") = "Phase 24"
Range("B40") = "Phase 25"
Range("B41") = "Phase 26"
Range("B42") = "Phase 27"
Range("B43") = "Phase 28"
Range("B44") = "Phase 29"
Range("B45") = "Phase 30"
Range("B46") = "Phase 31"
Range("B47") = "Phase 32"
Range("B48") = "Phase 33"
Range("B49") = "Phase 34"
Range("B50") = "Phase 35"
Range("B51") = "Phase 36"
Range("B52") = "Phase 37"
Range("B53") = "Phase 38"
Range("B54") = "Phase 39"
Range("B55") = "Phase 40"
Range("B56") = "Phase 41"
Range("B57") = "Phase 42"
Range("B58") = "Phase 43"
Range("B59") = "Phase 44"
Range("B60") = "Phase 45"
Range("B61") = "Phase 46"
Range("B62") = "Phase 47"
Range("B63") = "Phase 48"
Range("B64") = "Phase 49"
Range("B65") = "Phase 50"
ActiveSheet.OLEObjects("CommandButton1").Visible = False
End Sub

Modul:
Public UhrStart As Date
Public UhrLaeuft As Boolean
Sub Auto_open()
Application.OnKey "{Return}", "SchreibeDieZeit"
End Sub
Sub SchreibeDieZeit()
Range("D3").SpecialCells(xlCellTypeLastCell).Offset(1, 0).Value = Now - UhrStart + Range("C7")
End Sub
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: CommandButton
13.01.2005 08:18:13
Chaos
Danke aber,
das beschreibt wie ich bei einem bestimmten Feld nur dieses Makro aufrufen kann ich habe aber einen CommandButoon der Aktiviert werden soll sobald die Zelle D65 einen Wert enthält.
Anzeige
AW: CommandButton
c0bRa
und wo liegt jetzt dein problem?

Private Sub CommandButton1_Click()...


Private Sub CommandButton2_Click()...


Private Sub CommandButton3_Click()...
fällt dir was auf?


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Call CommandButton[bla]_Click
End Sub
Anzeige
AW: CommandButton
13.01.2005 08:29:27
Chaos
Danke für die Hilfe !!
AW: CommandButton
Heiko
Moin ?,
du sprühst ja nur so vor Ideen, vielleicht solltest du auch mal die Tipps die du bekommst umsetzen.
Hier eine Möglichkeit wie, du auf die Änderung in Zelle D65 reagierst.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = ("$D$65") Then call xxx
End Sub

Was xxx meint habe ich dir ca 10 Fragen vorher beantwortet.
Gruß Heiko
PS: Das Forum lebt auch von den Rückmeldungen der Frager!
Anzeige
AW: CommandButton
13.01.2005 08:23:50
Chaos
Sorry
hab heute morgen noch gar nicht meine e-mails gelesen.
Kannst du dass vielleicht noch genauer erklären mit einen Sub aus dem CommandButton machen.
;

Forumthreads zu verwandten Themen

Nachtrag zu Gestern - Commandbutton ...
Frank

Hallo Excelgemeinde!
Gestern fragte ich wie ich CommanButton mit Namen aus einer Tabelle befüllen kann!
Rudi schickte mir folgende Lösung:
CommandButton1.Caption = Range("AQ3").Text
Im Augenblick wird das Ereignis durch folgende Überschrift ausgelöst:
Private Sub Worksheet_S...
12.08.2008 14:38:00
Thread-ID: 1001212
2 Beiträge
auf CommandButton zugreifen
Lars

Hallo zusammen,
ich habe in Excel von einem Tabellenblatt A eine Abfrage (msgbox ok/cancel) gestartet, die ein anderes Tabellenblatt B aktiviert, wenn ok geklickt wird. Andernfalls erfolgt ein Rücksprung auf A.
Wenn nun ok geklickt wird, soll auf Tabellenblatt B zusätzlich ein CommandBu...
02.09.2008 16:44:00
Thread-ID: 1006864
5 Beiträge
CommandButton Name
Enrico

Hallo ich möchte die Eigenschaften von vielen CommandButton´s über ein
Makro ändern.
in Range("X" & i).Value steht der Name des Command Buttons
For i = 2 To 100
Knopf = Sheets("Daten").Range("X" & i).Value
Farbe = Sheets("Daten").Range(Knopf).Value
If Farbe = 1...
05.09.2008 09:24:00
Thread-ID: 1007588
3 Beiträge
Anzeige
commandbutton erstellen
sockel939

Hallo,
gibt es einen code mit dem man commandbuttons erstellen kann und gleich eine anweisung einfügen kann?
Ich kenne AddButtons weiß aber nicht wie das geht.
Danke
10.10.2008 12:00:17
Thread-ID: 1015547
2 Beiträge
Anzeige
Commandbuttons einfärben
Wolfgang

Hallo Excel Experten.
Stehe vor einem Problem bei dem ich nicht mehr weiterkommen.
Ich habe in einer Userform 42 CommandButton, die je nach Programmablauf verschieden eingefärbt werden sollen.
Es will mir aber nicht gelingen, diese einzeln in einer Schleife anzusprechen, den momenta...
15.10.2008 08:56:10
Thread-ID: 1016475
3 Beiträge
Makrofehler nur beim Commandbutton
Kurt

Guten Morgen,
warum klappt das Selectieren mit Commandbutton nicht.
Ich bin immer in der Tabelle "Gesamt"
Hier mit CommandButton:
Private Sub CommandButton100_Click() Sheets("Datenbank").Select ActiveSheet.Range("G3").Select Dim z As Long z = Range("g3").End(xlDown).Row Active...
17.10.2008 11:00:00
Thread-ID: 1017071
22 Beiträge
Anzeige
CommandButton Enabled = false
max

Liebe VBA-Gemeinde,
ich habe in einem Excel-Sheet zwei CommandButton eingefügt. Wenn der User nun den CB_1 klickt soll der CB_2 auf enabled = false gesetzt und der Text kursiv dargestellt werden.
Wie geht's ?
Dank im voraus
max
30.10.2008 15:07:25
Thread-ID: 1020626
5 Beiträge
CommandButton
Frank

Hallo,
Ingo aus dem Forum war mir bei diesem Code sehr behilflich
nun sollte ich aber noch einen CommandButton3 einfügen
der sollte bewirken das wenn ich den Preis in der TextBox=Preis
überschreibe diesen dann im Tabellenblatt ändert, nach Möglichkeit
erst noch eine Rückfrag...
04.11.2008 13:37:50
Thread-ID: 1021608
17 Beiträge
Druck mit Hilfe von CommandButton und UserForm
CommandButton

Hallo zusammen, nun ist meine Tabelle fast fertig, es fehlt nur noch der Ausdruck.
Ich habe ein Userform mit Checkboxen erstellt. Das Userform soll über ein CommandButton geöffnert werden. Dazu wollte ich folgendes verwenden:
UserFormName.Show
Allerdings funktioniert es nicht, kö...
06.11.2008 17:11:10
Thread-ID: 1022366
6 Beiträge
Druck mit Hilfe von CommandButton und UserForm
CommandButton

Hallo zusammen, nun ist meine Tabelle fast fertig, es fehlt nur noch der Ausdruck.
Ich habe ein Userform mit Checkboxen erstellt. Das Userform soll über ein CommandButton geöffnert werden. Dazu wollte ich folgendes verwenden:
UserFormName.Show
Allerdings funktioniert es nicht, kö...
06.11.2008 17:17:30
Thread-ID: 1022372
2 Beiträge
Anzeige
CommandButton Franz
Frank

Hallo Franz,
mein Beitrag im Forum ist verschwunden
mit deiner letzten Hilfe komme ich leider nicht klar
wo muss ich diesen Code einfügen
With Worksheets("Daten")
------If IsNumeric(.Cells(Zeile,Spalte) Then-------------------- ist im Code rot dargestellt
Me.Preis=Format...
11.11.2008 10:11:00
Thread-ID: 1023441
4 Beiträge
Blinkender Commandbutton
Ralf

Hallo Experten!
Ist es möglich einen Commandbutton blinken zu lassen wenn in der angesteuerten Arbeitsmappe neue Einträge gemacht wrden? Die Blinkdauer sollte 24h betragen.
Gruß Ralf
12.11.2008 20:21:00
Thread-ID: 1023986
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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