Ich habe ein Problem mit meiner Userform das sich wie folgt darstellt.
Ich rufe aus der Userform1 die Userform2 mit einer Bedingung auf
Sub CommandButton1_Click()
If Label24.Caption = 19 Then
UserForm4.Show
End If
End Sub
Label24 wird wie folgt befülltDim ZelleAE As Range
Set ZelleAE = Sheets("Protokoll").Range("A1:A65536").Find(What:=Me.TextBox1, LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
Me.Label24 = ZelleAE.Offset(0, 4).Value
Sub CommandButton2_Click()
Dim lngLast&
With Sheets("Tabelle2")
lngLast = Application.Max(.Cells(.Rows.Count, 1).End(xlUp).Row, .Cells(.Rows.Count, 2).End( _
_
xlUp).Row) + 1
.Cells(lngLast, 1) = TextBox1
.Cells(lngLast, 2) = Label24
.Cells(lngLast, 3) = Label25
End With
Dim objOle As OLEObject
For i = 1 To 24
Set obj = Me.Controls("Label" & i)
obj.Caption = ""
Next i
'und der restlicher Code:
End Sub
Nun habe ich auf der Userform1 einen weiteren CommandButton der weitere Daten speichern soll.betätige ich ihn, wird auf einmal das Label24 wieder mit der 19 aus dem Sverweis gefüllt. Das steht aber nirgendwo in dem Code des CommandButton2!
Somit wird die Userform2 wieder angezeigt, dass soll aber nicht so sein!
Weshalb wird das Label wieder beschrieben gibt es hier einen Zwischenspeicher der nicht gelöscht und wieder aktiviert wird?
Wie werde ich das los! Ich weiß nicht, wie ich das starten der UF2 an der stelle verhindern soll! Hat jemand eine Idee? Ich bin am verzweifeln!
LG Lisa