Edit: Momentan bin ich einen Schritt weiter/zurück je nachdem wie mans anschaut.
Der Fehler oben hab ich korrigiert bekommen, keine Ahnung wie, aber er kommt nicht mehr.
Nun, beim eingeben der Textfeldeingaben über einen Button speichern, kommt mir ein Laufzeitfehler: 9 (Index ausserhalb des gültigen Bereichs)
Was mache ich falsch?
Der Code lautet:
Private Sub CommandButton28_Click()
With Workbooks("C:\Users\marcs\Desktop\Wiederkehr Recycling\Lagerdateien\Lieferantendatenbank.xlsm")
Dim Zaehler As Long
Zaehler = 2
Do While Worksheets("Lieferanten").Cells(Zaehler, 2).Value <> Empty
Zaehler = Zaehler + 1
Loop
Tabelle1.Cells(Zaehler, 1).Value = TextBox90.Text
Tabelle1.Cells(Zaehler, 2).Value = TextBox91.Text
Tabelle1.Cells(Zaehler, 3).Value = TextBox92.Value
Tabelle1.Cells(Zaehler, 4).Value = TextBox93.Value
Tabelle1.Cells(Zaehler, 5).Value = TextBox94.Value
Tabelle1.Cells(Zaehler, 6).Value = TextBox95.Text
Tabelle1.Cells(Zaehler, 7).Value = TextBox96.Value
Tabelle1.Cells(Zaehler, 8).Value = TextBox97.Value
Tabelle1.Cells(Zaehler, 9).Value = TextBox98.Value
End With
End Sub
Die zweite Linie wird gekennzeichnet
|