Laufzeitfehler "1004"

[excelri]

Hallo Zusammen,
ich bekomme miteinmal ein Laufzeitfehler "1004"  beim Datenspeichern von Textboxen in Zellen.

Es hat aber schon funktioniert.

Das ist der Code:

'Daten Speichern
Private Sub CommandButton2_Click()
    If TextBox1 = "" Then
        Rows(zeile).Delete
    Else
       Cells(zeile, 1) = TextBox1.Value
        Cells(zeile, 3) = TextBox2
        Cells(zeile, 6) = TextBox3.Text
        Cells(zeile, 4) = TextBox5
        Cells(zeile, 5) = TextBox4
        Cells(zeile, 14) = TextBox6
        Cells(zeile, 2) = TextBox7
        Cells(zeile, 20) = TextBox8
        Cells(zeile, 21) = TextBox9
        Cells(zeile, 22) = TextBox10

        Cells(zeile, 17) = TextBox12
        Cells(zeile, 23) = TextBox13
        Cells(zeile, 13) = TextBox14
        Cells(zeile, 24) = TextBox15
        Cells(zeile, 12) = TextBox16
        Cells(zeile, 25) = TextBox17
        Cells(zeile, 11) = TextBox18
        Cells(zeile, 26) = TextBox21
        Cells(zeile, 19) = TextBox22
        Cells(zeile, 18) = TextBox24
        Cells(zeile, 10) = TextBox26
        Cells(zeile, 23) = TextBox27

    End If
   
     UserFormSchliessen.Show
End Sub

[Zwergel]

Hi,

woher soll dein Code denn wissen, auf welchem Tabellenblatt die Aktionen passieren sollen??
In der geposteten Form hat dieser Code sicher noch nie funktioniert, halte dies für eine kühne Behauptung

[RPP63]

Moin!
Ich hasse die "Fehlerbeschreibung": "Hab da einen LZF 1004!"
Da steht IMMER etwas drunter!
Da Du uns dies nicht kundtust:
Das gerade zufällig aktive Blatt hat einen Schutz.

Gruß Ralf

[excelri]

Hi Michael, 

wie muss man das aktivieren ?

Ich haben nur die Daten in einen Arbeitsblatt "Datenkal" . Die letzte Änderung habe mich gemacht in dem ich eine ListBox
noch in die Userform eingefügt habe . Diese nimmt aber die Daten aus einen anderen Arbeitsblatt. Vielleicht hängt das damit
zusammen. es hat schon funktioniert.

Danke Grüße Werner

[excelri]

Hi Ralf,  es steht nur "Anwendungs - oder objektdefinierter Fehler "

Beim Debuggen bleint er  hängen beim Speicher Zelle 1

'Daten Speichern
Private Sub CommandButton2_Click()
   
    If TextBox1 = "" Then
        Rows(zeile).Delete
    Else
       Cells(zeile, 1) = TextBox1.Value
        Cells(zeile, 3) = TextBox2
        Cells(zeile, 6) = TextBox3.Text
        Cells(zeile, 4) = TextBox5
        Cells(zeile, 5) = TextBox4

Grüße Werner

[Steffl]

Hallo Werner,

welchen Wert hat die Variable zeile wenn der Fehler auftaucht?