Nach Eingabe in anders Tabellenblatt springen
02.10.2003 09:35:35
Daniel
nachdem ich nun mehrere Stunden damit verbracht habe mein Problem in einem Forum zu finden, aber nur falsche Ansätze gefunden habe, stelle ich meine Frage direkt an euch:
Ich habe eine Arbeitsmappe mit 5 Arbeitblättern, in denen jeweils unterschiedliche Anzahl von Spalten sind,
jetzt suche ich nach einer Funktion,
das ich nach jeder letzten "Eingabe" Spalte (also die letzte Spalte wo ich für eingaben vorgesehen habe) automatisch in das nächste Arbeitsblatt springen kann.
(Das habe ich auch soweit hinbekommen, das das funktioniert)
Was mir jetzt noch fehlt, ist:
1. Das bei einem Sprung in das nächste Arbeitsblatt, die Eingabe wieder am Anfang der Tabelle anfängt, also in Spalte A (oder B)
(mit dem Vorhanden Code, steht der Cursor da wo er zuletzt gestanden ist, in dem Fall in der letzten Spalte)
2. Das bei einen Sprung vom letzten Arbeitsblatt ins erste Automatisch eine Zeile runterrückt (Und auch wieder am Anfang, also Spalte A anfängt).
-----------
Mein Vorhandener Codeschnipsel:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Set rng = Application.Intersect(Target, Range("A:O"))
If Not rng Is Nothing Then
If Target.Column = 14 Then
Worksheets("Customer_Maintenance_Products").Activate
End If
End If
End Sub
-----------
Vielen Dank schonmal für eure Hilfe....
Mfg
Daniel Hippe
Anzeige