Hallo,
angenommen, man möchte folgendes in Excel 2007 tun:
Es liegt eine bestimmte Formel in den Zellen
A1
A2
A5
A6
vor.
Diese soll kopiert werden, und zwar nach
B1
B2
B5
B6
In den Zellen A3 und A4 befinden sich abweichende Inhalte, die nicht mitkopiert werden sollen.
Das vorliegende Problem: Bei einem gesonderten markieren und kopieren der Zellen A1, A2, A4 und A5 nach B werden die Formeln nacheinander in B1-4 eingefügt.
Ziel: Die Zellen B3 und B4 sollen, da auch dort Inhalte nicht überschrieben werden dürfen, frei bleiben.
Vielen Dank!
hi.
Also ich persönlich denke, dass Excel das leider nicht drauf hat.
Die einzige alternative, die ich sehe wäre das ganze mit Makros zu lösen und das ganze eine Zelle nach der anderen kopieren zu lassen…
nicht besonders schön - aber meiner Meinung nach gibt es keine andere Möglichkeit…
(evtl mit gesperrten Zellen, aber da bin ich nicht sehr firm).
Grüße
Munich
In den Zellen A3 und A4 befinden sich abweichende Inhalte, die
nicht mitkopiert werden sollen.
Das vorliegende Problem: Bei einem gesonderten markieren und
kopieren der Zellen A1, A2, A4 und A5 nach B werden die
Formeln nacheinander in B1-4 eingefügt.
Ziel: Die Zellen B3 und B4 sollen, da auch dort Inhalte nicht
überschrieben werden dürfen, frei bleiben.
Hallo karin,
vielleicht erst irgendwie Filtern, dann kopieren *nixweiß*
Oder vielleicht so:
Sub tt()
Dim Zelle
On Error Resume Next
For Each Zelle In Range("A:A").SpecialCells(xlCellTypeFormulas)
Zelle.Offset(0, 1).Formula = Zelle.Formula
Next Zelle
End Sub
Gruß
Reinhard
Oder vielleicht so:
Sub tt()
Dim Zelle
On Error Resume Next
For Each Zelle In
Range(„A:A“).SpecialCells(xlCellTypeFormulas)
Zelle.Offset(0, 1).Formula = Zelle.Formula
Next Zelle
End Sub
Hallo Karin,
vielleicht auch so:
Sub tt()
Dim Zelle
On Error Resume Next
For Each Zelle In Range("A:A").SpecialCells(xlCellTypeFormulas)
Zelle.Copy Destination:=Zelle.Offset(0, 1)
Next Zelle
End Sub
Gruß
Reinhard