Reihenfolge für zelleneingabe
05.12.2005 15:01:38
lisa
hier mein problem:
möchte die benutzefreundlichkeit in meiner Tabelle erhöhen. haben bestimmte zellen die nicht in geordneter reihenfolge angeordnet sind und auch sehr unterschiedlich groß sind und möchte diese ordnen. mir reicht das in die 4 himmelsrichtungen nicht.
mit tab funktioniert es, mit enter allerdings nicht. und er schreibt mir auch immer den namen der zelle in die zelle, warum und wie kann ich das ändern? danke im vorraus!!!
hier mein VBA:
in "Diese Arbeitsmappe":
Private Sub Workbook_Open()
Worksheets("Tabelle2").Activate
Worksheets("Tabelle1").Activate
Sheets("Tabelle1").EnableSelection = xlUnlockedCells
End Sub
in Tabelle 1:
Option Explicit
Private Sub Worksheet_Activate()
[P8].Select
Application.OnKey "{TAB}", "Makro1"
Application.OnKey "{RETURN}", "Makro1"
End Sub
Private Sub Worksheet_Deactivate()
Application.OnKey "{TAB}"
Application.OnKey "{RETURN}"
End Sub
in modul:
Option Explicit
Option Base 1
Dim intIndex As Integer
Sub Makro1()
Dim arr
intIndex = intIndex + 1
arr = Array("P8", "AF8", "AZ8", "B13", "Q13", "Y13", "AF13", "AM13", "AT13", "BA13", "BH13", "B18", "I18", "T18", "B20", "B27", "AJ37", "AU37", "BH37", "AJ39", "AU39", "BH39", "AJ41", "AU41", "BH41", "AJ43", "AU43", "BH43", "AJ46", "AU46", "BH46", "AJ50", "AU50", "BH50", "AJ52", "AU52", "BH52", "AJ54", "AU54", "BH54", "AJ56", "AU56", "BH56", "AJ58", "AU58", "BH58", "AJ61", "AU61", "BH61")
Range(arr(intIndex)).Select
ActiveCell = ActiveCell.Address([P8])
If intIndex = 49 Then intIndex = 0
End Sub
ich hoffe ihr könnt was damit anfangen...
grüße lisa