Problem mit Makro
Frank
Seit gestern bin ich wieder einmal am verzweifeln. Folgenden Code verwende ich um Daten in eine Tabelle zu schreiben. Leider bekomme ich immer die Meldung Objekt erforderlich.
Dim Dia As UserForm
Dim lng As Long
Dim Treffer As Range
Dim i As Integer
Set Treffer = MP3.Columns(31).Find(What:=Me.TextBox1, 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 = frmMP3
Worksheets("MP3").Activate
With Dia
Cells(lng, 33).Value = .TextBox2.Text
Cells(lng, 34).Value = .TextBox3.Text
End With
Die fett markierte Zeile wird dann im Debugger gelb markiert!!! Wo könnte der Fehler liegen. Um eine Datei anzuhängen ist die Datei aber leider zu groß!!!
Für Ratschläge wie immer herzlichen Dank im Vorraus!!!
Gruß Frank H.!!!