Guten Morgen Ihr Leser
Ich hoffe ihr könnt mir weiterhelfen und schonmal vorab vielen herzlichen Dank
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, dank verschiedener Foren.
Ich habe nun das Problem, dass wenn ich ein Lagerartikel einbuche, müsste er in Datei Konten.xlsm eingetragen werden (logischerweise untereinander, weil da ja noch mehrere folgen),. Daie Datei Konten hat wieder mehrere Tabellenblätter, welche über eine ComboBox in der UserForm1 zugewiesen werden, in welche Tabelle die Daten eingetragen werden sollen.
Momentan versuche ich mich mit einer If Bedingung, aber es kommt Laufzeitfehler, was mache ich falsch?
Vorhandener Code bisher:
If ComboBox8.Value = 1 Then
Workbook("C:\Users\marcs\Desktop\Wiederkehr Recycling\Lagerdateien\Kostenstellen.xlsm").Open
Dim Zaehler As Long
Zaehler = 2
Do While Worksheets("1").Cells(Zaehler, 2).Value <> Empty
Zaehler = Zaehler + 1
Loop
Tabelle1.Cells(Zaehler, 1).Value = TextBox1.Value
Tabelle1.Cells(Zaehler, 2).Value = TextBox2.Text
Tabelle1.Cells(Zaehler, 3).Value = TextBox3.Text
Tabelle1.Cells(Zaehler, 4).Value = TextBox4.Text
Tabelle1.Cells(Zaehler, 5).Value = TextBox5.Value
Tabelle1.Cells(Zaehler, 6).Value = TextBox6.Text
Tabelle1.Cells(Zaehler, 8).Value = TextBox8.Text
Tabelle1.Cells(Zaehler, 10).Value = TextBox7.Text
Tabelle1.Cells(Zaehler, 7).Value = ComboBox8.Value
End If
If ComboBox8.Value = 1304331 Then
Workbook("C:\Users\marcs\Desktop\Wiederkehr Recycling\Lagerdateien\Kostenstellen.xlsm").Open
Dim Zaehler As Long
Zaehler = 2
Do While Worksheets("1304331").Cells(Zaehler, 2).Value <> Empty
Zaehler = Zaehler + 1
Loop
Tabelle2.Cells(Zaehler, 1).Value = TextBox1.Value
Tabelle2.Cells(Zaehler, 2).Value = TextBox2.Text
Tabelle2.Cells(Zaehler, 3).Value = TextBox3.Text
Tabelle2.Cells(Zaehler, 4).Value = TextBox4.Text
Tabelle2.Cells(Zaehler, 5).Value = TextBox5.Value
Tabelle2.Cells(Zaehler, 6).Value = TextBox6.Text
Tabelle2.Cells(Zaehler, 8).Value = TextBox8.Text
Tabelle2.Cells(Zaehler, 10).Value = TextBox7.Text
Tabelle2.Cells(Zaehler, 7).Value = ComboBox8.Value
End If
End Sub
|