Office: Leere Eingabe verhindern

Hallo,

habe da noch ein kleines Problem,

ich würde gerne in meiner UserForm, die viele TextBoxen hat eine Abfrage einbauen, die verhindert das die TexBoxen leer bleiben.

Am liebsten wäre mir das, wenn das abgefragt wird, wenn ich auf den Button klicke der die Eingabe dann in die Tabelle übernimmt.

Super wäre, wenn dann eine eine Meldung kommt, die mir sagt, dass Eingaben fehlen und dann ja änder oder nicht ändern ausgewählt werden kann.

Hoffe dazu hat auch jemand eine Lösung *Smilie

Danke schon mal

Grüße
Stefan

:)

 

Hallo Stefan
versuchs mal so.
Code:

gruss hary

 

Hallo Hary

danke schon mal für deine Antwort.

Wie soll ich denn das einfügen? Soll ich dann mein ganzen Code da rein schreiben, von der ganzen UserForm?

Hier mal mein ganzer Code:


Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton1_Click()

Dim letzte As Long
Cells.Borders.LineStyle = xlNone
letzte = Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(letzte, 2) = Me.TextBox10
Cells(letzte, 4) = Me.TextBox3
Cells(letzte, 5) = Me.TextBox4
Cells(letzte, 6) = Me.TextBox5
Cells(letzte, 7) = Me.TextBox11
Cells(letzte, 8) = Me.TextBox6


With Cells(letzte, 9)

.Value = Replace(Me.TextBox7, Chr(13), Chr(10))
.Value = Replace(.Value, Chr(10) & Chr(10), Chr(10))

End With

Cells(letzte, 3) = Me.ComboBox1
Cells(letzte, 10) = Me.TextBox9
Cells(letzte, 11) = Me.TextBox12

Me.TextBox3 = ""
Me.TextBox4 = ""
Me.TextBox5 = ""
Me.TextBox6 = ""
Me.TextBox7 = ""
Me.ComboBox1 = ""
Me.TextBox9 = ""
Me.TextBox10 = ""
Me.TextBox11 = ""
Me.TextBox12 = ""


TextBox10 = Left(Cells(letzte, 2), 6) & VBA.Format(VBA.Right(Cells(letzte, 2), 3) + 1, "00")
Range(Range("B6:L6"), Cells(Rows.Count, 2).End(xlUp)).Borders.LineStyle = xlContinuous
Range("B6:L6").BorderAround Weight:=xlThick
Range(Range("B6:L6"), Cells(Rows.Count, 2).End(xlUp)).BorderAround Weight:=xlThick

End Sub


Private Sub ComboBox2_Change()
Me.TextBox10 = findmax(Me.ComboBox2.Value)
End Sub

Private Function findmax(lngJahr) As String
Dim lngmax As Long, i As Long
Dim fAuditNummern As Variant
Dim fEinzelnummer As Variant
Dim blnErsterEintrag As Boolean
With Sheets("Plan")
If .Cells(.Rows.Count, "B").End(xlUp).Row < 7 Then
blnErsterEintrag = True
Else
fAuditNummern = .Range(.[B7], .Cells(.Rows.Count, "B").End(xlUp))
If IsArray(fAuditNummern) Then
For i = LBound(fAuditNummern, 1) To UBound(fAuditNummern, 1)
fEinzelnummer = Split(fAuditNummern(i, 1), ".")
If CLng(fEinzelnummer(0)) = lngJahr Then
If CLng(fEinzelnummer(1)) > lngmax Then lngmax = CLng(fEinzelnummer(1))
End If
Next i
Else
fEinzelnummer = Split(fAuditNummern, ".")
If CLng(fEinzelnummer(0)) = lngJahr Then
If CLng(fEinzelnummer(1)) > lngmax Then lngmax = CLng(fEinzelnummer(1))
End If
End If
End If
End With


If lngmax > 0 Then
findmax = Format(lngJahr, "0000") & "." & Format(lngmax + 1, "000")
Else
findmax = Format(lngJahr, "0000") & ".001"
End If
End Function

Private Sub CommandButton3_Click()
MsgBox "hier kommt die Info rein"
End Sub

Private Sub UserForm_Activate()
Dim letzte As Long
letzte = Cells(Rows.Count, 2).End(xlUp).Row + 1
Me.TextBox10 = "Jahr wählen"
Me.ComboBox1.List = Array("1st", "2nd", "3rd")
Me.ComboBox1.ListIndex = 0
Me.ComboBox2.List = Array(Year(Date), Year(Date) + 1)
End Sub


Gruß Stefan

 

Hallo Stefan
sollte so klappen. Nicht getestet da ich das nicht nachbaue.
Code:

gruss hary

 

Danke dir für deine Mühe, echt super!

Beim Testen zeigt er mir einen Fehler an. Kann das sein, dass das an den DropDown Feldern liegt??

Ich habe mal die Datei angehängt mit der Änderung.

Gruß Stefan

 

Hallo Stefan
Hast Du diesen Teil beachtet?
Code:

und gibt es diese Textboxen?
gruss hary
hab hier nur Excel97

 

ja es gibt eine ComboBox1 und 2,
Textbox 2-7 und 9-12

Wenn ich debugge dann geht er in diese Zeile:

With UserForm1("TextBox" & a) 'FormName anpassen

Gruß

 

Hallo
ersetz mal Userform1 durch Me
gruss hary

 

Hallo Stefan,

wenn die Anzahl der Textboxen variiert und die Namen nicht strukturiert sind, kannst Du auch wie folgt prüfen:
Code:

Die Farbzuweisung ist optional, kannst Du natürlich auch rausnehmen.

Ach: Und sei bitte so gut und nutze die Codetags. Im Text versteckter Code liest sich schlecht.

Grüße
EarlFred

 

Morgen zusammen,

sorry das ich erst jetzt wieder schreibe, war etwas stressig...

Danke euch nochmal für die Antworten. Das funktioniert wirklich gut, nur habe ich jetzt das Problem, dass mein Rahmen nicht mehr erzeugt wird! D.h. es wird nur ein dicker Rahmen um die letzte Eingabe gelegt und nicht mehr wie davor um die gesamten Eingaben und innen ein dünner...

Kann mir da bitte jemand weiter helfen?

Grüße
Stefan

Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton1_Click()
Dim letzte As Long
'-----Pruefung------------
If Pruefung Then
MsgBox "Angaben sind noch nicht vollständig!", vbInformation
Exit Sub
Else
'-------------------------
Cells.Borders.LineStyle = xlNone
letzte = Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(letzte, 2) = Me.TextBox10
Cells(letzte, 4) = Me.TextBox3
Cells(letzte, 5) = Me.TextBox4
Cells(letzte, 6) = Me.TextBox5
Cells(letzte, 7) = Me.TextBox11
Cells(letzte, 8) = Me.TextBox6


With Cells(letzte, 9)

.Value = Replace(Me.TextBox7, Chr(13), Chr(10))
.Value = Replace(.Value, Chr(10) & Chr(10), Chr(10))

End With

Cells(letzte, 3) = Me.ComboBox1
Cells(letzte, 10) = Me.TextBox9
Cells(letzte, 11) = Me.TextBox12

Me.TextBox3 = ""
Me.TextBox4 = ""
Me.TextBox5 = ""
Me.TextBox6 = ""
Me.TextBox7 = ""
Me.ComboBox1 = ""
Me.TextBox9 = ""
Me.TextBox10 = ""
Me.TextBox11 = ""
Me.TextBox12 = ""


TextBox10 = Left(Cells(letzte, 2), 6) & VBA.Format(VBA.Right(Cells(letzte, 2), 3) + 1, "00")
Range(Range("B6:L6"), Cells(Rows.Count, 2).End(xlUp)).Borders.LineStyle = xlContinuous
Range("B6:L6").BorderAround Weight:=xlThick
Range(Range("B6:L6"), Cells(Rows.Count, 2).End(xlUp)).BorderAround Weight:=xlThick
End If
End Sub


Private Sub ComboBox2_Change()
Me.TextBox10 = findmax(Me.ComboBox2.Value)
End Sub

Private Function findmax(lngJahr) As String
Dim lngmax As Long, i As Long
Dim fAuditNummern As Variant
Dim fEinzelnummer As Variant
Dim blnErsterEintrag As Boolean
With Sheets("Plan")
If .Cells(.Rows.Count, "B").End(xlUp).Row < 7 Then
blnErsterEintrag = True
Else
fAuditNummern = .Range(.[B7], .Cells(.Rows.Count, "B").End(xlUp))
If IsArray(fAuditNummern) Then
For i = LBound(fAuditNummern, 1) To UBound(fAuditNummern, 1)
fEinzelnummer = Split(fAuditNummern(i, 1), ".")
If CLng(fEinzelnummer(0)) = lngJahr Then
If CLng(fEinzelnummer(1)) > lngmax Then lngmax = CLng(fEinzelnummer(1))
End If
Next i
Else
fEinzelnummer = Split(fAuditNummern, ".")
If CLng(fEinzelnummer(0)) = lngJahr Then
If CLng(fEinzelnummer(1)) > lngmax Then lngmax = CLng(fEinzelnummer(1))
End If
End If
End If
End With


If lngmax > 0 Then
findmax = Format(lngJahr, "0000") & "." & Format(lngmax + 1, "000")
Else
findmax = Format(lngJahr, "0000") & ".001"
End If
End Function

Private Sub CommandButton3_Click()
MsgBox "hier kommt die Info rein"
End Sub

Private Sub UserForm_Activate()
Dim letzte As Long
letzte = Cells(Rows.Count, 2).End(xlUp).Row + 1
Me.TextBox10 = "Jahr wählen"
Me.ComboBox1.List = Array("1st", "2nd", "3rd")
Me.ComboBox1.ListIndex = 0
Me.ComboBox2.List = Array(Year(Date), Year(Date) + 1)
End Sub
Function Pruefung() As Boolean
Dim ctr As Control
For Each ctr In Me.Controls
If TypeName(ctr) = "TextBox" Then
If Trim(ctr.Text) = Empty Then
ctr.BackColor = RGB(255, 0, 0)
Pruefung = True
Else
ctr.BackColor = -2147483643
End If
End If
Next
End Function

 

Weiß nicht warum, aber ich habe es hin bekommen *Smilie

Habe einfach den Teil nochmal sauber hingeschrieben.

Danke trotzedem

Grüße