ich zerbreche mir schon das ganze Wochenende den Kopf weil ein Makro nicht so funktioniert wie es eigentlich sollte.
Vielleicht hat ja hier einer eine Idee.
Ich möchte den Wert einer Formel in eine andere Zelle kopieren. Das soll in mehreren Tabellenblättern geschehen.
Das Makro funktioniert auch soweit aber leider nur in dem Tabellenblatt welches gerade aktiv ist.
In den anderen Blättern ist plötzlich die Zelle, in der rein kopiert werden soll, leer.
Und er zu kopierende Wert ist in den anderen Blättern plötzlich ein ganz anderer.
Hier mal der Code:
Sub Gesamtstunden_übertragen()
Dim TB1
Dim TB2
For Each TB1 In Array("1307", "1312", "1330", "1361", "1761", "1854", "1922")
With Worksheets(TB1)
.Range("A57") = Range("B57").Value
End With
Next
For Each TB2 In Array("1628", "1661", "1662", "1692", "1732", "1846", "2099", "2205", "2322", " _
_
_
2364", "2365", "2402", "2430", "2510", "2527", "2528", "2529", "2530", "2531", "2540", "2545", " _
_
2546")
With Worksheets(TB2)
.Range("A57") = Range("C57").Value
End With
Next
End Sub
Es soll der Wert aus B57, Formel in B57:(=A57-(-H57), in A57 kopiert werden.