26.06.2017, 18:58
Ach nein, gibt noch ein Workbook_Open()
Code:
Private Sub Workbook_Open()
With Tabelle1
If .AutoFilterMode Then .UsedRange.AutoFilter
End With
Tabelle1.TextBox1.Activate
End Sub
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)