Datum

Titel

19.04.2024 15:39:42

Exceltabelle daten per combobox zu word Datei

19.04.2024 14:04:05

PDF per VBA ausgeben - Seitenskalierung

19.04.2024 13:58:02

Set Worksheet geht im O365 aber im Excel 2016 nicht

19.04.2024 13:49:38

Per Kopfdruck als pdf speichern und Mail erstellen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

816to820

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Automatisch in Zelle springen

Forumthread: Automatisch in Zelle springen
4 Beiträge zu diesem Forumthread
Anzeige
301 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

13.11.2006 18:37:58

dan

hallo,
ich benötige einen Code/ Formel, welche die Fkt. hat, dass wenn ich in Spalte "G" etwas eintrage ("J") automatisch in die in die Spalte "U" springt. Selbe Zeile.
Über Hilfe würde ich mich sehr freuen
VLG Dan

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Automatisch in Zelle springen

13.11.2006 19:16:24

ChrisL
AW: Automatisch in Zelle springen

13.11.2006 19:28:39

DAN
AW: Automatisch in Zelle springen

13.11.2006 19:41:14

ChrisL
AW: Automatisch in Zelle springen

13.11.2006 19:47:54

DAN

AW: Automatisch in Zelle springen

13.11.2006 19:16:24

ChrisL

Hallo Dan
Alt + F11, links Doppelklick auf Tabelle, Code einfügen.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
If Target <> "" Then Cells(Target.Row, 21).Select
End If
End Sub

Ohne VBA mit Blattschutz und Tab zum Springen.
Gruss
Chris

AW: Automatisch in Zelle springen

13.11.2006 19:28:39

DAN

Hallo Chris,
schonmal merci für deine Hilfe.
Ich habe schon folgenden Code in diesem Arbeitsbaltt.
Leider weiß ich nicht wie ich 2 codes verknüpfen kann! Einfach drunter kopieren funktioniert nicht ;-)
Vlg Dan
-------------------------------------
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngB As Range, rng As Range, ii As Integer
Set rngB = Intersect(Target, Range("G4:G789"))
If rngB Is Nothing Then Exit Sub
For Each rng In rngB
If UCase(rng) = "J" Then
rng = "J"
For ii = 8 To 17
If IsEmpty(Cells(rng.Row, ii)) Then Cells(rng.Row, ii) = rng
Next ii
End If
Next rng
End Sub

AW: Automatisch in Zelle springen

13.11.2006 19:41:14

ChrisL

Hallo Dan
Probier mal...


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngB As Range, rng As Range, ii As Integer
Set rngB = Intersect(Target, Range("G4:G789"))
If rngB Is Nothing Then Exit Sub
On Error GoTo ErrorHandler
Application.EnableEvents = False
For Each rng In rngB
If UCase(rng) = "J" Then
rng = "J"
For ii = 8 To 17
If IsEmpty(Cells(rng.Row, ii)) Then Cells(rng.Row, ii) = rng
Next ii
End If
Next rng
Cells(Target.Row, 21).Select
Application.EnableEvents = True
Exit Sub
ErrorHandler:
Application.EnableEvents = True
MsgBox Err.Description, vbCritical, "Fehler " & Err.Number
End Sub

cu
Chris

AW: Automatisch in Zelle springen

13.11.2006 19:47:54

DAN

Super .... klappt !
danke dir !
vlg dan