Aktion statt CommandButton durch Feldinhalt
17.12.2003 10:11:45
Sven
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