Clever-Excel-Forum

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

(08.03.2018, 09:53)Arious87 schrieb: [ -> ]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

Hallo A...,

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