ich habe folgenden code der auch gut läuft :
' WIRD AUTOMATISCH BEIM ÖFFNEN DER DATEI ABGEARBEITET
' DIE MENÜ & SYSMBOLLEISTEN WERDEN AUSGEBLENDET
' NUR DIE KONTOLEISTE WIRD EINGEBLENDET
Private Sub Workbook_Open()
Call PASSWORTABFRAGE
Worksheets(Worksheets.Count).Select ' AKTIVIERT DAS LETZTE BLATT RECHTS
Dim ws As Worksheet
Call AUSBLENDENSYSTEMMENÜ
LEISTEN False
Application.OnKey "{ESC}", "MINIMIEREN"
Application.Caption = "K O N T O F Ü H R U N G"
ActiveWindow.Caption = ""
ActiveSheet.ScrollArea = "A1:G1005"
Call ERSTELLENDERKONTOLEISTE
Call ERSTELLENDERBUTTON
' ANPASSEN DER BILDSCHIRMBREITE
Application.ScreenUpdating = False
Range("A1:G1").Select
Range("A1").Activate
ActiveWindow.Zoom = True
Range("A5").Select
Application.ScreenUpdating = True
End Sub
ich möchte aber erreichen das nicht A5 sondern die erste freie zelle im bereich
A5 bis A1005 ausgewählt wird. in der spalte steht immer ein datum.
dank an jede / en der es liest
gruss aus dem verregneten brauschweig
rolf