Anwendungs und Objektdefinierter Fehler 1004
25.06.2015 22:51:01
hi
Habe folgendes Problem:
Ich möchte in einem Arbeitsblatt eine Zeile löschen welche die Inhalte enthält die man über eine Userform eingibt und sucht.
Anfänglich lief mein Code ganz gut, aber seit kurzer Zeit liefert mir Excel immer den Fehler "Laufzeitfehler 1004" und der Debugger hinterlegt diese Zeile:
Sheets("User_aktuell").Rows(zeile) = ""
Kann mir vielleicht von euch jemand sagen woran das liegt? Bin schon am Verzweifeln :(
Liebe Grüße und Danke schon im Vorhinein
Hier mein Code:
Private Sub cmd_speichern_Click()
If txt_ID = "" And txt_bn = "" And txt_pw = "" And txt_gruppe = "" Then
Sheets("User_aktuell").Rows(zeile) = ""
'wenn Textfelder leer, dann Zeile leer ; wenn Zeile _
gelöscht werden soll dann nach Rows(zeile).Delete
Else
Worksheets("User_aktuell").Select
Cells(zeile, 1) = txt_ID.Value
Cells(zeile, 2) = txt_bn
Cells(zeile, 3) = txt_pw
Cells(zeile, 4) = txt_gruppe
End If
If txt_ID = "" And txt_bn = "" And txt_pw = "" And txt_gruppe = "" Then
Sheets("User_Original").Rows(zeile).Interior.ColorIndex = 15 'Rows(zeile) ' wenn Textfelder _
leer, dann in User_Original Zeile einfärben
'Worksheets(Array("User_Original", "User_aktuell")).Select
Else
Worksheets("User_Original").Select
Cells(zeile, 1) = txt_ID.Value
Cells(zeile, 2) = txt_bn
Cells(zeile, 3) = txt_pw
Cells(zeile, 4) = txt_gruppe
End If
Unload Me
adminmenue.Show
End Sub