Aktion statt CommandButton durch Feldinhalt

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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).

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

Beliebteste Forumthreads (12 Monate)

Aktion statt CommandButton durch Feldinhalt

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aktion statt CommandButton durch Feldinhalt

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

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread