die untenstehenden, abgewandelten Codes habe ich aus diesem Forum erhalten. Sie befinden sich in einem UF mit 6 Textfenstern. Wie müßte diese ergänzt werden, wenn ich die Datei "Serienbrief.xls" im Hintergrund öffnen möchte (Pfad befindet sich in Zelle A30, Tabellenblatt "Basis"), die Daten aus den jeweiligen Textfenstern dort einfügen möchte und dann die Datei ungefragt wieder abspeichern möchte. Schön wäre dabei, wenn im Tabellenblatt "Serienbrief" das Datumsformat "26. Dezember 2007" und die Uhrzeit "15:00 Uhr" lautet. Im jetzigen Code bezieht sich das Format, wenn ich das richtig vermute, wohl auf das jeweilige Textfenster.- Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Option Explicit
Private Sub CB_Abbrechen_Click()
boAbbrechen = True
Unload Me
End Sub
Private Sub CB_OK_Click()
Dim wksBasis As Worksheet, lastRow As Long
Set wksBasis = ActiveSheet
With wksBasis
lastRow = .UsedRange.Rows.Count
.Range(.Cells(2, 22), .Cells(lastRow, 22)).Value = CDate(Me.tboxInfoDatum.Value)
.Range(.Cells(2, 23), .Cells(lastRow, 23)).Value = CDate(Me.tboxInfoUhrzeit.Value)
.Range(.Cells(2, 24), .Cells(lastRow, 24)).Value = Me.tboxInfoRaum.Text
.Range(.Cells(2, 25), .Cells(lastRow, 25)).Value = Me.tboxSonst1.Text
.Range(.Cells(2, 26), .Cells(lastRow, 26)).Value = Me.tboxSonst2.Text
.Range(.Cells(2, 27), .Cells(lastRow, 27)).Value = Me.tboxSonst3.Text
End With
Set wksBasis = Nothing
Unload Me
Exit Sub
End Sub
Private Sub tboxInfoDatum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(Me.tboxInfoDatum) Then
Me.tboxInfoDatum = Format(CDate(Me.tboxInfoDatum), "DD. MMMM YYYY")
Else
MsgBox "Eingabe ist ungültiges Datumsformat"
End If
End Sub
Private Sub tboxInfoUhrzeit_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(Me.tboxInfoUhrzeit) Then
Me.tboxInfoUhrzeit = Format(CDate(Me.tboxInfoUhrzeit), "hh:mm")
Else
MsgBox "Eingabe ist ungültiges Zeitformat"
End If
End Sub