AW: Fadenkreuz
12.12.2003 15:53:16
marko_ti
Hi Robert,
also:
blende Personl.xls ein ( Fenster -> einblenden -> Personl.xls)
dann zum VBA-Editor mit ALT+F11 , klicke Dich bis zu "VBA Project (Personl.xls)", "Diese Arbeitsmappe" durch, Doppelklick drauf, kopiere DAS da ins leere Fenster:
Private Sub Workbook_Open()
Application.OnKey "%{RIGHT}", "FadenkreuzRechts"
Application.OnKey "%{LEFT}", "FadenkreuzLinks"
Application.OnKey "%{UP}", "FadenkreuzOben"
Application.OnKey "%{DOWN}", "FadenkreuzUnten"
End Sub
Öffne (oder erzeuge per Rechtsklick auf "Diese Arbeitsmappe" -> Einfügen -> Modul) irgendein Modul, kopiere DAS da rein:
Sub FadenkreuzRechts() ' 19.11.2003 von Marko_Ti
On Error Resume Next
ActiveCell.Offset(0, 1).Range("A1").Select
Call Marker
End Sub
Sub FadenkreuzLinks() ' 19.11.2003 von Marko_Ti
On Error Resume Next
ActiveCell.Offset(0, -1).Range("A1").Select
Call Marker
End Sub
Sub FadenkreuzOben() ' 19.11.2003 von Marko_Ti
On Error Resume Next
ActiveCell.Offset(-1, 0).Range("A1").Select
Call Marker
End Sub
Sub FadenkreuzUnten() ' 19.11.2003 von Marko_Ti
On Error Resume Next
ActiveCell.Offset(1, 0).Range("A1").Select
Call Marker
End Sub
Sub Marker() ' 19.11.2003 von Marko_Ti
Application.ScreenUpdating = False
zeile = ActiveCell.Row
spalte = ActiveCell.Column
If spalte > 26 Then SpaltennameL = Chr(64 + Int((spalte - 1) / 26)) Else SpaltennameL = ""
SpaltenString = SpaltennameL & LTrim(Chr(64 + (spalte - 26 * Int((spalte - 1) / 26))))
ZeilenString = LTrim(Str(zeile))
Range(SpaltenString & ":" & SpaltenString & "," & ZeilenString & ":" & ZeilenString).Select
Range(SpaltenString & ZeilenString).Activate
Application.ScreenUpdating = True
End Sub
Jetzt VBA-Editor wieder schließen, Personl.xls ausblenden, Excel schließen und neu öffnen, dann sollte es per ALT + Cursortasten funktionieren.
Ich übernehm natürlich für nix Garantie, Du solltest auch keine wichtigen, ungespeicherten Daten offen haben beim Reinkopieren...
Viel Spaß & viele Grüße
Marko