Hi Hi Zusammen,
2 Fragen noch:
wie kann ich die Liste mit dem Code Shared machen ohne den unprotection fehler ?
Code:
Option Explicit
Private Sub CommandButton1_Click()
With Sheets("Sheet1")
.Unprotect 'Blattschutz aufheben
.Range("$A:$F").AutoFilter Field:=1 'Filter zurücksetzen
.Protect 'Blattschutz setzen
End With
Sheets("Demogeräte (Pool)").Activate
End Sub
das hier ist der Code für die UserForm
Code:
Private Sub CommandButton1_Click()
With Sheets("Sheet1")
.Unprotect 'Blattschutz aufheben
.Activate
.Range("$A:$F").AutoFilter Field:=1 'Filter zurücksetzen
loLetzteA = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) 'letzte belegte Zeile in Spalte A (1)
loZeile = loLetzteA + 1
.Range("$A" & loZeile) = Me.TextBox1.Value 'Artikelnummer in neue Zeile eintragen
.Range("$B" & loZeile) = Me.TextBox2.Value 'Auftrag eintragen
.Range("$C" & loZeile) = Me.TextBox3.Value & " - " & Me.TextBox4.Value 'Reparaturzeit eintragen
.Range("$D" & loZeile) = Me.TextBox5.Value 'Kunde eintragen
.Range("$E" & loZeile) = Me.TextBox6.Value 'Ort eintragen
.Range("$F" & loZeile) = Me.TextBox7.Value 'Bemerkung eintragen
.Protect 'Blattschutz setzen
End With
strArtikel = ""
Me.TextBox1.Value = ""
Unload Me
End Sub
wie kann ich es bewerkstelligen das er mir nach der Eingabe eines neuen artikels diesen filtert. aktuell sehe ich bei Eingabe neuen artikels immer die Komplette Tabelle
ok die frage mit dem Filter hab ich mir selbst beantwortet
.Range("$A$3:$F" & loLetzteA).AutoFilter Field:=1, Criteria1:=strArtikel 'Filter setzen
mit der Zeile in der Userform funktionierts...
- und laut googel geht das mit dem Protect auf Shared liste wohl nicht, falls das anders ist klärt mich auf
