Hallo zusammen,
ich habe einen längeren Code, um eine Datei mit Rohdaten zu bearbeiten und nach bestimmten Kunden zu filtern. Bei einigen Kunden gibt es in der Spalte X leere Zellen, die ich mit dem Befehl
Columns("X:X").SpecialCells(xlCellTypeBlanks).Select
auswähle und später mit dem Wert in der Zelle darüber füllen lassen. Nun gibt es in der Datei aber auch Ergebnisse von Kunden, bei denen im Anschluss keine leeren Zellen zu füllen sind in der Spalte X. Wie sage ich mit meinem Code, das er die leeren Zellen nur auswählen und füllen soll, wenn auch welche vorhanden sind?
Hier ein kleiner Auszug aus dem Code mit den entscheidenden Eingaben:
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Columns("X:X").SpecialCells(xlCellTypeBlanks).Select
Application.CutCopyMode = False
Selection.FormulaR1C1 = "=R[-1]C"
Set wkb = ActiveWorkbook
Set wksData = wkb.Worksheets("Tabelle1")
wkb.Worksheets.Add after:=wksData
Set wksPivot = ActiveSheet
Danke im Voraus für Eure Hilfe.