Den folgenden Code habe ich zusammengestellt um eine Formel in Zelle E3 einzutragen und dann nach unten zu kopieren. Soweit funktioniert auch alles.
Mein Problem ist, das die Tabellen eine unterschiedliche Anzahl von belegten Spalten haben. Durch das Makro wird zwar die Formel in die richtige Spalte (Zeile 3) eingetragen, wie aber können die Spaltenangaben in der Formel angepasst werden?
Hier ist der Code:
Option Explicit
Sub Formeleintragen()
Dim lngA As Long
Dim Rafound As Range
Dim Plus As Integer
lngA = Cells.SpecialCells(xlCellTypeLastCell).Row 'letzte benutzte Zeile in der Tabelle
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(3, Plus))
.FormulaLocal = "=WENN(ODER(E$1="""";E$2="""");"""";ISTZAHL(SUCHEN(E$2;INDIREKT( _
E$1&ZEILE()))))"
.AutoFill Destination:=Range(Cells(3, Plus), Cells(lngA, Plus)), Type:= _
xlFillDefault
End With
End Sub
Danke für Eure Hilfe und Servus, Walter