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?