Hi,

maybe someone can help me, when i fill in a protokoll and bush the button / VBA in Excel
the Data will store on the next sheet on the end of the last one.
But my problem is now that i must fill in some missed Dates and i donīt know how to change the makro
because, i want that the new data were filled in directly under the right Date without to clean or
delete the other datas. For example Dates from months february i must put in 3 missing dates, but now
we have march and the februar dates that i filled in my excel form stored at end of the date from today 09.03.2017
so maybe there is a option before he store the data or copy it to the other sheet, that excel shows which date
and but it into the right position without delete, or clean the other data.


Sub Speichern()



If ueberpruefe_pflichtfelder = False Then
lnglastq = ActiveWorkbook.Worksheets("Daten").Range("A65536").End(xlUp).Row

Dim alte_hoeste_nummer
Dim neueNummer
Dim neuezeile
Dim intervall

intervall = ActiveSheet.Name
If lnglastq > 2 Then
alte_hoeste_nummer = Sheets("Datenzeilen").Cells( _
lnglastq, 1).Value
neueNummer = alte_hoeste_nummer + 1
Else
neueNummer = 1
End If

neuezeile = lnglastq + 1
' ScreenUpdating = False
Sheets("Hilfe").Range("A3") = neueNummer
Sheets("Hilfstabelle").Range("B3").NumberFormat = "[$- _
_
409]d-mmm-yy;@"

'neu

'Sheets("Hilfe").Range("A3:ZZ3").Copy
'Sheets("Daten").Range("A" & neuezeile).PasteSpecial _
_
Paste:=xlPasteValues

Sheets("Daten").Range("A" & neuezeile & ":ZZ" & _
neuezeile) = Sheets("Hilfe").Range("A3:ZZ3").Value


ActiveWorkbook.Save

MsgBox "Eintrag wurde erfolgreich gespeichert!", _
vbInformation + vbOKOnly, "Speichern erfolgreich"
Admin_gespeichert = True
ScreenUpdating = True


' x = MsgBox("Soll das Formular gedruckt werden?", vbQuestion + vbYesNo, " _
Speichern und Drucken")

' If x <> 7 Then

'
' Formular_drucken ("druck_" & ActiveSheet.Name)
' Sheets("Startseite").Select
' loeschen


' End If

' loeschen
Sheets("Startseite").Select


Else
MsgBox "Mindestens ein Pflichtfeld ist leer!", vbInformation + vbOKOnly, "Fehler"
Admin_gespeichert = False
End If
ScreenUpdating = True
End Sub