Kopiere nur befüllte Zellen, Skipblanks = true

  • Excel

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von peterfido.

    Kopiere nur befüllte Zellen, Skipblanks = true

    Guten Abend zusammen,

    ich bin seit 2 Tagen am verzweifeln.

    Ich versuche von einem Sheet B, worin eine Tabelle enthalten ist, eine komplette Zeile mit 10 Spalten zu kopieren und in ein anderes Sheet A, an entsprechender Stelle einzufügen.

    Kopieren klappt wunderbar, einfügen auch. Wenn in Sheet B nur nicht diese leeren Zellen wären.

    Ich sage meinem VBA Code, dass er die leeren Zellen nicht mit einfügen soll. Und zwar mit folgendem Code:

    Visual Basic-Quellcode

    1. Range("A1:J1").PasteSpecial Paste:=xlPasteValues, _
    2. Operation:=xlNone, SkipBlanks:=True, Transpose:=False

    Jedoch funktioniert dies nicht. In Sheet A werden die befüllten Zellen durch die leeren Zellen in Sheet B einfach überschrieben.

    Habe ich etwa die SkipBlanks := True Eigenschaft falsch verstanden?

    Bin für jede Hilfe dankbar.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „vbneuling60“ ()

    Hm. Kann ich grad nicht nachvollziehen. Ich habe eine Tabelle A, teilweise lückenhaft, und eine Tabelle B mit 8x5 Zellen komplett gefüllt. Wenn ich A in B mit dem genannten Code reinkopiere, werden alle Felder in B überschrieben, die in A nicht leer sind. Das ist doch Sinn und Ziel, richtig?

    Situation: Sheet 1 = Tabelle A, dort sind die Spalten A bis J komplett markiert. Sheet 2 = Tabelle B, in der dann folgendes Makro ausgeführt wird:

    Visual Basic-Quellcode

    1. ActiveSheet.Previous.Select
    2. Selection.Copy
    3. ActiveSheet.Next.Select
    4. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False

    Über die Verwendung von Selection und Co. ließe sich streiten, aber das ist hier ja auch nicht das Problemthema.



    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „VaporiZed“ ()

    Danke für deine Antwort. Wenn ich eine Testdatei erstelle, funktioniert es auch, wie bei dir. Aber genau in der Datei wo es funktionieren soll, geht es nicht.

    Kann es daran liegen, dass ich in der Tabelle B in den Zellen unabhängig davon ob leer oder befüllt jeweils eine Formel mit Sverweis habe? Aber ich sage ja, übernehme nur die Werte. Das dürfte eigentlivh nicht das Problem sein.

    Es geht beim Kopieren tatsächlich um Leerzellen, also nicht nur nix sichtbar, sondern auch nix hinterlegt. Wenn da ne Formel drinnen ist, wird das natürlich als relevanter Inhalt erkannt. Woher soll Excel auch wissen, was wichtiger ist. Aktueller Inhalt oder Formel? Da bliebe wohl nur das codeaufwendige Zelle-für-Zelle-Kopieren - zumindest AFAIK.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    Leider darf ich die Tabelle nicht anhängen, da vertraulich.
    Gibt es eine andere Lösung?

    Kann ich vielleicht per Makro die Zeile kopieren, in ein neues Sheet einfügen, sodass die Formeln verschwinden und dann die Zeile aus dem neuen Sheet kopieren und in Sheet A einfügen?

    Edit: Selbst wenn ich die Sverweis Formel rausmache, funktioniert es nicht. Echt unglaublich.


    Edit_2: Das ist mein Code:

    Visual Basic-Quellcode

    1. Sub FindeIDZumEinfuegen()
    3. Dim c As Variant
    4. Dim zeileEinfuegen As Long
    5. Dim suche As Variant
    7. Workbooks("MasterdateiInBearbeitung.xlsm").Sheets("Check").Activate
    8. Workbooks("MasterdateiInBearbeitung.xlsm").Sheets("Check").Select
    11. Dim rng As Range
    13. With ActiveSheet.UsedRange
    15. 'Setze Autofilter auf ja und evtl.
    16. '.AutoFilter Field:=20, Criteria1:="=evtl.", Operator:=xlOr, Criteria2:="=ja"
    17. .AutoFilter Field:=19, Criteria1:="=evtl.", Operator:=xlOr, Criteria2:="=ja"
    18. 'Durchlaufe die Schleife auf Basis des Autofilters
    19. For Each rng In ActiveSheet.Range("$A$2:$A$1803").SpecialCells(xlVisible)
    21. Workbooks("MasterdateiInBearbeitung.xlsm").Sheets("Check").Activate
    22. Workbooks("MasterdateiInBearbeitung.xlsm").Sheets("Check").Select
    23. rng.Select
    25. suche = rng.Value
    29. Workbooks("MasterdateiInBearbeitung.xlsm").Sheets("Overview").Activate
    30. Workbooks("MasterdateiInBearbeitung.xlsm").Sheets("Overview").Select
    32. 'Suche in Spalte F nach dem Wert
    33. With Sheets("Overview").Range("F:F")
    34. Set c = .Find(suche, LookIn:=xlValues, LookAt:=xlWhole)
    36. zeileEinfuegen = c.Row
    38. Sheets("Check").Activate
    39. Sheets("Check").Select
    40. 'Range(Cells(rng.Row, 1), Cells(rng.Row, 19)).Select
    41. Range(Cells(rng.Row, 1), Cells(rng.Row, 18)).Select
    42. Selection.Copy
    44. Sheets("Overview").Select
    45. 'Sheets("Overview").Cells(zeileEinfuegen, 6).Select
    46. Range("F" & zeileEinfuegen & ":W" & zeileEinfuegen).Select
    47. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
    50. 'Wenn c nicht gefunden wurde, Kopier Vorgang einleiten
    51. 'If c Is Nothing Then
    53. 'End If
    56. End With
    59. Next
    62. End With
    65. End Sub

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „vbneuling60“ ()

    Hallo peterfido,

    danke für den Hinweis.

    Hier die Tabellen mit unkritischen Daten.

    Die CopyPaste Funktion dazu lautet:

    Visual Basic-Quellcode

    1. Sub FindeIDZumEinfuegen()
    3. Dim c As Variant
    4. Dim zeileEinfuegen As Long
    5. Dim suche As Variant
    7. Workbooks("Test.xlsm").Sheets("Check").Activate
    8. Workbooks("Test.xlsm").Sheets("Check").Select
    11. Dim rng As Range
    13. With ActiveSheet.UsedRange
    15. 'Setze Autofilter auf ja und evtl.
    16. .AutoFilter Field:=19, Criteria1:="=evtl.", Operator:=xlOr, Criteria2:="=ja"
    18. 'Durchlaufe die Schleife auf Basis des Autofilters
    19. For Each rng In ActiveSheet.Range("$A$2:$A$1803").SpecialCells(xlVisible)
    21. Workbooks("Test.xlsm").Sheets("Check").Activate
    22. Workbooks("Test.xlsm").Sheets("Check").Select
    23. rng.Select
    25. suche = rng.Value
    29. Workbooks("Test.xlsm").Sheets("Overview").Activate
    30. Workbooks("Test.xlsm").Sheets("Overview").Select
    32. 'Suche in Spalte F nach dem Wert
    33. With Sheets("Overview").Range("F:F")
    34. Set c = .Find(suche, LookIn:=xlValues, LookAt:=xlWhole)
    36. zeileEinfuegen = c.Row
    40. 'MsgBox (zeileEinfuegen)
    41. Sheets("Check").Activate
    42. Sheets("Check").Select
    43. Range(Cells(rng.Row, 1), Cells(rng.Row, 19)).Select
    44. Selection.Copy
    46. Sheets("Overview").Select
    47. 'Sheets("Overview").Cells(zeileEinfuegen, 6).Select
    48. Range("F" & zeileEinfuegen & ":W" & zeileEinfuegen).Select
    49. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
    52. 'Wenn c nicht gefunden wurde, Kopier Vorgang einleiten
    53. 'If c Is Nothing Then
    55. 'End If
    58. End With
    61. Next
    64. End With
    67. End Sub


    Ich hoffe, du siehst den Fehler, ich habe es aufgegeben.

    Vielen lieben Dank.
    Dateien

    • Test.xlsx

      (121,55 kB, 470 mal heruntergeladen, zuletzt: )

    Hallo,

    so wie es aussieht, ist für Excel eine Zelle im UsedRange nicht mehr Empty. Daher überspringt er die auch nicht.

    Workaroundvorschlag:

    Visual Basic-Quellcode

    1. Option Explicit
    3. Sub FindeIDZumEinfuegen()
    5. Dim c As Variant
    6. Dim zeileEinfuegen As Long
    7. Dim suche As Variant
    8. Dim wQuelle As Worksheet
    9. Dim wZiel As Worksheet
    10. Dim rng As Range
    11. Dim Spalte As Long
    13. Set wQuelle = Sheets("Check")
    14. Set wZiel = Sheets("Overview")
    16. With wQuelle.UsedRange
    17. .AutoFilter 'Filter löschen
    18. .AutoFilter Field:=19, Criteria1:="=evtl.", Operator:=xlOr, Criteria2:="=ja" 'Setze Autofilter auf ja und evtl.
    19. For Each rng In wQuelle.Range("$A$2:$A$1803").SpecialCells(xlVisible)
    20. suche = rng.Value
    21. With wZiel.Range("F:F")
    22. Set c = .Find(suche, LookIn:=xlValues, LookAt:=xlWhole)
    23. zeileEinfuegen = c.Row
    24. For Spalte = 1 To 19
    25. If wQuelle.Cells(rng.Row, Spalte).Value <> "" Then
    26. wZiel.Cells(zeileEinfuegen, Spalte + 5).FormulaR1C1 = wQuelle.Cells(rng.Row, Spalte).Value
    27. End If
    28. Next
    29. End With
    30. Next
    31. End With
    32. Set wQuelle = Nothing
    33. Set wZiel = Nothing
    35. End Sub

    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Hallo,

    ich habe einfach im Direktfenster getestet:

    Visual Basic-Quellcode

    1. debug.Print isempty(cells(4,6))
    2. Falsch


    wobei die Zelle F4 leer ist. Excel meldet dann aber trotzdem falsch.

    Zeile26:
    Die Formel habe ich genommen um eine evtl. vorhandene Formel zu überschreiben.
    Gruß
    Peterfido

    Keine Unterstützung per PN!