mit folgendem Code werden nach der letzten belegten Spalte mittels Klick auf eine Schalftfläche Formeln eingefügt (bis zur letzten belegten Zeile). Funktioniert auch.
Jetzt geht es aber um 3 verschiedene Formeln die eingetragen werden sollen. Folgende Regeln sollen gelten:
1.) Die Formel kommt grundsätzlich in die Spalte nach dem Ende der Tabelle (im Beispiel in Spalte H)
2.) Beim 1. Klick auf die Schaltfläche soll die Formel Nr. 1 in Zelle H3 geschrieben und bis zur letzten belegten Zeile (im Beispiel H6) kopiert werden das funktioniert bereits
3.) Beim 2. Klick auf die Schaltfläche soll die Formel Nr. 2 in Zelle H3 geschrieben und bis zur letzten belegten Zeile kopiert werden.
4.) Beim 3. Klick auf die Schaltfläche soll die Formel Nr. 3 in Zelle H3 geschrieben und bis zur letzten belegten Zeile kopiert werden.
5.) Beim 4. Klick auf die Schaltfläche sollen die Inhalte der Zellen von H3 bis zur letzten belegten Zeile (im Beispiel H6) gelöscht werden.
Hier noch mein Code:
Option Explicit
Sub Formeleintragen()
Dim lngA As Long
Dim LCol As Integer
Dim Plus As Integer
Application.ScreenUpdating = False 'Bildschirmaktualisierung ausschalten
LCol = Cells(2, Columns.Count).End(xlToLeft).Column 'Letzte Spalte ermitteln, in der in _
Zeile 2 eine Überschrift steht
lngA = Cells.SpecialCells(xlCellTypeLastCell).Row 'letzte Zeilennummer in der Tabelle ü _
berhaupt
Plus = Cells(2, Columns.Count).End(xlToLeft).Column + 1 'Plus heißt, bis zur letzten _
belegten Spalte und dann noch 1 Spalte dazu
With Range(Cells(3, Plus), Cells(lngA, Plus))
.FormulaLocal = "=Summe(A3:B3)" 'Formel Nr 1
' =Summe(B3:F3) Formel Nr 2
' =Summe(A3:G3) Formel Nr 3
End With
End Sub
Geht das überhaupt? Kann mir das jemand einbauen?Hier noch die Tabelle: https://www.herber.de/bbs/user/72243.xls
Besten Dank und Servus, Walter