Optionsfelder
Fredy
Ich möchte gerne Optionsfelder verwenden komme aber mit dem Code nicht klar
Wen ich einer von der Optionsfelder an klicke sollte es mir eigentlich eins von den 3
Früh", "Mittag", "Nacht auf dem Tabellenballt TM2Rapport Eingabe ein fügen
Leiter geht das noch nicht wirklich
Sattesten zeigt es nur das so an #WERT!
https://www.herber.de/bbs/user/66346.xls
Sub Daten_eintragen()
Dim arrSchichten
arrSchichten = Array("Früh", "Mittag", "Nacht")
With Sheets("TM2Rapport Eingabe").Cells(Rows.Count, 2).End(xlUp)
.Offset(1, 0) = Range("B9")
.Offset(1, 1) = Application.Index(Range("B58:B97"), Range("F9"))
.Offset(1, 2) = Application.Index(arrSchichten, Range("H9") - 1)
.Offset(1, 2) = Application.Index(arrSchichten, Range("H9") - 1)
.Offset(1, 2) = Application.Index(arrSchichten, Range("H9") - 1)
.Offset(1, 3) = Range("B12")
End With
End Sub
Anzeige