Makro läuft nicht mehr u. Office 16
19.10.2021 07:18:18
Stefan
ich habe hier mal ein Makro erhalten, was unter Office 10 Perfekt lief und seit der Umstellung auf Office 16 nun nicht mehr. Das Makro soll die ganze Zeile von A bis V aus der "Datenbank" nach Eingabe des Datums in der jeweiligen zeile in V nach Tabellenblatt "Erledigt" kopiert werden. Den Fehler habe ich Euch hier dick Makiert und wird auch so in Excel so angezeigt. Vlt. hat jemand eine Idee woran das liegen könnte.
Vielen lieben Dank bis hier
Beste Grüße
Stefan
Option Explicit
Const Störungsdatenbank_HWMI = "Störungsdatenbank_HWMI" 'Datei Name
Const ZielEdr = "A25000" 'End Adresse in Erledigt !!
Private Sub Worksheet_Change(ByVal Target As Range) 'Sofort Reaktion bei Änderungen
On Error GoTo Fehler
If Target.Column = 1 Then
End If
Dim MP As Object, nxAdr As String 'Verschieben in Tabelle Erledigt
Dim CopyBer As String, z As Integer
If Target.Column 22 Then Exit Sub
If IsDate(Target) Then Else Exit Sub
If Target.Row >= 3 And Target.Row Set MP = Workbooks("Störungsdatenbank_HWMI").Worksheets("Erledigt") 'Datei Name der Zielmappe, Copy in Erledigt (unter Office 10 läufts !)
nxAdr = MP.Range(ZielEdr).End(xlUp).Offset(1, 0).Address 'Datei Name der Zielmappe, Copy in Erledigt
z = Target.Row 'Eingabe Zeile in Tabelle Datenbank
CopyBer = CStr("A" & z & ":V" & z) 'Copy Bereich
ThisWorkbook.Worksheets("Datenbank").Range(CopyBer).Copy
MP.Range(nxAdr).PasteSpecial xlValues 'Paste in Erledigt
ThisWorkbook.Worksheets("Datenbank").Rows(z).Delete Shift:=xlUp 'Nach dem kopieren ganze Zeile löschen
Application.CutCopyMode = False 'Zwischenspeicher leeren
MsgBox "Datensatz wird in die Tabelle -Erledigt- verschoben, Datensätze ohne Datum oder Leere Felder werden übersprungen !"
Worksheets("Erledigt").Protect "Netzwerk"
Exit Sub
End If
Fehler:
Exit Sub
End Sub