Fehler im Code in die letzte leere Zeile schreiben.

[Arious87]

Hallo zusammen,

ich habe einen Fehler in meinem Code finde ihn aber nicht bzw. verstehe es nicht.
Ich möchte über ein Formular Zahlen eingeben. Der Eintrag soll in der nächsten freien Zeile sein.
Bei mir wird im Moment der letzte Eintrag überschrieben.

        intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 28).End(xlUp).Row + 1
    
  
       ActiveSheet.Cells(intErsteLeereZeile, 3).Value = CDbl(Me.txtPrüftemperatur.Value)
       ActiveSheet.Cells(intErsteLeereZeile, 4).Value = CDbl(Me.txtLuftfeuchtigkeit.Value)
       ActiveSheet.Cells(intErsteLeereZeile, 5).Value = CDbl(Me.txtReferenzgewicht.Value)

Viele  Grüße

[michael9292]

Hallo zusammen,

ich habe einen Fehler in meinem Code finde ihn aber nicht bzw. verstehe es nicht.
Ich möchte über ein Formular Zahlen eingeben. Der Eintrag soll in der nächsten freien Zeile sein.
Bei mir wird im Moment der letzte Eintrag überschrieben.

        intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 28).End(xlUp).Row 
    
   
       ActiveSheet.Cells(intErsteLeereZeile+1, 3).Value = CDbl(Me.txtPrüftemperatur.Value)
       ActiveSheet.Cells(intErsteLeereZeile+1, 4).Value = CDbl(Me.txtLuftfeuchtigkeit.Value)
       ActiveSheet.Cells(intErsteLeereZeile+1, 5).Value = CDbl(Me.txtReferenzgewicht.Value)

Viele  Grüße

Ich würde das +1 erst beim einfügen addieren.

Grüsse
Michael

[Ego]

Hallo A...,

du suchst die leere Zelle in Spalte 28 schreibst aber in die Spalten 3-5. Sind die Spalten gleich weit gefüllt?