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

Helfe beim Thema Bei X in Zelle kopieren aber abfragen ob der wert funktioniert in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Servus Community, ich komme einfach nicht weiter.... ich habe folgenden Code zusammengebastelt. Sub Worksheet_Deactivate() Dim Zeile As Long Dim... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von MasterFS, 10. April 2021.

  1. MasterFS Neuer User

    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?
     
    MasterFS, 10. April 2021
    #1
  2. Hajo_Zi
    Hajo_Zi Erfahrener User
    warum
    If EintragCheck1 = eintragCheck2 Then
    EintragCheck1 wird doch nicht bekegt ist also Leer

    Bei X in Zelle kopieren aber abfragen ob der wert funktioniert GrußformelBei X in Zelle kopieren aber abfragen ob der wert funktioniert Homepage
     
    Hajo_Zi, 10. April 2021
    #2
  3. MasterFS Neuer User
    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
     
    MasterFS, 10. April 2021
    #3
  4. Hajo_Zi
    Hajo_Zi Erfahrener User

    Bei X in Zelle kopieren aber abfragen ob der wert funktioniert

    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
    
     
    Hajo_Zi, 10. April 2021
    #4
  5. MasterFS Neuer User
    irgendwie funktioniert da nix Bei X in Zelle kopieren aber abfragen ob der wert funktioniert :(
     
    MasterFS, 11. April 2021
    #5
  6. Hajo_Zi
    Hajo_Zi Erfahrener User
    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.

     
    Hajo_Zi, 11. April 2021
    #6
Thema:

Bei X in Zelle kopieren aber abfragen ob der wert funktioniert

Die Seite wird geladen...
  1. Bei X in Zelle kopieren aber abfragen ob der wert funktioniert - Similar Threads - Zelle kopieren abfragen

  2. Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.)

    in Microsoft Excel Hilfe
    Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.): Hallo, ich benötige Hilfe für ein Problem, welches ich leider selbst schwerlich als Anfänger nicht lösen kann: Ich möchte von dem Tabellenblatt "Tabelle1" aus den Zellen B8:B14, K8:K14, B18:B25,...
  3. Wert einer Zelle kopieren wenn..

    in Microsoft Excel Hilfe
    Wert einer Zelle kopieren wenn..: Hallo zusammen, ich möchte folgendes in Excel erreichen: Beispiel: Wenn der Wert von A1 = 1 ist, dann soll der Wert aus Zelle A2 in Zelle A3 kopiert werden Wie bekomme ich das hin. Vielen Dank
  4. Wenn in Zelle bestimmter Wert dann kopieren

    in Microsoft Excel Hilfe
    Wenn in Zelle bestimmter Wert dann kopieren: Hallo, ich bin absolut neu was Excel angeht und suche eine Lösung für mein Problem. Ich habe zwei Arbeitsblätter ("Übersicht Zimmer & "Bereiche") mit Haushaltsaufgaben und deren Turnus. Nun...
  5. Textausgabe eines Formelergebnisses in anderer Zelle

    in Microsoft Excel Hilfe
    Textausgabe eines Formelergebnisses in anderer Zelle: Liebe Excel-Expert:innen Ich benötige für die Weiterverarbeitung eines Excel-Files in einem anderen Programm reine Textzellen. Das heisst, die unten stehenden Formel (B2) soll in der Zelle A2 als...
  6. Zellen automatisch in ein neues Blatt kopieren wenn

    in Microsoft Excel Hilfe
    Zellen automatisch in ein neues Blatt kopieren wenn: Hallo zusammen, ich habe eine Tabelle (Tabelle1) in der regelmäßig neue Kunden eingetragen werden. Kd.-Nr. / Kundendaten / Flyer erhalten / etc. In der Spalte (Flyer erhalten) wird "ja"...
  7. Wert in Zelle kopieren und in nächster freie Zelle einfügen

    in Microsoft Excel Hilfe
    Wert in Zelle kopieren und in nächster freie Zelle einfügen: Hallo zusammen, ich habe jetzt schon etwas länger recherchiert, habe aber vermutlich nen dickes Brett vorm Kopf ;-) Mein Problem möchte ich gerne im VBA als Makro erledigen. In der Zelle F4 ist...
  8. Bedingte Formatierung in Nächste Zelle Kopieren

    in Microsoft Excel Hilfe
    Bedingte Formatierung in Nächste Zelle Kopieren: Hallo, undzwar möchte ich in meinem Messprotokoll Die Zelle 11 in Zelle 12 Kopieren. Dabei verschiebt sich aber die Formatierung nicht mit. Die Regel bezieht sich dann immer noch auf Zelle 11...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden