Habe unteren Code in UserForm.
Der mir Werte von Textboxen in Sheets "Personalbesetzung" einträgt.
In Sheets"Personaldruck" habe ich Formeln,zB. in D9
=Personalbesetzung!E9
Nun möchte ich
If Worksheets("Personaldruck").Range("D9").Value = 0 Then
Rows(9).Hidden = True
End If
Nur wird mir die Zeile in "Personalbesetzung" ausgeblendet.Nicht in "Personaldruck"Also im falschen Sheets.
Wo liegt bitte der Fehler ?
Gruß
Heinz
Private Sub CommandButton1_Click()
Dim ZeileReserve As Long, iIndex As Long
Application.ScreenUpdating = False
Me.Hide
With Sheets("Personalbesetzung")
.Unprotect Password:="vetro"
ZeileReserve = 20 'Zeilenzähler für Reserve-Personal
.Range("Q5") = ComboBox1 'Datum
.Range("U5") = ComboBox2 'Schicht
.Range("F7") = ComboBox21 'Schichtmeister
.Range("F32") = TextBox15 'Schrumpfer
.Range("E27") = TextBox17 'QS
.Range("K5") = TextBox3 'Vorarbeiter
'Ausfüllbereiche leeren
.Range("E10:G19").ClearContents
.Range("C21:C25").ClearContents
.Range("E28:G28").ClearContents
.Range("F33:G33").ClearContents
'Sortierer 1 bis 10
For iIndex = 1 To 10
If fncPersonal(sName:=Me.Controls("TextBox" & 3 + iIndex).Value, _
sTaetigkeit:=Me.Controls("ComboBox" & 4 + iIndex).Value, _
lZeile:=ZeileReserve) = True Then Me.Show: Exit Sub
Next
'Anlerner 1
Call fncPersonal(sName:=TextBox18, sTaetigkeit:=ComboBox15, lZeile:=ZeileReserve)
'Anlerner 2
Call fncPersonal(sName:=TextBox19, sTaetigkeit:=ComboBox16, lZeile:=ZeileReserve)
'Ferialarbeiter 1 bis 3
For iIndex = 1 To 3
If fncPersonal(sName:=Me.Controls("TextBox" & 19 + iIndex).Value, _
sTaetigkeit:=Me.Controls("ComboBox" & 16 + iIndex).Value, _
lZeile:=ZeileReserve) = True Then Me.Show: Exit Sub
Next
Unload Me
.Range("A1").Copy
.Range("A1").PasteSpecial xlPasteFormats
Sheets("Personalbesetzung").Select
Application.CutCopyMode = False
End With
'Zeilen ausblenden wenn 0
'L:311+P:
If Worksheets("Personaldruck").Range("D9").Value = 0 Then
Rows(9).Hidden = True
End If
With Sheets("Personalbesetzung")
.Protect Password:="vetro"
Worksheets("Personaldruck").PrintOut Copies:=1, Collate:=True
Worksheets("Personaldruck").Rows.Hidden = False
Application.ScreenUpdating = True
End With
End Sub