Ich möchte grne Daten von einer UF auf ein Sheet übertragen, welches aber "Hide" ist. Das Sheet soll auch nicht während der Prozedur wieder auf visible gemacht werden müssen. Zur Zeit habe ich folgendes und das funktioniert aber nur, wenn das Sheet visible ist.
Ziel: Daten von Eingaben in einer UF nach Klick auf "OK" in einem versteckten Sheet archivieren.
Hat jemand eine Idee?
PS: Vorschläge zu einem schöneren Code sind ebenfalls willkommen. Stehe heute irgendwie auf dem Schlauch :-) . Wollte es mit einer For Next Schlaufe machen aber es wollte einfach nicht gelingen.
Viele Grüsse!
Sub DatenSchreiben()
Ersteller = Erfassung.TextBoxErsteller.Value
Artikelnr = Erfassung.TextBoxArtnr.Value
Begründung = Erfassung.ComboBoxGrund.Value
Bemerkung = Erfassung.TextBoxBem.Value
WDate = Erfassung.DTPickerWD.Value
LDate = Erfassung.DTPickerLD.Value
ThisWorkbook.Sheets("DB").Select
Cells(3, 1).Select
If Cells(4, 1).Value = "" Then
ActiveCell.Offset(1, 0).Select
GoTo DatenUebertragen
End If
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
GoTo DatenUebertragen
DatenUebertragen:
ActiveCell.Value = Date
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Ersteller
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Artikelnr
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = WDate
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = LDate
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Begründung
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Bemerkung
ActiveCell.Offset(1, -6).Select
End Sub