Thema Datum  Von Nutzer Rating
Antwort
25.09.2012 15:31:29 Stefan
NotSolved
26.09.2012 16:25:00 Holger
NotSolved
26.09.2012 16:58:48 Stefan
NotSolved
27.09.2012 17:10:35 Holger
NotSolved
28.09.2012 08:55:00 Stefan
NotSolved
28.09.2012 09:36:39 Holger
NotSolved
28.09.2012 10:48:35 Stefan
NotSolved
01.10.2012 21:08:28 Stefan
NotSolved
03.10.2012 14:22:06 Till
NotSolved
04.10.2012 15:54:35 Stefan
NotSolved
09.10.2012 07:43:43 Stefan
NotSolved
09.10.2012 12:56:43 Dekor
NotSolved
10.10.2012 14:33:16 Stefan
NotSolved
10.10.2012 14:47:53 Holger
NotSolved
10.10.2012 16:11:00 Stefan
NotSolved
11.10.2012 12:26:18 Stefan
NotSolved
12.10.2012 17:00:18 Holger
NotSolved
Blau Aktivierung OptionButton
25.10.2012 17:19:09 Stefan
NotSolved
21.11.2012 15:13:18 Stefan
NotSolved
23.11.2012 09:28:29 Lutz
NotSolved

Ansicht des Beitrags:
Von:
Stefan
Datum:
25.10.2012 17:19:09
Views:
1419
Rating: Antwort:
  Ja
Thema:
Aktivierung OptionButton

Der Code wird angesprungen. Bin alle Schritte einzeln durchgegangen, es wird die ganze Schleife durchlaufen, es schreibt nur keinen Text in die Spalte der entsprechenden Zeile.

Hier nochmals der komplette Code:

Alles im Tabellenblatt 1, hier sind auch alle 4 Option Button vermerkt:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
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
 
 
Private Sub OptionButton2_Click()
 
If OptionButton2 = True Then
Range("B16:B27").Select
Selection.FormulaR1C1 = "2"
 
Range("C16:C27").Select
Selection.NumberFormat = "0.0%"
Sheets("Zuweisung").Cells(17, 3) = "0.002"
Sheets("Zuweisung").Cells(20, 3) = "0.003"
Sheets("Zuweisung").Cells(21, 3) = "0.004"
Sheets("Zuweisung").Cells(24, 3) = "0.005"
Sheets("Zuweisung").Cells(26, 3) = "0.006"
 
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) = "100"
Case "p"
Cells(i, 7) = "200"
Case "v"
Cells(i, 7) = "300"
End Select
Next i
Worksheets("Zuweisung").Select
 
Range("A1").Select
End If
End Sub
 
 
Private Sub OptionButton3_Click()
 
If OptionButton3 = True Then
Range("B16:B27").Select
Selection.FormulaR1C1 = "3"
 
Range("C16:C27").Select
Selection.NumberFormat = "0.0%"
Sheets("Zuweisung").Cells(17, 3) = "0.007"
Sheets("Zuweisung").Cells(20, 3) = "0.008"
Sheets("Zuweisung").Cells(21, 3) = "0.009"
Sheets("Zuweisung").Cells(24, 3) = "0.010"
Sheets("Zuweisung").Cells(26, 3) = "0.011"
Range("C17").Select
 
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) = "400"
Case "p"
Cells(i, 7) = "500"
Case "v"
Cells(i, 7) = "600"
End Select
Next i
Worksheets("Zuweisung").Select
 
 
 
 
Range("A1").Select
End If
 
End Sub
 
Private Sub OptionButton4_Click()
 
If OptionButton4 = True Then
Range("B16:B27").Select
Selection.FormulaR1C1 = "4"
 
 
Range("C16:C27").Select
Selection.NumberFormat = "0.0%"
Sheets("Zuweisung").Cells(17, 3) = "0.012"
Sheets("Zuweisung").Cells(20, 3) = "0.013"
Sheets("Zuweisung").Cells(21, 3) = "0.014"
Sheets("Zuweisung").Cells(24, 3) = "0.015"
Sheets("Zuweisung").Cells(26, 3) = "0.016"
Range("C17").Select
 
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) = "700"
Case "p"
Cells(i, 7) = "800"
Case "v"
Cells(i, 7) = "900"
End Select
Next i
Worksheets("Zuweisung").Select
 
 
Range("A1").Select
End If
 
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.09.2012 15:31:29 Stefan
NotSolved
26.09.2012 16:25:00 Holger
NotSolved
26.09.2012 16:58:48 Stefan
NotSolved
27.09.2012 17:10:35 Holger
NotSolved
28.09.2012 08:55:00 Stefan
NotSolved
28.09.2012 09:36:39 Holger
NotSolved
28.09.2012 10:48:35 Stefan
NotSolved
01.10.2012 21:08:28 Stefan
NotSolved
03.10.2012 14:22:06 Till
NotSolved
04.10.2012 15:54:35 Stefan
NotSolved
09.10.2012 07:43:43 Stefan
NotSolved
09.10.2012 12:56:43 Dekor
NotSolved
10.10.2012 14:33:16 Stefan
NotSolved
10.10.2012 14:47:53 Holger
NotSolved
10.10.2012 16:11:00 Stefan
NotSolved
11.10.2012 12:26:18 Stefan
NotSolved
12.10.2012 17:00:18 Holger
NotSolved
Blau Aktivierung OptionButton
25.10.2012 17:19:09 Stefan
NotSolved
21.11.2012 15:13:18 Stefan
NotSolved
23.11.2012 09:28:29 Lutz
NotSolved