Daten in andere Datei übertragen
17.05.2018 15:43:03
Schnider
Ich hoffe ihr könnt mir weiterhelfen und schonmal vorab vielen herzlichen Dank und sehr geniales Forum, dank euch
Im Moment bin ich dabei, ein Lagerbewirtschaftungsprogramm zu schreiben, da ich ein Lager aufbauen muss.
Voraussetzung bisher: Es sind 3 Dateien vorhanden.
-Lagerartikel
-Konten
-Lieferanten
Da ich selbst praktisch 0 Erfahrung habe, was VBA angeht, bin ich doch schon relativ weit gekommen.
Ich habe nun das Problem, dass wenn ich ein Lieferant anlege, müsste er in Datei Lieferantendatenbank.xlsm eingetragen werden (logischerweise untereinander, weil da ja noch mehrere folgen),. Die Datei Lieferanten hat 1 Tabellenblatt.
Der Fehler heisst Laufzeitfehler'9' (Index ausserhalb des gültigen Bereichs)
Vorhandener Code bisher:
------------------------------------------------------------------------------------
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
------------------------------------------------------------------------------------
Zweite Zeile wird gelb!!