Zitat: |
Private Sub Workbook_Open()
Application.OnEntry = "Eingabe" End Sub |
Zitat: |
Sub Eingabe()
Call JumpTo(ActiveSheet.Cells(1, 2)) End Sub Sub JumpTo(wert As Integer) Dim c As Integer With ActiveSheet.Range("a1:a500") Set f = .Find(wert, LookIn:=xlValues) r = Mid(f.Address(), 2, 1) c = CInt(Right(f.Address(), Len(f.Address()) - 3)) - 1 rc = CStr(r) & CStr(c) If Not f Is Nothing Then Range(rc).Select End If End With End Sub |
Zitat: |
Sub Eingabe()
If ActiveSheet.Cells(1, 2) <> ActiveSheet.Cells(1, 3) Then Call JumpTo(ActiveSheet.Cells(1, 2)) ActiveSheet.Cells(1, 3) = ActiveSheet.Cells(1, 2) End If End Sub |
Zitat: |
Set f = .Find(wert, LookIn:=xlValues, LookAt:=xlWhole) |
Zitat: |
Sub JumpTo(wert As Variant)
Dim adr As String, i As Integer i = 4 vglwert = ActiveSheet.Cells(i, 1) While vglwert > wert i = i + 1 vglwert = ActiveSheet.Cells(i, 1) Wend adr = "A" & CStr(i - 1) Range(adr).Select End Sub |