Hi Leute,
bin mal wieder mit einem Hilferuf im Forum.
Aus ein UserForm mit Textboxen sollen bestimmte Werte in einer
Tabelle überschrieben werden.
Die richtige Tabelle und Mannschaftsnummer wird gefunden.
Es lassen sich aber nur die Spalten überschreiben die Zahlen enthalten. Will ich aber die Spalten überschreiben die Text enthalten, bekomme ich den Laufzeitfehler „Typen unverträglich“
Wenn ich aus dem Code die überschreibung für die Spalten mit Text
herausnehme funktioniert das überschreiben der Spalten mit Zahlen.
Weiss jemand wie ich den Code ändern muss, damit auch Text überschrieben werden kann?
Hier eine Tabelle und der Code.
Mit bestem Dank im voraus.
Gruß Skaletti!
http://www.hostarea.de/server-06/Juni-71e2a50cf4.xls
Sub Bedingtes_übertragen()
Dim wksKlasse As Worksheet
Select Case Me.ComboBox1.Value 'Wert der verglichen wird
'ist für jede weitere Tabelle erweiterbar
Case „Schüler LG frei“ 'Möglichkeit 1
Set wksKlasse = Tabelle27
Case Else
MsgBox „was falsch“
End Select
With wksKlasse
'Mannschaftsummer suchen(Textbox1) und Werte überschreiben
'(für eventuelle Korrekturen,Mannschaftsänderungen)
'Spalte B Mannschaftsnummer suchen, Spalte C Mannschaftsnamen(Text) überschreiben.
I = 3
Do While .Range(„B“ & I) „“
If CInt(.Range(„B“ & I)) = CInt(Me.TextBox1) Then
If CDbl(Me.TextBox2) CDbl(.Range(„C“ & I)) Then
.Range(„C“ & I) = CDbl(Me.TextBox2)
End If
Exit Sub
End If
I = I + 1
Loop
'Spalte B Mannschaftsnummer suchen, Spalte D Startnummer(Zahl) überschreiben.
I = 3
Do While .Range(„B“ & I) „“
If CInt(.Range(„B“ & I)) = CInt(Me.TextBox1) Then
If CDbl(Me.TextBox3) CDbl(.Range(„D“ & I)) Then
.Range(„D“ & I) = CDbl(Me.TextBox3)
End If
Exit Sub
End If
I = I + 1
Loop
'Spalte B Mannschaftsnummer suchen, Spalte E Namen(Text) überschreiben.
I = 3
Do While .Range(„B“ & I) „“
If CInt(.Range(„B“ & I)) = CInt(Me.TextBox1) Then
If CDbl(Me.TextBox4) CDbl(.Range(„E“ & I)) Then
.Range(„E“ & I) = CDbl(Me.TextBox4)
End If
Exit Sub
End If
I = I + 1
Loop
'Spalte B Mannschaftsnummer suchen, Spalte F Ergebnis(Zahl) überschreiben.
I = 3
Do While .Range(„B“ & I) „“
If CInt(.Range(„B“ & I)) = CInt(Me.TextBox1) Then
If CDbl(Me.TextBox5) CDbl(.Range(„F“ & I)) Then
.Range(„F“ & I) = CDbl(Me.TextBox5)
End If
Exit Sub
End If
I = I + 1
Loop
'Spalte B Mannschaftsnummer suchen, Spalte G Startnummer(Zahl) überschreiben.
I = 3
Do While .Range(„B“ & I) „“
If CInt(.Range(„B“ & I)) = CInt(Me.TextBox1) Then
If CDbl(Me.TextBox6) CDbl(.Range(„G“ & I)) Then
.Range(„G“ & I) = CDbl(Me.TextBox6)
End If
Exit Sub
End If
I = I + 1
Loop
'Spalte B Mannschaftsnummer suchen, Spalte H Name(Text) überschreiben.
I = 3
Do While .Range(„B“ & I) „“
If CInt(.Range(„B“ & I)) = CInt(Me.TextBox1) Then
If CDbl(Me.TextBox7) CDbl(.Range(„H“ & I)) Then
.Range(„H“ & I) = CDbl(Me.TextBox7)
End If
Exit Sub
End If
I = I + 1
Loop
'Spalte B Mannschaftsnummer suchen, Spalte I Ergebnis(Zahl) überschreiben.
I = 3
Do While .Range(„B“ & I) „“
If CInt(.Range(„B“ & I)) = CInt(Me.TextBox1) Then
If CDbl(Me.TextBox8) CDbl(.Range(„I“ & I)) Then
.Range(„I“ & I) = CDbl(Me.TextBox8)
End If
Exit Sub
End If
I = I + 1
Loop
'Spalte B Mannschaftsnummer suchen, Spalte J Startnummer(Zahl) überschreiben.
I = 3
Do While .Range(„B“ & I) „“
If CInt(.Range(„B“ & I)) = CInt(Me.TextBox1) Then
If CDbl(Me.TextBox9) CDbl(.Range(„J“ & I)) Then
.Range(„J“ & I) = CDbl(Me.TextBox9)
End If
Exit Sub
End If
I = I + 1
Loop
'Spalte B Mannschaftsnummer suchen, Spalte K Name (Text) überschreiben.
I = 3
Do While .Range(„B“ & I) „“
If CInt(.Range(„B“ & I)) = CInt(Me.TextBox1) Then
If CDbl(Me.TextBox10) CDbl(.Range(„K“ & I)) Then
.Range(„K“ & I) = CDbl(Me.TextBox10)
End If
Exit Sub
End If
I = I + 1
Loop
'Spalte B Mannschaftsnummer suchen, Spalte L Ergebnis (Zahl) überschreiben.
I = 3
Do While .Range(„B“ & I) „“
If CInt(.Range(„B“ & I)) = CInt(Me.TextBox1) Then
If CDbl(Me.TextBox11) CDbl(.Range(„L“ & I)) Then
.Range(„L“ & I) = CDbl(Me.TextBox11)
End If
Exit Sub
End If
I = I + 1
Loop
End With
End Sub