Hier nochmal der ganze Code mit Erklärung (ich hoffe, verständlich genug)
Mit dem angefügten Code möchte ich gerne erreichen, dass bei Aktivierung des OptionButton1, die Zelle C17 des Tabellenblatts „Zuweisung“ mit dem Wert „0,1%“ befüllt wird. Funktioniert auch einwandfrei.
Außerdem soll das Tabellenblatt „Verwaltung“ in der Spalte B auf die Buchstaben „m“, „p“ und „v“ überprüft werden. Ist in einer Zeile der Spalte B ein „m“ vermerkt, soll in Spalte G der entsprechenden Zeile der Wert „15“ (dargestellt in Euro) eingetragen werden; bei „p“ wird der Wert „20“ eingetragen; bei „v“ der Wert „10“. Ist die eine Zelle in B leer, soll auch bei G nichts erfasst werden.
Nun hab ich den Code für den OptionButton1 angehängt (2,3 und 4 sollen dann genau so aussehen), welcher mir dann das Tabellenblatt „Verwaltung“ durchsucht. Ich erhalte keine Fehlermeldung, allerdings wird auch keiner der Werte in Spalte G eingetragen. Weißt du, wo hier mein Fehler liegt?
Danke schon mal.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | Private Sub OptionButton1_Click()
If OptionButton1 = True Then
Worksheets( "Zuweisung" ). Select
Range( "B16:B19" ). Select
Selection.FormulaR1C1 = "1"
Range( "C16:C27" ). Select
Selection.NumberFormat = "0.0%"
Sheets( "Zuweisung" ).Cells(17, 3) = "0.001"
Range( "B20:B27" ).ClearContents
Range( "C18:C27" ).ClearContents
Sheets( "Verwaltung" ). Select
For i = 1 To Cells(Rows.Count, 2). End (xlUp).Row
Select Case LCase(Cells(i, 2))
Case ""
Cells(i, 7) = ""
Case "m"
Cells(i, 7) = "15"
Case "p"
Cells(i, 7) = "20"
Case "v"
Cells(i, 7) = "10"
End Select
Next i
Worksheets( "Zuweisung" ). Select
Range( "A1" ). Select
End If
End Sub
|
|