Format übertragen
22.08.2005 09:27:32
Andreas
Guten Morgen
Habe folgendes Problem
Ich erstelle aus einer UserForm Datenmaske einen neuen Datensatz, den ich dann über einen CommandButton in die Tabelle "AGH" an die letze belegte Zeile anfüge.
wie muß die Code Zeile dafür lauten, das auch das Format aus der letzten Zeile mit übernommen wird.
Kann da vieleicht einer von Euch weiterhelfen?
Folgenden Code habe ich schon
müßte eventuell erweitert werden.
Private Sub CommandButton15_Click()
Dim mldg, stil, titel, grc
mldg = "Alles richtig eingetragen ?"
stil = vbYesNo + vbCritical + vbDefaultButton2
titel = "Frage ?"
grc = MsgBox(mldg, stil, titel)
If grc = vbYes Then
Else
Exit Sub
End If
Worksheets("AGH").Activate
Range("A1").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
ActiveCell.Value = Range("F1").Value + 1
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = TextBox90.Text
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = TextBox103.Text
End Sub
Danke im vorraus für Eure Mühe
Gruß Andreas