text- Combobox darf nicht leer sein
18.09.2017 23:13:49
Tasman
jetzt schreibe ich schon wieder weil ich das nächste Problem habe.
erstmal vielen dank Peter (Silli) es hat einwandfrei geklappt. Ich bin neu hier und weiß nicht wie ich in der vorigen nachricht was dazu schreiben kann ....
Na ja egal jetzt zu meinem Problem:
Ich habe 12 Reien mit je 3 Textfelder in dem ersten steht ein Name und den weiteren 2 sind Zahlen drin jetzt will ich beim Speichern (übertragen in Tabelle) das wenn ein Name drin steht auch die dazu gehörigen zahlen felder ausgefüllt sein müssen aber von den 12 werden nicht immer alle benötigt bei der Täglichen Aufnahme.
Der quelltext um den es geht beim betätigen der Speicher Schaltfläche:
Private Sub SpeichernEin_Click()
Worksheets("Daten").Activate
ActiveSheet.Unprotect
Dim last As Integer
last = Tabelle7.Cells(Rows.Count, 1).End(xlUp).Row + 1 'ActiveSheet
Cells(last, 1).Value = CDate(DatumEin)
Cells(last, 2).Value = CStr(ProdL11)
Cells(last, 3).Value = CDbl(MengL11)
Cells(last, 4).Value = CInt(AnzL11)
Cells(last, 5).Value = CDate(DatumEin)
Cells(last, 6).Value = CStr(ProdL12)
Cells(last, 7).Value = CDbl(MengL12)
Cells(last, 8).Value = CInt(AnzL12)
Cells(last, 9).Value = CDate(DatumEin)
Cells(last, 10).Value = CStr(ProdL13)
Cells(last, 11).Value = CDbl(MengL13)
Cells(last, 12).Value = CInt(AnzL13)
Cells(last, 13).Value = CDate(DatumEin)
Cells(last, 14).Value = CStr(ProdL21)
Cells(last, 15).Value = CDbl(MengL21)
Cells(last, 16).Value = CInt(AnzL21)
Cells(last, 17).Value = CDate(DatumEin)
Cells(last, 18).Value = CStr(ProdL22)
Cells(last, 19).Value = CDbl(MengL22)
Cells(last, 20).Value = CInt(AnzL22)
Cells(last, 21).Value = CDate(DatumEin)
Cells(last, 22).Value = CStr(ProdL23)
Cells(last, 23).Value = CDbl(MengL23)
Cells(last, 24).Value = CInt(AnzL23)
Cells(last, 25).Value = CDate(DatumEin)
Cells(last, 26).Value = CStr(ProdL31)
Cells(last, 27).Value = CDbl(MengL31)
Cells(last, 28).Value = CInt(AnzL31)
Cells(last, 29).Value = CDate(DatumEin)
Cells(last, 30).Value = CStr(ProdL32)
Cells(last, 31).Value = CDbl(MengL32)
Cells(last, 32).Value = CInt(AnzL32)
Cells(last, 33).Value = CDate(DatumEin)
Cells(last, 34).Value = CStr(ProdL33)
Cells(last, 35).Value = CDbl(MengL33)
Cells(last, 36).Value = CInt(AnzL33)
Cells(last, 37).Value = CDate(DatumEin)
Cells(last, 38).Value = CStr(ProdL41)
Cells(last, 39).Value = CDbl(MengL41)
Cells(last, 40).Value = CInt(AnzL41)
Cells(last, 41).Value = CDate(DatumEin)
Cells(last, 42).Value = CStr(ProdL42)
Cells(last, 43).Value = CDbl(MengL42)
Cells(last, 44).Value = CInt(AnzL42)
Cells(last, 45).Value = CDate(DatumEin)
Cells(last, 46).Value = CStr(ProdL43)
Cells(last, 47).Value = CDbl(MengL43)
Cells(last, 48).Value = CInt(AnzL43)
ActiveSheet.Protect
Worksheets("Auswertung").Activate
ActiveSheet.Unprotect
ActiveSheet.Protect
Unload Me
End Sub
Ansonsten Funktioniert alles ich ladse die datei mit hoch.
Vielen dank im Vorraus.
MfG Alex
https://www.herber.de/bbs/user/116345.xlsm