ich habe ein kleines Problem mit einem Code. Der Code kopiert aus einer Tabelle bestimmte Ausschnitte in eine andere Tabelle in einer Arbeitsmappe.
Da nicht alle Zelle aus der ersten Tabelle gefüllt sind, sollen Leerzellen mit dem darüber stehenden Wert gefüllt werden.
Jetzt habe ich aber das Problem das für die nächste Zeit keine Leerzeilen in der Ausgangstabelle vorhanden sind. Dadurch kommt es zu einem Laufzeitfehler, der wieso auch immer sogar übersprungen wird, wenn ich das Marko komplett durchlaufen lasse sondern nur wenn ich Einzelschritte prüfe.
Das Problem allerdings ist das alle Zellen in der zweiten Tabelle mit den Kopfzeilen der Tabelle überschrieben werden?
Wie kann ich prüfen, ob Tabellenzeilen leer sind, wenn ja, er diese auswählen soll und dann diese mit dem Wert darüber befüllt.
Da ja der Code beim Ablaufen keine Fehlermeldung generiert, ist eine On Error resume next Anweisung nicht hilfreich, bzw. es müssten ja eigentlich zwei Code Zeilen übersprungen worden.
P.S. ich weiß der Code ist nicht super und wahrscheinlich zu komplex geschrieben, aber ich befinde mich am Anfang und passe die Markos nach Aufzeichnung an.
Windows("KD3-6.xlsm").Activate
Sheets("KD_6").Select
Range("KD6er[[Auftrag]:[Artikelcode]]").Select
Application.CutCopyMode = False
Selection.Copy
Windows("KW47.xlsm").Activate
Sheets("6er").Select
Range("_6erProjekte[[Projekt]:[Artikelcode]]").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("KD3-6.xlsm").Activate
Range("KD6er[[Bestellmenge]:[Name]]").Select
Application.CutCopyMode = False
Selection.Copy
Windows("KW47.xlsm").Activate
Range("_6erProjekte[[Bestellmenge]:[Name]]").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("_6erProjekte[[Projekt]:[Artikelcode]]").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
''# On Error Resume Next (bringt hier ja nix)
Selection.SpecialCells(xlCellTypeBlanks).Select
Application.CutCopyMode = False
Selection.FormulaR1C1 = "=R[-1]C"