AW: Beispielmappe(xlsm) mit anonymisierten Daten (owT)
02.05.2019 14:05:22
Gerd
Danke für das Angebot. Das ist aber leider nicht möglich. Vielleicht reicht ja folgendes:
Bevor ich eine Userform aufrufe kommt folgendes:
Private Sub CommandButton1_Click()
Dim lngRed, lngWhi As Long
lngRed = RGB(255, 0, 0)
lngWhi = RGB(255, 255, 255)
If Sheets("Tabelle1").Range("B4").Value = "" Then
Unload UserForm1Name
UserForm1Name.Controls("CheckBox2").Visible = False
UserForm1Name.Controls("CheckBox3SStempelSetzen").Visible = False
UserForm1Name.TextBox1Vorname.BackColor = lngRed
UserForm1Name.TextBox1Vorname.ForeColor = lngWhi
UserForm1Name.TextBox1Vorname.SetFocus
UserForm1Name.Show
End If
If Sheets("Tabelle1").Range("C4").Value = "" Then
Unload UserForm1Name
UserForm1Name.Controls("CheckBox2").Visible = False
UserForm1Name.Controls("CheckBox3SStempelSetzen").Visible = False
UserForm1Name.TextBox2Zuname.BackColor = lngRed
UserForm1Name.TextBox2Zuname.ForeColor = lngWhi
UserForm1Name.TextBox2Zuname.SetFocus
UserForm1Name.Show
End If
If Sheets("Tabelle1").Range("B4").Value "" And Sheets("Tabelle1").Range("C4").Value "" _
And Sheets("Tabelle3").Range("G3").Value = 0 Then
Unload UserForm1Name
Sheets("Tabelle3").Range("E2").Value = True
'MsgBox "Der Haken bei *Neuanlage* wurde automatisch gesetzt"
End If
If Sheets("Tabelle3").Range("E3").Value = 1 Then
Unload UserForm1Name
Sheets("Tabelle1").Range("B1:D2").Value = "Neuanlage_User"
Dim myDatum As String
Application.Goto Reference:="Neuanlagedatum"
myDatum = Date
Selection.Value = myDatum
End If
If Sheets("Tabelle1").Range("B1").Value = "Neuanlage_User" And Sheets("Tabelle3").Range("C5" _
).Value = 0 Then
UserForm1Hinzu.Show
End If
Dann wird die UserFormHinzu aufgerufen. Hier habe ich dann noch für die einzelnen Boxen _
folgendes:
Private Sub CheckBox301ÄD_Click()
If CheckBox301ÄD.Value = True Then
Sheets("Tabelle3").Range("P3").Value = 1
' Sheets("Tabelle3").Range("P27").Value = 1
Else
CheckBox301ÄD.Value = False
Sheets("Tabelle3").Range("P3").Value = 0
Sheets("Tabelle3").Range("P27").Value = 0
End If
End Sub
Private Sub CheckBox320MVÄrzte_Click()
If CheckBox320MVÄrzte.Value = True Then
Sheets("Tabelle3").Range("T3").Value = 1
' Sheets("Tabelle3").Range("T35").Value = 1
Else
CheckBox320MVÄrzte.Value = False
Sheets("Tabelle3").Range("T3").Value = 0
Sheets("Tabelle3").Range("T35").Value = 0
End If
End Sub
Private Sub CheckBox321MVAnmeldungPIA_Click()
If CheckBox321MVAnmeldungPIA.Value = True Then
Sheets("Tabelle3").Range("T4").Value = 5
' Sheets("Tabelle3").Range("T36").Value = 5
Else
CheckBox321MVAnmeldungPIA.Value = False
Sheets("Tabelle3").Range("T4").Value = 0
Sheets("Tabelle3").Range("T36").Value = 0
End If
End Sub
Private Sub CheckBox322MVErgo_Click()
If CheckBox322MVErgo.Value = True Then
Sheets("Tabelle3").Range("T5").Value = 1
' Sheets("Tabelle3").Range("T37").Value = 1
Else
CheckBox322MVErgo.Value = False
Sheets("Tabelle3").Range("T5").Value = 0
Sheets("Tabelle3").Range("T37").Value = 0
End If
End Sub
usw.
Ich hoffe du kannst damit etwas anfangen.