Wert in Summenfunktion einbinden /Object/Variable
MarkusB.
Ich habe folgendes Problem... also ich möchte, dass ein gefundener Wert (rng.Value)
kopiert wird (copy.rng) ... so eigentlich ganz einfach... aber jetzt soll der kopierte Wert so in ein Zelle eingefügt werden, dass dieser in der Zelle als =summe(rng.Value) erscheint... also in die Summenfunktion eingebunden werden. Das kriege ich nicht hin. Hier mein Code:
Sub teste()
Dim n As Integer, i As Integer, test, wks As Worksheet
Dim z As Object
Dim x As Object
Dim rng As Object
Application.ScreenUpdating = False
With Sheets(1)
For i = 12 To .Cells(Rows.Count, 3).End(xlUp).Row
For n = 2 To Worksheets.Count
Set wks = Worksheets(n)
test = Application.Match(.Cells(i, 3), wks.Columns(3), 0)
If Not IsError(test) Then
Select Case n
Case Is = 3
'Set wks = Worksheets(n)
For Each rng In wks.Range(wks.Cells(test, 5), wks.Cells(test, 19))
If Len(rng.Value) 0 Then
rng = FormulaR1C1 = "=SUM(rng.value)" '--- > Problem es wird immer FALSCH _
in die Zelle geschrieben
rng.Copy
Sheets(1).Range("M" & i).Activate
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
Next
Case Is = 4
For Each rng In _
Worksheets(n).Range(Worksheets(n).Cells(test, 5), _
Worksheets(n).Cells(test, 13))
If Len(rng.Value) 0 Then
rng = FormulaR1C1 = "=SUM(rng.value)" '--- > Problem es wird immer FALSCH _
in die Zelle geschrieben
rng.Copy
Sheets(1).Activate
Range("N" & i).Activate
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
Next
End Select
End If
Next n
Next i
End With
Application.ScreenUpdating = True
End Sub
Könnte mir einer weiterhelfen? Muss ich noch ein anderes Object oder so anlegen oder die Formelgeschichte in eine zusätzliche Variable einbauen?
Hoffe es hat jemand eine Idee!
Vielen Dank und schönen Abend1
MarkusB.