AW: Tabelle mit CommandButton automatisch Sperren
13.03.2018 18:01:59
Werner
Hallo Patrick,
du brauchst doch nicht für jede Spalte immer wieder die erste freie Zeile zu ermitteln. Das reicht doch einmal, da die Daten aus den Boxen dann ja alle in die gleiche Zeile geschrieben werden.
Private Sub CommandButton1_Click()
Dim loLetzte As Long
If ArtikelnummerBox1 = "" Or ArtderTeileBox1 = "" Or ArtderVermessungBox2 = "" _
Or MaschinennummerBox1 = "" Or AnzahlBox2 = "" Or AuftraggeberBox3 = "" _
Or weitereAnsprechpartnerBox4 = "" Or WunschterminBox5 = "" _
Or SonstigeBemerkungenBox6 = "" Or OptionButton1 = False Then
MsgBox "Bitte Vermessungsauftrag vollständig ausfüllen"
Else
With Worksheets("Tabelle der Aufträge")
loLetzte = .Cells(.Rows.Count, 3).End(xlUp).Offset(1, 0).Row
.Cells(loLetzte, 3) = CDate(Me.DatumBox1)
.Cells(loLetzte, 4) = Me.ArtikelnummerBox1
.Cells(loLetzte, 5) = Me.ArtderTeileBox1
.Cells(loLetzte, 6) = Me.ArtderVermessungBox2
.Cells(loLetzte, 7) = Me.MaschinennummerBox1
.Cells(loLetzte, 8) = CLng(Me.AnzahlBox2)
.Cells(loLetzte, 9) = Me.AuftraggeberBox3
.Cells(loLetzte, 10) = Me.weitereAnsprechpartnerBox4
.Cells(loLetzte, 11) = CDate(Me.WunschterminBox5)
.Cells(loLetzte, 12) = Me.SonstigeBemerkungenBox6
.Range("a1").Select
End With
UserForm1.Hide
End If
End Sub
Gruß Werner