Warum?Code funzt nicht
22.02.2007 11:14:26
Konni
beim nachstehenden Code kehrt Excel nicht zur Tabelle 1 zurück. Warum?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Range("Y12") > 0 Then 'Zelle befindet sich in Tabelle 1
Dim Yes As VbMsgBoxResult
Yes = MsgBox("Sie müssen Details angeben!", vbOKOnly + vbExclamation, "Protokolltext")
If Yes = 1 Then Tabelle2.Select
ActiveSheet.Rows.AutoFit 'bis hierhin funktioniert's
If ActiveCell.Value > 0 Then Tabelle1.Select 'hier passiert nichts
End If
End Sub
Kann leider kein VBA und bin deshalb auf die Hilfe des Forums angewiesen.
Tausend Dank im voraus
Grüsse: Konni