meine Beispieldatei ist hier: https://www.herber.de/bbs/user/136990.xlsx
Ich arbeite nicht mit einer xlsm Datei, sondern mit Makros in der persönlichen Makromappe, weshalb ich meinen Code unten in den Text kopiere.
Mit meinem Code setze ich in Spalte H ab Zelle 6 eine Formel ein und formatiere sie anschliessend um auf Arial 8 und mittig in der Zelle. Das funktioniert wunderbar.
Allerdings schreibt er mir die Formel natürlich auch in die Zeilen in dennen eigentlich Titel 1 oder 2 stehen.
In Zelle H12+13 soll also nichts stehen oder die Formel muss wieder gelöscht werden.
Der knackpunkt ist, das die Titel nicht immer in der gleichen Zeile stehen. Es handelt sich um eine Angebotsliste die mal 100 Zeilen lang ist und 5 mal durch Titel unterbrochen wird oder nur 5 Zeilen kurz ist mit einem Titel am Anfang.
Kann mir jemand erklären mit welchem Ansatz ich hier weiter komme?
Sub Mitbewerber() ' Makro für Angebotsliste Mitbewerber 23.04.20 cho
Application.ScreenUpdating = False
Call MakroMitbewerber
Call textformatieren
Application.ScreenUpdating = True
End Sub
Sub MakroMitbewerber()
Dim letztezeile As Long
letztezeile = ActiveSheet.Cells(1048576, 2).End(xlUp).Row
On Error Resume Next
ActiveSheet.Range("H6:H" & letztezeile).SpecialCells(xlCellTypeBlanks).Formula = "=SUM(RC[- _
3]*RC[-2])*RC[-1]"
End Sub
Sub textformatieren()
Range("H6:H5000").Select
With Selection.Font
.Name = "Arial"
.Size = 8
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Range("A1").Select
End Sub