Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.05.2025 11:04:50
Aktualisieren Button mit Piktogramm?
13.05.2025 10:24:22
Formelfehler
13.05.2025 08:10:06
Laufzeitfehler 57121 (Anwendungs- oder objektdefinierter Feh
13.05.2025 07:51:02
Exceldateien schneller öffnen / abspeichern?
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
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aktion statt CommandButton durch Feldinhalt

Forumthread: Aktion statt CommandButton durch Feldinhalt

Aktion statt CommandButton durch Feldinhalt
17.12.2003 10:11:45
Sven
Hallo,
Ich möchte diese Case-Anweisung /s.u.) immer dann ausführen wenn sich der Inhalt des Feldes ("C13") ändert.
Zur Zeit kann ich das nur via CommandButton.

Danke
Sven 


Private Sub CommandButton1_Click()
Select Case Range("C13").Value
Case "CAAG": Range("C16").Value = "AHQ/AHQ R2  G3"
Case "CAGAG": Range("C16").Value = "AHQ/ARQ R3  G3"
Case "CAGAGG": Range("C16").Value = "ARR/AHQ R2  G2"
Case "CAGAGT": Range("C16").Value = "AHQ/ARH R3  G3"
Case "CGAG": Range("C16").Value = "ARQ/ARQ R4  G3"
Case "CGAGG": Range("C16").Value = "ARR/ARQ R3  G2"
Case "CGAGGT": Range("C16").Value = "ARR/ARH R3  G2"
Case "CGAGT": Range("C16").Value = "ARH/ARQ R4  G3"
Case "CGATT": Range("C16").Value = "ARH/ARH R4  G3"
Case "CGGG": Range("C16").Value = "ARR/ARR R1  G1"
Case "CTAGAG": Range("C16").Value = "AHQ/VRQ R4  G5"
Case "CTGAG": Range("C16").Value = "ARQ/VRQ R5  G5"
Case "CTGAGG": Range("C16").Value = "ARR/VRQ R4  G4"
Case "CTGAGT": Range("C16").Value = "ARH/VRQ R5  G5"
Case "TGAG": Range("C16").Value = "VRQ/VRQ R5  G5"
Case Else: Range("C16").Value = "NN"
End Select
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Aktion statt CommandButton durch Feldinhalt
17.12.2003 10:19:15
AndreasS
Hallo,
hast du schon das Worksheet_Change Ereignis ausprobiert?
mfg
AW: Aktion statt CommandButton durch Feldinhalt
17.12.2003 10:22:06
WernerB.
Hallo Sven,

das nachstehende Makro gehört in das Modul des betreffenden Tabellenblattes (ungetestet):

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$C$13" Then Exit Sub
Select Case Range("C13").Value
Case "CAAG": Range("C16").Value = "AHQ/AHQ R2  G3"
Case "CAGAG": Range("C16").Value = "AHQ/ARQ R3  G3"
Case "CAGAGG": Range("C16").Value = "ARR/AHQ R2  G2"
Case "CAGAGT": Range("C16").Value = "AHQ/ARH R3  G3"
Case "CGAG": Range("C16").Value = "ARQ/ARQ R4  G3"
Case "CGAGG": Range("C16").Value = "ARR/ARQ R3  G2"
Case "CGAGGT": Range("C16").Value = "ARR/ARH R3  G2"
Case "CGAGT": Range("C16").Value = "ARH/ARQ R4  G3"
Case "CGATT": Range("C16").Value = "ARH/ARH R4  G3"
Case "CGGG": Range("C16").Value = "ARR/ARR R1  G1"
Case "CTAGAG": Range("C16").Value = "AHQ/VRQ R4  G5"
Case "CTGAG": Range("C16").Value = "ARQ/VRQ R5  G5"
Case "CTGAGG": Range("C16").Value = "ARR/VRQ R4  G4"
Case "CTGAGT": Range("C16").Value = "ARH/VRQ R5  G5"
Case "TGAG": Range("C16").Value = "VRQ/VRQ R5  G5"
Case Else: Range("C16").Value = "NN"
End Select
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Anzeige
AW: Aktion statt CommandButton durch Feldinhalt
17.12.2003 10:42:22
Sven
Leider wird die Aktion nicht ausgeführt
Das Feld c13 wird nicht manuell geändert, sondern über die Anweisung
=VERKETTEN(B18;B19;B20;B21;B22;B23;B24;B25)
geändert.

Sven
AW: Aktion statt CommandButton durch Feldinhalt
17.12.2003 10:50:48
AndreasS
Hallo,
Worksheet_Calculate anstatt Change
mfg
AW: Aktion statt CommandButton durch Feldinhalt
17.12.2003 10:49:38
sven
Fehlt hier nicht eine else Anweisung?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$C$13" Then Exit Sub
--> else
select case...


Sven
Anzeige
AW: Aktion statt CommandButton durch Feldinhalt
17.12.2003 11:10:34
Reinhard
Hallo Sven,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("B19:B25")) Is Nothing Then Exit Sub
Select Case Range("C13").Value
Case "CAAG": Range("C16").Value = "AHQ/AHQ R2  G3"
Case "CAGAG": Range("C16").Value = "AHQ/ARQ R3  G3"
Case "CAGAGG": Range("C16").Value = "ARR/AHQ R2  G2"
Case "CAGAGT": Range("C16").Value = "AHQ/ARH R3  G3"
Case "CGAG": Range("C16").Value = "ARQ/ARQ R4  G3"
Case "CGAGG": Range("C16").Value = "ARR/ARQ R3  G2"
Case "CGAGGT": Range("C16").Value = "ARR/ARH R3  G2"
Case "CGAGT": Range("C16").Value = "ARH/ARQ R4  G3"
Case "CGATT": Range("C16").Value = "ARH/ARH R4  G3"
Case "CGGG": Range("C16").Value = "ARR/ARR R1  G1"
Case "CTAGAG": Range("C16").Value = "AHQ/VRQ R4  G5"
Case "CTGAG": Range("C16").Value = "ARQ/VRQ R5  G5"
Case "CTGAGG": Range("C16").Value = "ARR/VRQ R4  G4"
Case "CTGAGT": Range("C16").Value = "ARH/VRQ R5  G5"
Case "TGAG": Range("C16").Value = "VRQ/VRQ R5  G5"
Case Else: Range("C16").Value = "NN"
End Select
End Sub

Gruß
Reinhard
Anzeige

Forumthreads zu verwandten Themen

Command-Button in Diagramm
Wolfgang

Hallo liebe Excel-Experten,
es wäre nett, wenn Ihr mir helfen könntet.
Ich habe verschiedene (mehr als 50) Diagramme erzeugt, dabei gibt es übergeordnete Diagramme und Diagramme, die Details betreffen.
Natürlich kann sich der Betrachter über die Diagramm-Namen durchsuchen. Ich möcht...
25.08.2008 23:52:00
Thread-ID: 1004633
5 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
Anzeige
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
per Makro CommandButtons mit individuellem Code
Gerry83

Hallo zusammen
Ein externes Programm führt mit unterschiedlichen Parametern 20736 Berechnungen durch, die Ergebnisse werden in jeweils eine *.txt Datei geschrieben. Zusätzlich erhalte ich ein Flag, ob die Berechnung erfolgreich war oder nicht.
Ein Makro soll mir nun 20736 CommandButtons...
23.11.2008 16:29:00
Thread-ID: 1027102
6 Beiträge
Per Makro ein Makro unter CommandButton einfügen
Andi

Hallo liebe Excel Gemeinde,
Ich hoffe Ihr seid alle gut ins neue Jahr gekommen!
Ich benötige eine Lösung für folgendes Problem:
Ich möchte gerne versuchen per makro in einen eben erstellten Commandbutten ein Makro zu schreiben.
Den commandbutten zu erstellen und seine Eigenschaf...
05.01.2009 09:12:15
Thread-ID: 1036897
7 Beiträge
sämtliche Commandbutton ausblenden bei Bedingung
Wolfgang

Hallo Excelianer
Wie kann ich erreichen, daß wenn eine Bedingung nicht erreicht ist, daß beim Aufruf der Userform1 sämtliche darin enthaltenen Commandbuttons ausgeblendet sind.
Gruß
Wolfgang
14.03.2009 18:24:52
Thread-ID: 1060212
4 Beiträge
CommandButton -> Caption in Programm verwenden
Florian

Hallo,
ich habe nach langem mal wieder ein Problem auf dem Tisch liegen.
Ich habe eine Excel-Datei erstellt und 32 CommandButton's angelegt.
Klassisch lege ich jetzt für jeden CommandButton folgenden Private Sub an: Private Sub CommandButton01_Click() Workbooks.Open Filename:=Ar...
24.03.2009 09:55:53
Thread-ID: 1063177
7 Beiträge
CommandButton in UF via Array; nicht aktivierbar
Andreas

Hallo Herber Fans,
Ich habe heute entdeckt, OK, für die Profis unter Euch ist das sicherlich nicht neu, daß man UserForms mit Hilfe von Arrays erstellen kann. Es ist m.E. nach übersichtlicher und geht schneller. Gerade in der Verwendung von CheckBoxes und Optionbuttons.
Nun will ich auc...
03.06.2009 14:50:18
Thread-ID: 1078891
5 Beiträge
Commandbutton hyperverlinkung
Nikolai

Hallo zusammen,
ich bin neu in diesem Forum, drum erstmal "Hallo" an alle.
Ich bin ein ziemlicher VBA Newbie, aber ich möchte über den commandbutton eine verlinkung zu einem anderen Tabellenblatt erstellen. Wie mache ich dies?
Zum Beispiel sitz mein commandbutton in Tabellenblatt 1...
30.07.2009 15:04:31
Thread-ID: 1092552
5 Beiträge
Commandbutton hyperverlinkung
Nikolai

Hallo zusammen,
ich bin neu in diesem Forum, drum erstmal "Hallo" an alle.
Ich bin ein ziemlicher VBA Newbie, aber ich möchte über den commandbutton eine verlinkung zu einem anderen Tabellenblatt erstellen. Wie mache ich dies?
Zum Beispiel sitz mein commandbutton in Tabellenblatt 1...
30.07.2009 15:15:48
Thread-ID: 1092557
3 Beiträge
mehrere CommandButton umbenennen
Dirk

Hallo Excelgemeinde,
ich habe ein Problem, was ich einfach nicht gelöst bekomme.
Ich habe in einem Tabellenblatt 11 CommandButton. Ich brauche einen Code, der die CommandButton 1-10 umbenennt.
Kann mir jemand helfen?
Gruß
Dirk
29.08.2009 15:08:28
Thread-ID: 1099313
5 Beiträge
CommandButton nach Wert eingeben löschen
René

Hallo
Ich habe folgendes Problem. In einer Zelle D6 will ich einen beliebigen Zahlenwert eingeben sollte einen bestimmten CommandButton löschen. Leider funktioniert es nicht, wenn ich in der Zelle einen Wert z.b. 1234 eingebe.
Folgenden Code habe ich unter Arbeitsmappe hinterlegt.
P...
08.10.2009 13:18:31
Thread-ID: 1108177
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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