Ich verstehe es einfach nicht!
02.08.2004 11:12:38
ponti
ich habe folgendes Problem:
Eine Tabelle mit verschiedenen Messwerten.
Das Makro soll aus den (über Userform ausgewählten) Messwerten den Mittelwert bilden.
Makro:
Dim a, b, c, d, e, f, g As Integer
Private Sub CommandButton1_Click()
Dim ä As String
Sheets("Übersicht").Cells(55, 1).Value = TextBox1.Text
Sheets("Übersicht").Cells(55, 2).Value = TextBox2.Text
Sheets("Übersicht").Cells(55, 3).Value = TextBox3.Text
Sheets("Übersicht").Cells(55, 4).Value = TextBox4.Text
Sheets("Übersicht").Cells(55, 5).Value = TextBox5.Text
Sheets("Übersicht").Cells(55, 6).Value = TextBox6.Text
Sheets("Übersicht").Cells(55, 7).Value = TextBox7.Text
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
d = TextBox4.Text
e = TextBox5.Text
f = TextBox6.Text
g = TextBox7.Text
ä = TextBox9.Text
If a = 0 Then a = 4 / 3
If b = 0 Then b = 4 / 3
If c = 0 Then c = 4 / 3
If d = 0 Then d = 4 / 3
If e = 0 Then e = 4 / 3
If f = 0 Then f = 4 / 3
If g = 0 Then g = 4 / 3
Sheets(ä).Activate
Sheets("Übersicht").Cells(1, 1) = (Cells(285, (a * 3) - 1) + _
Cells(285, (b * 3) - 1) + Cells(285, (c * 3) - 1) _
+ Cells(285, (d * 3) - 1) + Cells(285, (e * 3) - 1) + _
Cells(285, (f * 3) - 1) + Cells(285, (g * 3) - 1))
If a <> 4 / 3 Then a = 1 Else a = 0
If b <> 4 / 3 Then b = 1 Else b = 0
If c <> 4 / 3 Then c = 1 Else c = 0
If d <> 4 / 3 Then d = 1 Else d = 0
If e <> 4 / 3 Then e = 1 Else e = 0
If f <> 4 / 3 Then f = 1 Else f = 0
If g <> 4 / 3 Then g = 1 Else g = 0
Sheets("Übersicht").Cells(1, 1) = Sheets("Übersicht").Cells(1, 1) / (a + b + c + d + e + f + g)
Unload UserForm6
End Sub
Eingabe der Messwerte, und des Blattes, auf welchem die messwerte sind:
z.B.
Blatt1, 1,2,3,0,0,0,0 (Jeweils in andere Textbox, hier Blatt1, Messerte 1, 2 u. 3)
Problem:
g ist immer auf 1. Ich habe keine ahnung wiso, aber g (= letzte Textbox) ist immer auf 1, auch wenn ich in die Textbox 0 eingebe. Dadurch komme ich immer auf ein falsches ergebnis. Gebe ich in die letzte Textbox (g) nichts ein, tritt ein Fehler (Typenfehler) auf.
Weiß jemand rat?
MfG ponti