Re: Experte gesucht!! Dringend!
05.11.2002 15:09:07
Martin Bolleter
Hallo Marcusdas Kopieren von Formeln ohne dass sich die Bezüge verändern ist tatsächlich ein problem, für das Excel keine Standardlösung bietet.
Ich habe mir deshalb schon vor einiger Zeit ein Makro geschrieben, das dies macht. Zum Aufrufen habe ich mir das Makro auf einen separaten Button in der Symbolleiste gelegt, es geht aber auch mit Extras/Makros.
Der Code:
Sub FormulaCopy()
Dim n%, c
Dim s As String, SourceCount%, TargetCount%
Dim SourceFeld() As String
Dim Target As Range, Source As Range
SourceCount = Selection.Count
ReDim SourceFeld(SourceCount)
Set Source = Selection
n = 1
For Each c In Selection
SourceFeld(n) = c.Formula
n = n + 1
Next
On Error Resume Next
Set Target = Application.InputBox("Select the target cell or range!", Type:=8)
If Err <> 0 Then
MsgBox "This wasn't a cell range, isn't it!?"
Exit Sub
End If
TargetCount = Target.Count
If TargetCount = 1 And SourceCount > 1 Then
Set Target = Target.Resize(Source.Rows.Count, Source.Columns.Count)
End If
Target.Select
n = 1
For Each c In Target
c.Formula = SourceFeld(n)
n = n + 1
If n > SourceCount Then n = 1
Next
End Sub
Im wesentlichen Funktioniert es wie das Standard Copy: Selektieren der Formeln, Aufruf des Makro, auswählen der Ziel-Zelle, ok.
Das Wars.
Gruss
Martin