Daten überschreiben funktioniert nicht

Computer: Software & Programmierung Visual Basic
#1

Hallo,
hier ist noch einmal der „langsame“ Skaletti.
Habe doch noch eine Kleinigkeit die nicht funzt.
Übertragen der Daten an die richtige Stelle klappt.
Bei Bedarf möchte ich die Daten für eine eventuelle Korrektur überschreiben können, das klappt nicht.
Die Daten kommen immer aus ein UserForm mit Textboxen.
Es werden Zahlen übertragen, kein Text.
Eigendlich müsste mein Code doch funzen.
Wer kann helfen?
Gruß Skaletti!

Hier der Code:

'Mannschaftstabellen
'Startnummer in Spalte D,G oder J suchen(TextBox1)
'Ergebnis übertragen in Spalte F,I oder L (TextBox8)
With wksKlasse

'Startnummer in Spalte D suchen,Ergebnis in Spalte F
I = 3
Do While .Range("D" & I) ""
 If CInt(.Range("D" & I)) = CInt(Me.TextBox1) Then
 If CDbl(Me.TextBox8) CDbl(.Range("F" & I)) Then
 .Range("F" & I) = CDbl(Me.TextBox8)
 If 1 = 1 Then GoTo ende
 End If
Else
End If
I = I + 1
Loop
'Startnummer in Spalte G suchen,Ergebnis in Spalte I
I = 3
Do While .Range("G" & I) ""
 If CInt(.Range("G" & I)) = CInt(Me.TextBox1) Then
 If CDbl(Me.TextBox8) CDbl(.Range("I" & I)) Then
 .Range("I" & I) = CDbl(Me.TextBox8)
 If 1 = 1 Then GoTo ende
 End If
Else
End If
I = I + 1
Loop
'Startnummer in Spalte J suchen,Ergebnis in Spalte L
I = 3
Do While .Range("J" & I) ""
 If CInt(.Range("J" & I)) = CInt(Me.TextBox1) Then
 If CDbl(Me.TextBox8) CDbl(.Range("L" & I)) Then
 .Range("L" & I) = CDbl(Me.TextBox8)
 If 1 = 1 Then GoTo ende
 End If
Else
End If
I = I + 1
Loop
End With
ende:


 Unload Me

End Sub
#2

Hallo Skaletti,

Bei Bedarf möchte ich die Daten für eine eventuelle Korrektur
überschreiben können, das klappt nicht.

wer/was hindert dich zu überschreiben?

Was soll das sein:
If 1 = 1 Then GoTo ende
?

Den Else-Zweig brauchst du nicht. Genaugenommen auch die zweite IF-Abfrage nicht.

probiers mal so:

Option Explicit
'
Sub tt()
Dim Spa, Zei, wks, TB1, TB8
Set wks = Worksheets("Tabelle1")
TB1 = "4711"
TB8 = "007"
For Spa = 4 To 10 Step 3 'D,G,J
 With wks.Columns(Spa)
 Zei = 3
 While .Cells(Zei, 1) ""
 If CInt(.Cells(Zei, 1)) = CInt(TB1) Then
 If CDbl(TB8) CDbl(.Cells(Zei, 3)) Then
 .Cells(Zei, 3) = CDbl(TB8)
 End If
 End If
 Zei = Zei + 1
 Wend
 End With
Next Spa
'Unload Me
End Sub

Gruß
Reinhard

#3

Hallo Reinhard,
Vielen Dank für die schnelle Hilfe
Funzt allerbest.

Gruß Skaletti!