Office: Bei X in Zelle kopieren aber abfragen ob der wert funktioniert

Servus Community,

ich komme einfach nicht weiter....
ich habe folgenden Code zusammengebastelt.

Sub Worksheet_Deactivate()


Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
Dim leereZeile
Dim EintragCheck1 As Variant
Dim eintragCheck2 As Variant

With Tabelle14
ZeileMax = .UsedRange.Rows.Count
n = 2
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 10).Value = "x" Then 'kopieren wenn X vorhanden
n = Tabelle215.Cells(Rows.Count, 1).End(xlUp).Row + 1 'leere Zelle Suchen
eintragCheck2 = Sheets("FCL10").Cells(1).Value
If EintragCheck1 = eintragCheck2 Then
MsgBox "Eintrag schon vorhanden"
Exit Sub
Else
.Rows(Zeile).Copy Destination:=Tabelle215.Rows(n) 'einfügen der Zelle in FCL10 Tabelle

End If
End If
Next Zeile
End With
End Sub


Der Code soll in Zeile 10 ein x identifizieren und in Tabelle 215 kopieren.
ich habe über 200 aufgebaute Tabellenblätter. Es soll auch geschaut werden ob ein wert schon vorhanden ist, wenn er vorhanden ist soll die Zeile nicht kopiert werden.
Den Code habe ich nicht in ein Modul gesetzt sondern in jede einzelnes Tabellenblatt.

könnt ihr mir helfen?

 

warum
If EintragCheck1 = eintragCheck2 Then
EintragCheck1 wird doch nicht bekegt ist also Leer

 

wie gesagt ich hab mir das zusammengebastelt aus copy, paste und modular angepasst. So Fehler sind bestimmt mehr drin sonst würde er ja funktionieren :D

 

mal eine Vermutung,

Code:

Option Explicit

Sub Worksheet_Deactivate()
    Dim Zeile As Long
    Dim ZeileMax As Long
    Dim n As Long
    Dim leereZeile
    Dim EintragCheck1 As Variant
    Dim eintragCheck2 As Variant
    With Tabelle14
        ZeileMax = .UsedRange.Rows.Count
        n = 2
        For Zeile = 2 To ZeileMax
            If .Cells(Zeile, 10).Value = "x" Then
                n = Tabelle215.Cells(Rows.Count, 1).End(xlUp).Row + 1
                eintragCheck2 = Sheets("FCL10").Cells(1).Value
                If Tabelle215.Cells(n, 1) = "" Then
'                If EintragCheck1 = eintragCheck2 Then
'                    MsgBox "Eintrag schon vorhanden"
'                    Exit Sub
'                Else
                    .Rows(Zeile).Copy Destination:=Tabelle215.Rows(n)
                End If
            End If
        Next Zeile
    End With
End Sub

Gruß Hajo

 

irgendwie funktioniert da nix

 

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue. Ich baue keine Datei nach.

Sollte die Datei verlinkt werden?

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Bilder statt Datei | Excel ist sexy!

Es sollte ein aussagekräftiger Name sein.

Das ist nur meine Meinung zu dem Thema.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
ändern.

Das ist nur meine Meinung zu dem Thema.

Gruß Hajo