02.01.2015, 03:40
Hallo zusammen,
eventuell könnt ihr mir ja helfen.
Ich habe eine Combobox in einer UF. in der Combobox habe ich bestimmte Zeit Intervalle (08:00 bis 09:00 usw.) hinterlegt. Wenn ich das erste Zeit Intervall auswähle und in die TextBox etwas eintrage, wird der Eintrag im Arbeitsblatt Tabelle1 Zeile D66 richtig eingetragen. Wenn ich aber nun das zweite Zeit Intervall auswähle, soll dieses in der Spalte E66 eingetragen werden. das funktioniert bei mir leider nicht.
Hier mein Code:
Vielen Dang und VG Mario
eventuell könnt ihr mir ja helfen.
Ich habe eine Combobox in einer UF. in der Combobox habe ich bestimmte Zeit Intervalle (08:00 bis 09:00 usw.) hinterlegt. Wenn ich das erste Zeit Intervall auswähle und in die TextBox etwas eintrage, wird der Eintrag im Arbeitsblatt Tabelle1 Zeile D66 richtig eingetragen. Wenn ich aber nun das zweite Zeit Intervall auswähle, soll dieses in der Spalte E66 eingetragen werden. das funktioniert bei mir leider nicht.
Hier mein Code:
Code:
Private Sub cboIntervalle_Click()
'Zell-und Spaltenbereich für Einträge aus TextBox werden festgelegt
If cboIntervalle.ListIndex <> 0 Then
TextBox1 = Worksheets("Tabelle1").Cells(cboIntervalle.ListIndex + 66, 4)
Else
TextBox1 = ""
End If
'Zell-und Spaltenbereich für Einträge aus TextBox werden festgelegt
If cboIntervalle.ListIndex <> 1 Then
TextBox1 = Worksheets("Tabelle1").Cells(cboIntervalle.ListIndex + 66, 5)
Else
TextBox1 = ""
End If
End Sub
Private Sub CommandButton2_Click()
'Einträge aus TextBox werden beim Drücken des Button "übernehmen" in die Zellen geschrieben
Dim xZeile As Long
If TextBox1 = "" Then Exit Sub
If cboIntervalle.ListIndex = 1 Then
xZeile = [D78].End(xlUp).Row + 1
Else
xZeile = cboIntervalle.ListIndex + 1
End If
Cells(xZeile, 4) = TextBox1
TextBox1 = ""
'Einträge aus TextBox werden beim Drücken des Button "übernehmen" in die Zellen geschrieben
If TextBox1 = "" Then Exit Sub
If cboIntervalle.ListIndex = 2 Then
xZeile = [E78].End(xlUp).Row + 1
Else
xZeile = cboIntervalle.ListIndex + 1
End If
Cells(xZeile, 5) = TextBox1
TextBox1 = ""
End Sub
Vielen Dang und VG Mario