Hallo, 

ich habe ein Formular in den ich Sachen eintage die dann auf Knopfdruck in eine Tabelle eingetragen werden werden. Die Tabelle wird immer um eine Zeile erweitert beim einfügen. Solage ich mich auf den Tabellenblatt befinde auf den auch die Tabelle ist funktioniert alles. 

Wenn ich jetzt ein anderes Tabellenbaltt (also nicht da wo die Tabelle ist) geöffnet habe und dann von dem Formular den obigen ablauf durchlafen lassen möchte  bekomme ich einen Laufzeitfehler 1004 "Die Select-Metode des Range-Objektes konnte nicht ausgeführt werden."

For znr = 8 To 1000
    If Tabelle1.Range("A" & znr) = "" And Tabelle1.Range("B" & znr) = "" And Tabelle1.Range("C" & znr) = "" And Tabelle1.Range("D" & znr) = "" Then
        Exit For
    End If
Next

    Tabelle1.Range("A8:D8").Select
    Selection.Copy
    Tabelle1.Range("A" & znr).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Tabelle1.Range("A" & znr + 1).Select
    
    'Uhrzeit in Tabelle schreiben
    Tabelle1.Range("A" & znr) = Me.txt_uhr_meldung
    'RUE, INFO oder "" in Tabelle schreiben
    If opbtn_INFO = True Then
    Tabelle1.Range("B" & znr) = "INFO"
    Else
        If opbtn_Rückmeldung = True Then
        Tabelle1.Range("B" & znr) = "RUE"
        Else
        Tabelle1.Range("B" & znr) = ""
        End If
    End If
    'Meldung in Tabelle schreiben
    Tabelle1.Range("C" & znr) = Me.txt_Meldung
    'Meldender in Tabelle schreiben
    Tabelle1.Range("D" & znr) = Me.txt_Meldender

Hat jemand einen Tip für mich wie ich diese Problem lösen kann?