177 Aufrufe
Gefragt in Tabellenkalkulation von
Moin zusammen,

da ich leider nur sehr bescheidene VBA-Kenntnisse habe, hoffe ich auf eure Mithilfe.

Tabelle1

Wenn in "C22" = "W" steht soll er zwei nach unten springen also in dem Fall "C24"

Wenn in "C22" = "L" steht soll er eins nach unten und eins nach rechts springen also in dem Fall auf "D23" und das fortlaufend bis Spalte P

Wenn in "C24" = "L" steht soll er zwei nach oben und eins nach rechts  springen also in dem Fall "D23"

Wenn in "C24" = "W" steht soll er nichts machen und das fortlaufend bis Spalte P

Tabelle2

das Datum wird hier ("B3:B32") per Klick eingetragen (wünschenswert wäre nur Linksklick und rechtsklick soll seine übliche Funktion beibehalten),

nach dem Eintrag  soll er nach Eingabe wie folgt springen

--> "C3" dann "D3" dann "G3"  dann "H3"

bei diesem Schritt soll er die Summe von "H33 + J4" in "Tabelle1 R3" übernehmen und in "Tabelle1" auf "C23" springen

diese Funktion hier dann nur bis Reihe 32 immer gleich

Vielen lieben Dank schon mal im Voraus

4 Antworten

0 Punkte
Beantwortet von
Moin zusammen

z.b.

mit +Zahl und -Zahl wanderst du beliebig

Hinter Tabelle1 oder 2 etc.

Private Sub Worksheet_Change(ByVal Target As Range)
  Select Case Target.Address
   Case "$A$1"
    Cells(Target.Row + 0, Target.Column + 1).Activate
   Case "$A$2"
    Cells(Target.Row + 0, Target.Column + 2).Activate
   Case "$A$3"
    Cells(Target.Row + 0, Target.Column + 3).Activate
  End Select
End Sub
0 Punkte
Beantwortet von
Moin zusammen

Mit Abfrage von Zeichen!

Private Sub Worksheet_Change(ByVal Target As Range)
 Select Case Target.Address
  Case "$A$1"
   If UCase(Target) = "L" Then Cells(Target.Row + 0, Target.Column + 1).Activate
   If UCase(Target) = "M" Then Cells(Target.Row + 1, Target.Column + 1).Activate
  Case "$A$2"
   Cells(Target.Row + 0, Target.Column + 2).Activate
  Case "$A$3"
   Cells(Target.Row + 0, Target.Column + 3).Activate
 End Select
End Sub

Ansonsten Anpassen!
0 Punkte
Beantwortet von
Kann jetzt damit nicht wirklich viel anfangen aber trotzdem vielen Dank
0 Punkte
Beantwortet von
Moin zusammen

Wenn du nicht mal einfachste Structuren verstehst ,liegen deine Fähigkeiten definitiv anderswo!

MfG
...