ich möchte mittels einer Variablen einen Wert ermitteln mit dessen Hilfe ich einen Dynamischen Zallbereich in einer Spalte festlege um in dieseneine Formel hineinzukopieren.
Den Wert der Variablen ermittle ich anhand einer Schleife aus der Anzahl der befüllten Zellen einer anderen Spalte in einer Tabelle.
Ich möchte erwähnen das jede
Function als eigenes Modul in dem Projekt angelegt ist also der Aufbau wie Folgt aussieht:
Module:
Function_CluForm_KL
Function_CluForm_Sald
Function_CluForm_xxx
Sub_Ablauf
Über das Makro Sub_Ablauf werden die Functions Aufgerufen:
Public row As Integer
Sub Ablauf()
'Ermitteln der Anzahl der vorhandenen Datensätze amhand der Kundnenummern
'zur verwendung als Globale Variable in den Functions "CluForm..."
Sheets("Cluster").Select
Srow = 1
Columns("B:B").Select
Range("B1").Select
Do Until ActiveCell.Value = ""
Srow = Srow + 1
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Select
Loop
row = Srow - 1
'Auswertungsformeln in Cluster schreiben
Call CluForm_KL
Call CluForm_Sald
Call CluForm_xxx
Die Functions sind alle Ähnlich hier als Beispiel die Function_CluForm_KL:
Function CluForm_KL()
Dim row As Integer
'Formel Für NYD 1 Monat in Cluster eintragen
Sheets("Cluster").Select
Range("AB2").Select
ActiveCell.FormulaR1C1 = "=SUMIF(KL!C[-27],RC[-26],KL!C[-24])"
Range("a1").Select
Range("AB2").Select
Selection.Copy
Range("AB3:AB" & row).Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
End Function
Excel aktzeptiert in dieser
Function die Variable "row" nicht, mit der ich das Ende des Zellbereich definieren möchte.
Hat jemand eine Idee wie ich das Problem gelöst bekomme?
Vielen Dank für Eure Mithilfe
Steffen