Zelle anzeigen beim Öffnen

[Rabe]

Hi,

ich dachte, wenn ich ein Sheet aktiviere und eine Zelle selektiere, dann wird sie auch angezeigt, das ist aber nicht so. Welcher Befehl fehlt noch?

Option Explicit



Private Sub Workbook_Open()

Dim i As Integer

  

  With Sheets(strJahr)

     .EnableSelection = xlUnlockedCells

     i = .Cells(.Rows.Count, "B").End(xlUp).Row

     .Activate

     .Cells(i + 1, 2).Select

  End With

End Sub

Und warum wird bei diesem Code trotzdem nachgefragt, ob ich speichern will, wenn ich die Datei schließe?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
   '   strJahr = Year(Now) 
   Sheets(strJahr).Activate
   If ThisWorkbook.Saved = False Then
      Application.DisplayAlerts = False
      ThisWorkbook.Save
      Application.DisplayAlerts = True
   End If
End Sub

[Zwergel]

Hi Ralf,

mir nicht verständlich, daß dein Code trotz Option Explicit nicht meckert.

Code:

Private Sub Workbook_Open()
 Dim strJahr
 Dim i
 strJahr = "Tabelle1"
 With Sheets(strJahr)
    .EnableSelection = xlUnlockedCells
    i = .Cells(.Rows.Count, "B").End(xlUp).Row
    .Activate
    .Cells(i + 1, 2).Select
 End With
End Sub

So funktioniert es bei mir korrekt und die nächste leere Zelle in B wird aktiviert.

[Rabe]

Hi Michael,

mir nicht verständlich, daß dein Code trotz Option Explicit nicht meckert.

jetzt geht es bei mir plötzlich auch wieder. Excel meckert nicht, weil strJahr eine Public-Const im Modul "mdl_Variablen" ist.

Zum zweiten Makro:
Wenn ich auf das Close-Kreuz drücke, wird die Mappe gespeichert, dann fragt Excel aber nach, ob die Datei gespeichert werden soll und dann wird sie bei "Ja" oder "Nein" geschlossen.


Weitere Auffälligkeit: wenn ich diese Datei aus einer anderen Datei heraus (mit dem dortigen Workbook_Open) öffne, wird in dieser Datei das Workbook_Open (wie oben gezeigt) nicht beachtet.

[RPP63]

Moin Ralf!
Zu Deiner zweiten Frage aus der Eröffnung:
Ich nehme so etwas, dann wird problemlos ohne Nachfrage gepeichert.

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not Me.Saved Then Me.Save
End Sub

Gruß Ralf

[Rabe]

Hi Ralf,

auch damit kommt bei mir eine Nachfrage.

I werd no narrisch! (österreichisch, weil ich grad 3sat Ö anschaue :) )

Wo könnte denn da noch was stehen, daß ein Speichern fordert?

[RPP63]

Ohne Datei nur die Mutmaßung, dass noch etwas in DieseArbeitsmappe steht.

A pro pos Speichern:
Ich kümmere mit jetzt um =WECHSELN("Speichern";"r";"")

Heißt, ich werde jetzt die Speichen meines Fahrrads in Bewegung setzen. ;)

Gruß Ralf

[snb]

Code:

Private Sub Workbook_Open()
  Application.goto Sheets(year(date)).cells(rows.count,1).end(xlup)
End Sub

[snb]

Gibt's etwas hier ?

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub

oder

Code:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

End Sub

[Rabe]

Hallo Ralf,

Ohne Datei nur die Mutmaßung, dass noch etwas in DieseArbeitsmappe steht.

Datei 1:Microsoft Excel Objekt DieseArbeitsmappe

Option Explicit 



Private Sub Workbook_Open() 

  Dim Pfad As String 

   

  With Sheets(strWetter) 

     .EnableSelection = xlUnlockedCells 

     i = .Cells(.Rows.Count, "B").End(xlUp).Row 

     .Activate 

     .Cells(i + 1, 2).Select 

  End With 

  Application.ScreenUpdating = False 

  Pfad = ActiveWorkbook.Path 

  Workbooks.Open Pfad & "\Wetterdaten-Stunde.xlsb" 

  Application.ScreenUpdating = True 

   

End Sub 



Private Sub Workbook_BeforeClose(Cancel As Boolean) 

   

  With Sheets(strWetter) 

     .EnableSelection = xlUnlockedCells 

     .Activate 

     loLetzte = .Cells(Rows.Count, 2).End(xlUp).Row        ' letzte belegte Zelle in Spalte B 

     Application.Goto .Cells(loLetzte, "B"), True    ' anspringen der letzten belegten Zelle 

  End With 

   

  Application.ScreenUpdating = False 

  ThisWorkbook.Save 

  Application.ScreenUpdating = True 

End Sub 

Datei 2, durch 1 geöffnet:Microsoft Excel Objekt DieseArbeitsmappe

Option Explicit 



Private Sub Workbook_Open() 

   

  With Sheets(strJahr) 

     .EnableSelection = xlUnlockedCells 

     i = .Cells(.Rows.Count, "B").End(xlUp).Row 

     .Activate 

     .Cells(i + 1, 2).Select 

  End With 

End Sub 



Private Sub Workbook_BeforeClose(Cancel As Boolean) 

   

  '   strJahr = Year(Now) 

'   Sheets(strJahr).Activate 

'   If ThisWorkbook.Saved = False Then 

'      Application.DisplayAlerts = False 

'      ThisWorkbook.Save 

'      Application.DisplayAlerts = True 

'   End If 



  If Not Me.Saved Then Me.Save 



End Sub 



'Private Sub Workbook_SheetActivate(ByVal Sh As Object) 

'   With Sheets("Ertrag PV-Anlage") 

'      Call AllePivotTabellenaktualisieren 

'   End With 

'End Sub 

' 

[Rabe]

Hi,

Code:

Private Sub Workbook_Open()
 Application.goto Sheets(year(date)).cells(rows.count,1).end(xlup)
End Sub

ja, so geht es auch! Das habe ich jetzt verwendet.