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. Zellen in anderes Blatt verschieben

    in Microsoft Excel Hilfe
    Zellen in anderes Blatt verschieben: Hallo zusammen, ich weiß, dass dieses Thema schon mehrfach hier bearbeitet wurde, aber leider haben bisher keine Tipps geholfen oder ich bin zu dusselig. Ich habe eine Tabelle gemacht mit 4...
  3. Daten kopieren und in nächste frei Zelle einfügen

    in Microsoft Excel Hilfe
    Daten kopieren und in nächste frei Zelle einfügen: Hallo liebe User, ich bin schon seit einiger Zeit auf der Suche nach der richtigen Lösung. Ich hoffe das ihr mir weiterhelfen könnt. Ich habe ein Tabellenblatt mit dem Namen „Daten1“ Und ein...
  4. Zellen verbinden und Text kopieren

    in Microsoft Excel Hilfe
    Zellen verbinden und Text kopieren: Hallo zusammen, ich benötige euere Hilfe. Ich habe folgende Tabelle: Spalte A Spalte B 123123 Text 1 123123 Text 2 123123 Text 3 123124 Text 4 123124 Text 5 Ich möchte...
  5. Leere Zellen suchen und Zeilen kopieren

    in Microsoft Excel Hilfe
    Leere Zellen suchen und Zeilen kopieren: Hallo liebe Excel Profis Ich hätte gerne Eure Hilfe in Anspruch genommen. Ich habe ein Tabellenblatt wo ich in Spalte B nach leeren Zellen suchen möchte. Sollten dort leere Zellen sein, möchte...
  6. Zellen nach unten Kopieren in Abhängigkeit von anderen Spalten

    in Microsoft Excel Hilfe
    Zellen nach unten Kopieren in Abhängigkeit von anderen Spalten: Hallo, leider habe ich in anderen Beiträgen nichts Vergleichbares gefunden bzw. konnte für mein Problem auch keine Lösung aus einer Abwandlung anderer Beiträge erstellen... Daher meine Frage:...
  7. Mehrere Zellen aus geschlossener Datei kopieren

    in Microsoft Excel Hilfe
    Mehrere Zellen aus geschlossener Datei kopieren: Hallo, ich versuche aus einer geschlossene .xls Datei 7 Zellen zu aktive Mappe zu kopieren. Das Klappt aber nicht mit folgenden Code. Sub aa() Dim Rechnung As String Dim Datum As String Dim...
  8. Zelle x mal kopieren, dann nächste Zelle x mal kopieren

    in Microsoft Excel Hilfe
    Zelle x mal kopieren, dann nächste Zelle x mal kopieren: Hallo zusammen, mein Problem ist etwas komplizierter. Ich möchte gerne, dass wenn ich einen bestimmten Zeitraum angebe und einen bestimmten Wochentag, dass dann alle Montage des Zeitraumes...

Users found this page by searching for:

  1. excel nur den wert einer zelle übernehmen

  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