Hallo,
brauche mal wieder etwas Hilfe.
In einer Tabelle soll immer eine ganze Zeile überschrieben werden.
Die Spalten mit Zahlen lassen sich überschreiben, die mit Text nicht.
Die Daten kommen aus einer UserForm mit TextBoxen. TextBoxen und
Spalten sind richtig definiert. Weiss im Moment nicht weiter, meiner
Meinung nach müsste das Makro funzen. Es gibt keine Fehlermeldung.
Wer kann helfen?
Mit Dank im Voraus.
Gruß Skaletti!
Hier Tabelle und Code:
http://www.hostarea.de/server-06/Juni-9044b9d9f2.xls
Private Sub CommandButton1_Click()
Call Bedingtes_übertragen
'Gesamttabelle Mannschaften ändern-überschreiben (Tabelle3 Mannschaften)für Korrekturen
With Tabelle3
'Mannschaftsnummer suchen in SpalteA,SpalteB Mannschaftsname überschreiben(Text)
I = 3
Do While .Range(„A“ & I) „“
If (.Range(„A“ & I)) = (Me.TextBox1) Then
If (Me.TextBox2) (.Range(„B“ & I)) Then
.Range(„B“ & I) = (Me.TextBox2)
End If
End If
I = I + 1
Loop
'Mannschaftsnummer suchen in SpalteA,SpalteC Startnummer überschreiben(Zahl)
I = 3
Do While .Range(„A“ & I) „“
If CInt(.Range(„A“ & I)) = CInt(Me.TextBox1) Then
If CDbl(Me.TextBox3) CDbl(.Range(„C“ & I)) Then
.Range(„C“ & I) = CDbl(Me.TextBox3)
End If
End If
I = I + 1
Loop
'Mannschaftsnummer suchen in SpalteA,SpalteD Name überschreiben(Text)
I = 3
Do While .Range(„A“ & I) „“
If (.Range(„A“ & I)) = (Me.TextBox1) Then
If (Me.TextBox4) (.Range(„D“ & I)) Then
.Range(„D“ & I) = (Me.TextBox4)
End If
End If
I = I + 1
Loop
'Mannschaftsnummer suchen in SpalteA,SpalteE Ergebnis überschreiben(Zahl)
I = 3
Do While .Range(„A“ & I) „“
If CInt(.Range(„A“ & I)) = CInt(Me.TextBox1) Then
If CDbl(Me.TextBox5) CDbl(.Range(„E“ & I)) Then
.Range(„E“ & I) = CDbl(Me.TextBox5)
End If
End If
I = I + 1
Loop
'Mannschaftsnummer suchen in SpalteA,SpalteF Startnummer überschreiben(Zahl)
I = 3
Do While .Range(„A“ & I) „“
If CInt(.Range(„A“ & I)) = CInt(Me.TextBox1) Then
If CDbl(Me.TextBox6) CDbl(.Range(„F“ & I)) Then
.Range(„F“ & I) = CDbl(Me.TextBox6)
End If
End If
I = I + 1
Loop
'Mannschaftsnummer suchen in SpalteA,SpalteG Name überschreiben(Text)
I = 3
Do While .Range(„A“ & I) „“
If (.Range(„A“ & I)) = (Me.TextBox1) Then
If (Me.TextBox7) (.Range(„G“ & I)) Then
.Range(„G“ & I) = (Me.TextBox7)
End If
End If
I = I + 1
Loop
'Mannschaftsnummer suchen in SpalteA,SpalteH Ergebnis überschreiben(Zahl)
I = 3
Do While .Range(„A“ & I) „“
If CInt(.Range(„A“ & I)) = CInt(Me.TextBox1) Then
If CDbl(Me.TextBox8) CDbl(.Range(„H“ & I)) Then
.Range(„H“ & I) = CDbl(Me.TextBox8)
End If
End If
I = I + 1
Loop
'Mannschaftsnummer suchen in SpalteA,SpalteI Startnummer überschreiben(Zahl)
I = 3
Do While .Range(„A“ & I) „“
If CInt(.Range(„A“ & I)) = CInt(Me.TextBox1) Then
If CDbl(Me.TextBox9) CDbl(.Range(„I“ & I)) Then
.Range(„I“ & I) = CDbl(Me.TextBox9)
End If
End If
I = I + 1
Loop
'Mannschaftsnummer suchen in SpalteA,SpalteJ Name überschreiben(Text)
I = 3
Do While .Range(„A“ & I) „“
If (.Range(„A“ & I)) = (Me.TextBox1) Then
If (Me.TextBox10) (.Range(„J“ & I)) Then
.Range(„J“ & I) = (Me.TextBox10)
End If
End If
I = I + 1
Loop
'Mannschaftsnummer suchen in SpalteA,SpalteK Ergebnis überschreiben(Zahl)
I = 3
Do While .Range(„A“ & I) „“
If CInt(.Range(„A“ & I)) = CInt(Me.TextBox1) Then
If CDbl(Me.TextBox11) CDbl(.Range(„K“ & I)) Then
.Range(„K“ & I) = CDbl(Me.TextBox11)
End If
End If
I = I + 1
Loop
'Mannschaftsnummer suchen in SpalteA,SpalteL Klasse überschreiben(Text)
I = 3
Do While .Range(„A“ & I) „“
If (.Range(„A“ & I)) = (Me.TextBox1) Then
If (Me.ComboBox1) (.Range(„L“ & I)) Then
.Range(„L“ & I) = (Me.ComboBox1)
End If
Exit Sub
End If
I = I + 1
Loop
End With
End Sub