ich bin fast fertig mit meiner Tankbestandstabelle mir fehlt jetzt "nur" noch ein Punkt.
Ich habe hier meinen Eintrage Code, ich wähle in meiner Combo Box einen Tank aus und durch diese Auswahl trage ich die unteren Werte (Fast alle Werte kommen aus den Textfeldern bis auf einen den ich aus den beiden Tankbeständen des aktuellen und vorherigen Bestand errechne). Soweit so gut.
Nun habe ich aber noch ein Tabellenblatt in dem ich alle Werte aus allen Tankbeständen eintragen möchte. Hier funktioniert meine Berechnung natürlich nicht, da in der Gesamttabelle ja die Werte kreuz und quer stehen.
Wie gehe ich am besten vor, dass die aktuellen Werte die ich eingebe, auch richtig (mit den errechneten Kanälen) auch in die "Rohdatentabelle" eingetragen werden?
Kopieren der Zeilen?
Ich hoffe ihr könnt mir helfen, stehe so kurz vorm Abschluss...
VG
Manni
Private Sub Eintragen()
'Pfad für die Dateneintragung
Dim VorherigerEintrag As Long
Dim lngLastRow As Long
Dim Verbrauch As Integer
Dim wsRohdaten As Worksheet
Set wsRohdaten = ThisWorkbook.Sheets(Me.cmbTank_Zufuhr.Value)
With wsRohdaten
VorherigerEintrag = (.Cells(Rows.Count, 1).End(xlUp).Row)
lngLastRow = (.Cells(Rows.Count, 1).End(xlUp).Row) + 1
.Cells(lngLastRow, 1).Value = Me.cmbTank_Zufuhr.Text
.Cells(lngLastRow, 2).Value = CDate(Me.txtDatum_Zufuhr)
.Cells(lngLastRow, 3).Value = CDate(Me.txtUhrzeit_Zufuhr)
.Cells(lngLastRow, 4).Value = CDbl(Me.txtTankbestand_Zufuhr)
.Cells(lngLastRow, 5).Value = UCase(Me.txtErfasser_Zufuhr)
.Cells(lngLastRow, 6).Value = CDbl("0")
.Cells(lngLastRow, 8).Value = UCase(Me.txtFahrer_Zufuhr)
.Cells(lngLastRow, 9).Value = UCase(Me.txtKennzeichen_Zufuhr)
.Cells(lngLastRow, 10).Value = UCase(Me.txtAufsicht_Zufuhr)
.Cells(lngLastRow, 11).Value = UCase(Me.txtKommentar_Zufuhr)
a = CDbl(.Cells(lngLastRow, 4).Value)
b = CDbl(.Cells(VorherigerEintrag, 4).Value)
.Cells(lngLastRow, 7).Value = a - b
End With
End Sub