Hi,
habe folgendes Problem, die neuen Daten werden immer zum Schluß mithilfe eines Makros eingetragen. Gibt es hier eine Möglichkeit das man bevor man die Daten abspeichert dazwischen die Daten mittels VBA reinkopieren könnte?
Sprich es sollen Tage mit Datum eingetragen werden, es wurde jedoch einige Eintragungen vergessen, wenn ich diese nun nachtrage und auswerte kommen diese erst zum schluß.
Gibt es hier eine möglichkeit diese zwischen den richtigen Datumswerten einzufügen.
komme hier einfach nicht weiter wäre es möglich neue Zellen einzufügen abhängig vom Datum?
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