Bin schon wieder ratlos - Code anbei
Frank
Mittels folgendem Code schreibe ich Daten in eine Tabelle, der Code ist auch von diesem Forum und wurde aber immer wieder neu modifiziert.
Private Sub CommandButton1_Click()
'Spiel 1
Dim zelle As Range
Dim sBegriff As String
sBegriff = TextBox3.Value
If sBegriff = "" Then Exit Sub
Set zelle = Worksheets("1. Liga").Columns(53) _
.Find(sBegriff, LookIn:=xlValues, LookAt:=xlWhole)
If zelle Is Nothing Then
MsgBox "Suchbegriff wurde nicht gefunden!"
End If
Dim Dia As UserForm
Dim lng As Long
Dim Treffer As Range
Dim i As Integer
Set Treffer = Sheets("1. Liga").Columns(53).Find(What:=Me.TextBox3, LookIn:=xlValues, LookAt:= _
xlWhole)
If Treffer Is Nothing Then
lng = Range("A65536").End(xlUp).Offset(1, 0).Row
Else
i = MsgBox("Dieser Satz wurde bereits erfasst! Überschreiben?", vbYesNo + vbQuestion)
If i = 6 Then
lng = Treffer.Row
Else
Exit Sub
End If
End If
Set Dia = frmAnsetzungen
Worksheets("1. Liga").Activate
With Dia
Cells(lng, 54).Value = CDate(TextBox12)
Cells(lng, 55).Value = .TextBox13.Text
Cells(lng, 56).Value = CDate(TextBox14)
Cells(lng, 57).Value = .TextBox15.Text
Cells(lng, 59).Value = .TextBox17.Text
Cells(lng, 60).Value = CDbl(TextBox18)
Cells(lng, 62).Value = CDbl(TextBox20)
Cells(lng, 63).Value = CDbl(TextBox21)
Cells(lng, 65).Value = CDbl(TextBox23)
End With
TextBox12 = Format(TextBox12, "dd.mm.yyyy")
TextBox13 = Format(TextBox13, "ddd")
TextBox14 = Format(TextBox14, "[hh]:mm")
End Sub
Wer kann helfen!!!
Danke und Gruß Frank H.!