Guten Morgen,
um Werte aus einer Spalte (F) in andere Zellen zu kopieren nutze ich ein Makro. Leider fehlt mir das fortgeschrittene VBA Wissen um eine Ausnahme zu definieren. Es sollen keine Zellen in Spalte F berücksichtigt werden die leer sind. Ich hatte gehofft das geht mit der "If Then" Funktion, leider scheitere ich da aber dran..
Über ein paar Tipps würde ich mich sehr freuen!
Nachfolgend mein aktuelles Makro:
Sub WerteHinzufuegen()
Range("H2:H150").ClearContents
Range("F2:F150").Copy
Range("H2:H150").PasteSpecial _
Paste:=xlPasteValues, Operation:=xlAdd
Range("I2:I150").PasteSpecial _
Paste:=xlPasteValues, Operation:=xlAdd
Range("K2:K150").PasteSpecial _
Paste:=xlPasteValues, Operation:=xlAdd
Range("F2:F150").ClearContents
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
|