Beim Kopieren leere Zellen auslassen.
04.10.2004 21:46:03
Sabine
ich habe hier im Forum ein kleines Makro gefunden mit dem ich einen Bereich Kopieren kann, um ihn an anderer Stelle wieder einzufügen.
Sub Zahlenreihe()
Range("C20:C31").Select
Selection.Copy
Range("F10").Select
ActiveSheet.Paste
Selection.SpecialCells(xlCellTypeBlanks).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("F10").Select
End Sub
Dort werden die Werte aber ohne Lehrzellen zwischen zwei Werten eingefügt.
Also in etwa so:
a a
b b
f f
- g
g h
-
h
Genau so etwas brauche ich im Prinzip. Nur das der Bereich der kopiert werden soll, keine Leerzellen im eigentlichen Sinne enthält, sondern Formeln die eben auch den Wert "" ausgeben können.
Läßt sich der Code evtl. so anpassen, das Zellen die den WERT "" ausgeben, wie Zellen behandelt werden die tatsächlich leer sind.
Für jede Hilfe im Vorraus herzlichen Dank
MfG
Sabine