Guten Tag,
bin ein ziemlicher VBA noob und bin auch eher unfreiwillig zu dieser Aufgabe gekommen.
ich erstelle gerade eine datenbank
eine Userform für das Anlegen der Daten habe ich bereits angelegt und die Ersten simplen einfüge optionen habe ich auch noch hinbekommen.
nun habe ich 2 Probleme die es zu lösen gibt
zum einen Möchte ich das Jeder eintrag seine eigene ID und das Ohne das die Anwender diese eingeben müssen
der Button für die Userform liegt in Tabelle 1
die Datenbank ansich liegt auf sheet 2 und das Erste feld das beschrieben werden soll ist b4
also beim drücken auf den "speichern" knopf soll er alle daten eintragen + die ID vergeben
hinzu kommt noch ein Kleines problem mit 2 Daten werten
zu erläuterung
habe 2 textboxen in eine wird der verbrauch angegeben in der 2. wird angegeben wieoft die Probe getestet wurde, in der Datenbank aber soll der % gehalt erscheinen. ( der Verbrauch sowie die Anzahl der tests müssen zusätzlich in eine Extra tabelle übertragen werden das ich daraus den gesamtverbrauch und einige andere kleinigkeiten ausrechnen kann (anzahl der Tests um den Verbrauch der chemikalien auszurechnen die in festen mengen zugegeben werden )
also textbox 1 soll durch die Anzahl von Textbox 2 dividiert werden und dann mit einem Faktor multipliziert. hier mal der Code der im Speichern knopf hinterlegt ist ( ich entschuldige mich für dieses chaos in der Formel wie gesagt hatte vorher garnichts damit zu tun)
Private Sub probeanlegen_Click()
Dim zeile As Long
zeile = Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Sheets(2).Cells(zeile + 1, 1).Value = Anlegen.TextBox1.Value 'datum
Sheets(2).Cells(zeile + 1, 3).Value = Anlegen.TextBox2.Value 'Probennummer
Sheets(2).Cells(zeile + 1, 4).Value = Anlegen.TextBox3.Value ' int.charge
Sheets(2).Cells(zeile + 1, 5).Value = Anlegen.ComboBox2.Value ' Lieferant
Sheets(2).Cells(zeile + 1, 6).Value = Anlegen.ComboBox1.Value ' Produkt
Sheets(2).Cells(zeile + 1, 7).Value = Anlegen.TextBox4.Value ' phwert
'hier fehlen die Befehle für die Salz und Säure bestimmung
'textbox5 ist verbrauch textbox 6 die anzahl der Salz titration
'textbox 7 ist verbrauch textbox 8 die anzahl Säure titration
'kann man die Faktoren aus Zellen einer Tabelle beziehen lassen oder müssen sie ins Makro eingebunden werden ?
Sheets(2).Cells(zeile + 1, 10).Value = Anlegen.TextBox9.Value ' Brix
Unload Anlegen
End Sub
|