ich bin auf der Suche nach verschiedenen Formeln, die ich per Code in die Zellen
eintrage. Per Macro-Recorder habe ich bereits die grundsätzlichen Code-Lösungen.
Das Problem ist jetzt, dass ich die Formeln so gestalten möchte, dass diese
richtig bleiben, wenn zunächst die Formeln in Werte umgewandelt werden und dann
die Formeln per code wieder neu eingetragen werden müssen (erforderlich wegen Größe
der Datei).
Dazu hatte ich aus dem Forum den Tipp, für Spalten Namen zu verwenden und eine
Formel wurde bereits neu erstellt. Jetzt komme ich aber bei den weiteren Formeln
nicht weiter. Nachstehend meine Testversion mit Kennzeichnung der einzelnen Spalten
sowie Gegenüberstellung meiner misslungenen Ansätze (1. Formel jeweils) mit den
richtigen Formeln (Macrorecorder); lediglich die Formel für Spalte 18 funktioniert:
Sub testen2()
Sheets("Grunddaten").Select
' Spalten werden bezeichnet mit:
' A = Kunde
' B = Konto
' D = Preis
' F = Mitarbeiter
'Spalte 18: Kombi Mitarbeiter + Kunde
Cells(6, 18).Formula = _
"=" & Cells(6, Range("Mitarbeiter").Column).Address(0, 0) & "&" & Cells(6, 1).Address(0, 0)
' Cells(6, 18).FormulaR1C1 = "=RC[-12]&RC[-17]"
'Spalte 19: Kunde doppelt
' Fehlermeldung: Erwartet Anweisungsende bei Kunde ?
Cells(6, 19).Formula = _
"= IF((MATCH(Range("Kunde").Column).Adress(0)=ROW),""Original"",""Doppelt"")"
Cells(6, 19).FormulaR1C1 = _
"=IF(MATCH(RC[-18],C[-18],0)=ROW(),""Original"",""Doppelt"")"
'Spalte 20: Kundenanzahl
'Fehlermeldung: Erwartet Anweisungsende bei Kunde ?
Cells(6, 20).Formula = "=COUNTIF(Cells(6,Range("Kunde").Column).Adress(0,0)"
Cells(6, 20).FormulaR1C1 = "=COUNTIF(C[-19],RC[-19])"
'Spalte 21: Anzahl Kunden
'Fehlermeldung: Erwartet Anweisungsende bei Kunde ?
Cells(6, 21).Formula = _
"=IF(COUNTIF(Range("Kunde").Column).Address(0,0))>0,1/COUNTIF(Range("Kunde").Column))"
Cells(6, 21).FormulaR1C1 = _
"=IF(COUNTIF(C[-20],RC[-20])>0,1/COUNTIF(C[-20],RC[-20]))"
Range("A1").Select
End Sub
Besten Dank für eine Hilfe!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
EXCEL und Lottogewinne machen glücklich: http://48678.rapidforum.com