Überschreiben mit Zahlen funktioniert,Text nicht.

Von: (abgemeldet) , Frage gestellt am Fr, 26. Jun 2009

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

2 Antworten zu dieser Frage

Antwort von nach 25 Minuten 0 hilfreich

Re: Überschreiben mit Zahlen funktioniert,Text nic

Hallo Skaletti,

benutze bitte den Html-Tag pre, wird unterhalb des Eingabefensters erläutert.

Gruß
Reinhard

Passend zu diesem Artikel haben wir auf MyVideo das Video "Visual Basic 2008 Tutorial (German) save & load & Login" gefunden.

Weitere passende Videos:

Antwort von (abgemeldet) nach 48 Minuten 0 hilfreich

Re^2: Überschreiben mit Zahlen funktioniert,Text n

Hallo Reinhard,
Danke für die schnelle Antwort.
Das ist wieder was neues für mich, so richtig?
Gruß Skaletti!

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

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!