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

Zwei CommandButton selbes Ergebnis

Forumthread: Zwei CommandButton selbes Ergebnis

Zwei CommandButton selbes Ergebnis
30.03.2015 16:23:57
Jan
Hallo zusammen,
ich habe zwei CommandButtons, einer ist in einer UserForm mit Suchtfunktion eingebettet, der andere auf dem Tabellenblatt. Beide sollen nun, unabhängig von einander, folgende Formel bei Click berechnen. Dies funktioniert beim Button in dem Tabellenblatt auch schon ganz gut, nur der in der Userform will nicht funktionieren.
Habt ihr hier eine Idee?
Me.TextBox5.Value = Range("W11")
Me.TextBox1.Value = Range("X14")
Danke im Voraus und Gruß
Jan

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zwei CommandButton selbes Ergebnis
30.03.2015 16:32:06
Frank
Hallo Jan!
Da wäre wohl 'ne Bsp.-Datei hilfreich!
Gruß Frank H.

AW: Zwei CommandButton selbes Ergebnis
30.03.2015 16:44:27
Jan
Hallo,
leider ist meine Datei viel zu groß, auch wenn ich alles rauslösche, komme ich nicht mehr unter 2MB.
Ich poste hier einfachmal meine kompletten Formeln, vielleicht hilft das ja:
Im Tabellenblatt habe ich folgende Formel:
Private Sub CommandButton1_Click()
Dim kommt As String
If TextBox17.Value = "" And TextBox16.Value = "" Then
MsgBox "Bitte Artikel-Nr. oder EAN ausfüllen"
Exit Sub
End If
Me.TextBox5.Value = Range("W11")
Me.TextBox1.Value = Range("X14")
Me.TextBox15.Value = Range("W12")
Me.TextBox17.Value = Range("X11")
Me.TextBox16.Value = Range("X13")
Me.TextBox18.Value = Range("X12")
Me.TextBox6.Value = Range("P22")
End Sub
In der UserForm habe ich folgende Formel:
Private Sub CalculateButton_1_Click()
Dim kommt As String
Me.TextBox5.Value = Range("W11")
Me.TextBox1.Value = Range("X14")
Me.TextBox15.Value = Range("W12")
Me.TextBox17.Value = Range("X11")
Me.TextBox16.Value = Range("X13")
Me.TextBox18.Value = Range("X12")
Me.TextBox6.Value = Range("P22")
End Sub
.... im Anschluss kommt noch eine Suchfunktion-Formel (die sollte aber ja in diesem Fall unrelevant sein).
Gruß
Jan

Anzeige
AW: Zwei CommandButton selbes Ergebnis
31.03.2015 07:23:41
Klaus
Hallo Jan,
fast völlig ungetestet.
Private Sub CommandButton1_Click()
Dim kommt As String
If TextBox17.Value = "" And TextBox16.Value = "" Then
MsgBox "Bitte Artikel-Nr. oder EAN ausfüllen"
Exit Sub
End If
Call UF_Zelle_Zu_Textbox
End Sub
Private Sub CalculateButton_1_Click()
Dim kommt As String
Call UF_Zelle_Zu_Textbox
End Sub
Sub UF_Zelle_Zu_Textbox()
With UserForm1
.TextBox1.Value = Range("W11")
.TextBox1.Value = Range("X14")
.TextBox15.Value = Range("W12")
.TextBox17.Value = Range("X11")
.TextBox16.Value = Range("X13")
.TextBox18.Value = Range("X12")
.TextBox6.Value = Range("P22")
End With
End Sub
Grüße,
Klaus M.vdT.

Anzeige
AW: Zwei CommandButton selbes Ergebnis
31.03.2015 11:33:27
Jan
Hallo Klaus,
danke erstmal dafür! Leider funktioniert das nicht mit dem "UF_Zelle_Zu_Textbox". Wo genau muss ich die Formel implementieren? Welcher Teil gehört im Code des Tabellenblatts, welcher in die Userform? Benötige ich vielleicht einzusätzliches Modul?
Danke schonmal für deine Hilfe
Gruß
Janis

Anzeige
AW: Zwei CommandButton selbes Ergebnis
31.03.2015 11:47:37
Klaus
Hallo Jan,
Das ist keine Formel, das ist ein Makro. Bitte nicht die Begriffe mischen, sonst versteht man nichts mehr.
Das "Zelle-zu-TextBox" Makro in ein Modul. Die Button-Makros dahin, wo die Buttons sind - Tabellenblatt und Userform.
Grüße,
Klaus M.vdT.

AW: Zwei CommandButton selbes Ergebnis
01.04.2015 15:13:22
Jan
Hallo Klaus,
entschuldige, aber ich bin leider nicht so 100% im VBA-Thema,... aber man lernt ja immer wieder etwas dazu! Ich habe die Makros nun übertragen und ein eigenes Modul für das "Zelle-zu-TextBox"-Makro, aber
er zeigt mir den Debugger in genau dem Makro an "Methode oder Datenobjekt nicht gefunden"
Fällt dir noch etwas ein?

Anzeige
AW: Zwei CommandButton selbes Ergebnis
02.04.2015 11:58:17
Klaus
Hi Jan,
keine Ahnung.
Lad mal die Datei hoch, reduziert aus wesentliche.
Grüße,
Klaus M.vdT.
;

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
Anzeige
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
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
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
Anzeige
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
Anzeige
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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