VBA ECol Bug
Chris
es geht bei folgendem Makro um die automatische Befüllung der Spalten einer Matrix durch ein Userform. Die ecol= Formel funktioniert aber nicht wie gewollt. Kann mir bitte jemand helfen? Wo ist der Fehler? Vielen Dank im Voraus für die Hilfe.
Private Sub CommandButton1_Click()
ecol = Tabelle1.Cells(1, col.Count).End(xlUp).Offset(1, BB1).col
Cells(1, 1) = ComboBox1.Text
Cells(3, ecol) = Lieferant.Text
Cells(4, ecol) = Kriterium1.Text * B4
Cells(5, ecol) = Kriterium2.Text * B5
Cells(6, ecol) = Kriterium3.Text * B6
Cells(7, ecol) = Kriterium4.Text * B7
Cells(8, ecol) = Kriterium5.Text * B8
Cells(9, ecol) = Kriterium6.Text * B9
End Sub
Anbei die Datei: https://www.herber.de/bbs/user/80407.xlsm
MfG
Anzeige