msgBox Hilfe
Ingo
Ich habe von Oberschlumpf einen Code bekommen, der gut funktioniert! Dann habe ich bei Sepp noch was gefunden, wo ich dachte ich könnte das in den Code von Oberschlumpf mit ein bauen > Pech gehabt!!
Beim 1. code läuft es so wie ich es will, nämlich es wird NICHT gespeichert.
Beim 2. code wird zwar die gewollte Tabelle geöffnet, aber auch in die Tabelle geschrieben in die nicht geschrieben werden soll! und zwar auch noch mit zeichen!? Was läuft da wohl schief?
fragt sich Ingo
Private Sub CommandButton2_Click() ' schreibt zurück in Tabelle
'Dim Zeile As Long
'Select Case LCase(Left(TextBox2.Value, 2))
' Case "ep"
' MsgBox "Daten dürfen nur in Tabelle EP. geändert werden !"
' Exit Sub
'Case "kh"
' MsgBox "Daten dürfen nur in Tabelle HU. geändert werden ! "
' Exit Sub
'End Select
Dim Zeile As Long
Select Case LCase(Left(TextBox2.Value, 2))
Case "ep"
reply = MsgBox("Daten nur in Tabelle HU EPOCHEN ändern !" & vbLf & _
" Soll die Tabelle geöffnet werden?", vbYesNo)
If reply = vbYes Then
Sheets("HU EPOCHEN").Activate ' ABER nicht speichern in Tab "AlleDaten"
ElseIf reply = vbNo Then
Exit Sub ' ABER nicht speichern in Tab "AlleDaten"
End If
End Select
Select Case LCase(Left(TextBox2.Value, 2))
Case "kh"
reply = MsgBox("Daten nur in Tabelle KÜHA EPO ändern!" & vbLf & _
" Soll die Tabelle geöffnet werden?", vbYesNo)
If reply = vbYes Then ' ABER nicht speichern in Tab "AlleDaten"
Sheets("KÜHA EPO (2)").Activate
ElseIf reply = vbNo Then ' ABER nicht speichern in Tab "AlleDaten"
Exit Sub
End If
End Select
Zeile = ListBox1.List(ListBox1.ListIndex, 6)
With Worksheets("AlleDaten")
.Cells(Zeile, 1).Value = TextBox1.Value
.Cells(Zeile, 2).Value = TextBox2.Value
.Cells(Zeile, 3).Value = TextBox3.Value
.Cells(Zeile, 4).Value = CCur(TextBox4) 'CCur wandelt Text in Zahl um!!! TextBox4.Value
'.Cells(Zeile, 5).Value = TextBox5.Value
.Cells(Zeile, 6).Value = TextBox6.Value
End With
End Sub