cdbl
10.08.2007 11:58:14
Holger
Habe folgendes
Sub umd daten in ein sheet zu schreiben
Sub TextBox1_AfterUpdate()
Dim Bereich As String
Dim Name As String
Dim Vorname As String
Dim Funktion As String
Dim AZPW As String
Name = Personal.TextBox1.Value
Vorname = Personal.TextBox2.Value
Funktion = Personal.ComboBox2.Value
Bereich = Personal.ComboBox1.Value
AZPW = Personal.TextBox3.Value
Dim Letzte As Long, zeile As Long
Dim s As String, t As String, a As String
Dim b As Integer, zeile1 As Integer
s = Personal.TextBox1.Value
t = Personal.TextBox2.Value
If Sheets("Personal").Range("A65536").Value = "" Then
Letzte = Sheets("Personal").Range("A65536").End(xlUp).Row
Else
Letzte = 65536
End If
For zeile = Letzte To 1 Step -1
If Sheets("Personal").Cells(zeile, 1).Value = Personal.TextBox1.Value Then
If Sheets("Personal").Cells(zeile, 2).Value = Personal.TextBox2.Value Then
MsgBox (" Mitarbeiter " & s & " " & t & " ist schon vorhanden")
Personal.TextBox1.Value = ""
Personal.TextBox2.Value = ""
Personal.ComboBox2.Value = ""
Personal.ComboBox1.Value = ""
Personal.TextBox3.Value = ""
Exit Sub
Else
a = 1
End If
Else
a = 1
End If
Next zeile
If a = 1 Then
Sheets("Personal").Range("A65536").End(xlUp).Offset(1, 0) = Name ' Hier die kannst _
du dann rausnehmen, wenn nicht unten oder
Sheets("Personal").Range("B65536").End(xlUp).Offset(1, 0) = Vorname ' den auch
Sheets("Personal").Range("C65536").End(xlUp).Offset(1, 0) = Funktion
Sheets("Personal").Range("D65536").End(xlUp).Offset(1, 0) = Bereich
Sheets("Personal").Range("E65536").End(xlUp).Offset(1, 0) = AZPW
b = Sheets("Personal").Range("A65536").End(xlUp).Offset(0, 0).Row
For zeile1 = b To 1 Step -1
If Sheets("Personal").Cells(zeile1, 1).Value "" And Sheets("Personal").Cells( _
zeile1, 2).Value = "" Then
Sheets("Personal").Cells(zeile1, 1).EntireRow.Delete
End If
Next zeile1
End If
End Sub
läuft auch alles wunderbar, nur in textbox3 (AZPW) werden teils dezimalzahlen teils ganze zahlen eingegeben, bei den ganzen Zahlen funktioniert auch alles, aber bei dezimalzahlen bekomme ich im sheet eine fehlermeldung (Als text gespeicherte Zahl), um die daten im sheet weiter zu bearbeiten brauche ich aber die zelle ohne fehlermeldung. kann mir dabei jemand Helfen?
Danke und Gruß
Holger