meine VBA-Kenntnisse sind 0-Komma-% (also nur Makro-Editor und kleine Anpassungen,
Mein Problem: In einer formatierten Tabelle sind u.a. Spalten mit Zählenwenn-Formeln. Es werden in dieser Tabelle aber auch Zeilen mittendrin eingefügt oder gelöscht, was die Zählfunktionen innerhalb einer Spalte zerstört. Deshalb wollte ich, dass wenn man Zeilen löscht / einfügt ein Makro ausführt, dass die Formeln wieder durchlaufend korrekt ausführt.
Das Makro soll ausführen:
Kopie A10 in A11, rechte Maustaste "auf alle Zeilen dieser Spalte anwenden) und das gleiche mit B10 / B11
Mein Makro fügt aber in der Formel nach dem = ein @ ein. So funktioniert es halt nicht :-)
Range("A10").Select
Selection.Copy
Range("A11").Select
ActiveSheet.Paste
Range("TabSKU[LNR]").FormulaR1C1 = _
"=WENN(R[-1]C=""LNR"",1,WENN(TabSKU[@U]=""U"",R[-1]C,R[-1]C+1))"
Range("B10").Select
Application.CutCopyMode = False
Selection.Copy
Range("B11").Select
ActiveSheet.Paste
Range("TabSKU[UNR]").FormulaR1C1 = _
"=WENN(R[-1]C=""UNR"",0,WENN(RC[-1]=R[-1]C[-1],R[-1]C+1,0))"
Für Hilfe schon mal besten Dank
und schöne Abendgrüße aus dem Neuseenland
Thorsten