Mit folgendem Makro kopiere ich Zellinhalte von Tabelle2 nach Tabelle3.
Sub Kopieren_Bereich()
On Error Resume Next
Dim Tab2c As Range, Tab2d As Range, Tab2h As RAnge, _
Tab3c As RAnge, Tab3d As RAnge, Tab3h As RAnge
Sheets("Tabelle3").[c33].Value = " "
Sheets("Tabelle3").[d33].Value = " "
Sheets("Tabelle3").[h33].Value = " "
Set Tab2c = Sheets("Tabelle2").[c34:c35]
Set Tab2d = Sheets("Tabelle2").[d34:d35]
Set Tab2h = Sheets("Tabelle2").[h34:h35]
Set Tab3c = Sheets("Tabelle3").[c65536] _
.End(xlUp).Offset(1, 0).Resize(2, 1)
Set Tab3d = Sheets("Tabelle3").[d65536] _
.End(xlUp).Offset(1, 0).Resize(2, 1)
Set Tab3h = Sheets("Tabelle3").[h65536] _
.End(xlUp).Offset(1, 0).Resize(2, 1)
Tab3c.Value = Tab2c.Value
Tab3d.Value = TAb2d.Value
Tab3h.Value = Tab2h.Value
Tab2c.ClearContents
Tab2d.ClearContents
Tab2h.ClearContents
End Sub
Durch den letzten Zusatz werden jedoch die Zellinhalte
der Tabelle2 c,d,h gelöscht.
Da diese Zellen jedoch Formeln enthalten sollen diese erhalten bleiben und die Zellinhalte nur auf "0(Null)
gesetzt werden.
Wie muß die Formel dazu umgeschrieben werden ?
Wenn ich den letzten Zusatz weglasse, bleiben die Formeln zwar auch erhalten, aber auch die Zahlen?
Kann man das entsprechend ändern ?
Wenn das zukompliziert ist, kann ich auch die Datei mit Hinweisen schicken.
Rolf