Ich habe in den Spalten B3:DE3 Formeln die ich gerne per Makro automatisch bis in die letzte Zeile erweitern lassen möchte. Leider bin ich nicht gerade VBA erfahren und hänge jetzt schon seit längerem fest.
Folgendes konnte ich mir schon durch sämtliche Forum Recherchen erarbeiten.
Sub FormelErweitern()
ActiveSheet.Unprotect ""
'Formeln runterkopieren
Dim lngLetzte As Long
With ActiveSheet
'letzte Zeile auffinden:
lngLetzte = .UsedRange.Rows.Count + .UsedRange.Row - 1
'Formeln runterkopieren:
.Range(.Cells(3, 2), Cells(lngLetzte, 109)).Formula = .Range("myrange").Formula
'myrange =(B3:DE3)
End With
ActiveSheet.Protect ""
End Sub
Den Sinn erfüllt das ganze schon mal...
Jetzt das Problem: wenn als Bsp. in Zelle B3 schon ein Wert steht, überschreiben sich alle folgenden Zellen mit Formel und demselben Wert.
Ist es möglich das hier nur die Formel und nicht der Wert aus der obenstehenden Zelle übernommen wird?