Hallo MGGast,
Ich hab die Formel kurz angeschaut und ausprobiert.....es ist fast das was ich benötige:-).
Ich möchte gerne noch das die Formel automatisch weiss das es bei der nächste Zelle das gleiche berechnung soll. "(Siehe Muster mit TextBox)"Weil 1006 Zellen manuell einzugeben ist es ein bisschen mühsam. Ich hoffe du weisst was ich meine ?
Hier ein muster von was ich meine Automatische schleife....
Range("AH7") = Range("AG5") * Range("AG7")
Range("AH8") = Range("AG5") * Range("AG8")
Range("AH9") = Range("AG5") * Range("AG9")
Range("AH10") = Range("AG5") * Range("AG10")
Range("AH11") = Range("AG5") * Range("AG11")
Range("AH12") = Range("AG5") * Range("AG12")
Range("AH13") = Range("AG5") * Range("AG13")
Range("AH14") = Range("AG5") * Range("AG14")
usw...bis
Range("AH1006") = Range("AG5") * Range("AG1006")End Sub
------------------------------------------------------------------------------------------------------------------------
Private Sub CMDEingabe_Click()
Dim intErsteLeereZeile As Long
intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(intErsteLeereZeile, 1).Value = Me.TextBox1.Value
Me.TextBox1.Text = ""
End sub
|