Live-Forum - Die aktuellen Beiträge
Datum
Titel
30.04.2024 06:21:20
Schleife hängt sich bei mehr als 7 Wiederholungen auf
29.04.2024 22:12:12
Datei Attribute auslesen
29.04.2024 20:24:42
Datum nach Tag Monat Jahr sortieren
29.04.2024 19:27:41
Farbvorkommen innerhalb einer Produktkategorie
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1912to1916
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1912to1916
1912to1916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nach Eingabe in Zelle springen

nach Eingabe in Zelle springen
30.12.2022 07:31:51
Domingos
Moin zusammen,
wie kann ich nach Eingabe in Tabelle2 "K9" auf Tabelle1 "R3" springen?
Vielen Dank im Voraus

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nach Eingabe in Zelle springen
30.12.2022 07:35:50
MCO
Moin!
Im VBA-Modul von Tabelle 2 schreibe

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target = "" Then
Sheets("Tabelle1").Select
Sheets("Tabelle1").Range("R3").Select
End If
End Sub
Gruß, MCO
AW: nach Eingabe in Zelle springen
30.12.2022 08:04:47
Domingos
Hallo MCO,
vielen Dank für die schnelle Antwort!
Leider springt er jetzt von jeder Zelle in Tabelle 2 er soll aber nur denn springen wenn ich die Zelle "K9" in Tabelle2 geändert habe.
Vielen Dank
AW: nach Eingabe in Zelle springen
30.12.2022 08:10:37
MCO
Natürlich!

Private Sub Worksheet_Change(ByVal Target As Range)
If target.addresslocal = "K9" and Not Target = "" Then
Sheets("Tabelle1").Select
Sheets("Tabelle1").Range("R3").Select
End If
End Sub
Gruß, MCO
Anzeige
AW: nach Eingabe in Zelle springen
30.12.2022 07:39:02
Hans
Hallo Domingos,
Der ChatBot sagt dazu:
------- schnipp -------
Um in Excel mit VBA zu einer bestimmten Zelle in einer anderen Tabelle zu springen, können Sie den folgenden Code verwenden:

Sub Springen()
Worksheets("Tabelle1").Range("R3").Select
End Sub
Dieser Code wird auf die Zelle R3 in Tabelle1 springen, sobald er ausgeführt wird. Wenn Sie möchten, dass dieser Code ausgeführt wird, sobald etwas in Zelle K9 in Tabelle2 eingegeben wird, können Sie den folgenden Code verwenden:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$9" Then
Worksheets("Tabelle1").Range("R3").Select
End If
End Sub
Dieser Code muss in der "ThisWorkbook"-Module eingefügt werden. Der Code prüft, ob sich etwas in Zelle K9 in Tabelle2 geändert hat, und wenn ja, springt er auf Zelle R3 in Tabelle1.
Hinweis: Stellen Sie sicher, dass Sie den Namen der Tabelle und der Zelle, auf die Sie springen möchten, entsprechend anpassen.
------- schnapp -------
Gruß hans
Anzeige
AW: nach Eingabe in Zelle springen
30.12.2022 08:13:06
MCO
Hallo Hans!
Richtig cool, das hier einzubauen!
Für weniger spezielle Anfragen absolut tauglich. Oder um auf die schnelle mal ein Gerüst zur Weiterentwicklung zu generieren.
Danke für den Hinweis!
Gruß, MCO
AW: nach Eingabe in Zelle springen
30.12.2022 08:18:32
Hans
Hallo MCO,
ja, da hat die Coolheit ihre Grenzen ;-)
Der Code des ChatBots funktioniert nicht, da ja vor dem Sprung auf die Zelle das Arbeitsblatt ausgewählt werden muss (oder die GoTo-Methode anzuwenden ist).
Jedenfalls mal ein gutes Beispiel dafür, wie vorsichtig man mit der ansonsten wirklich hilfreichen ChatGPT umgehen muss.
Gruß hans
AW: nach Eingabe in Zelle springen
30.12.2022 08:28:40
Domingos
Vielen lieben Dank! Jetzt funktz auch alles wie es soll :)
Anzeige

302 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
in farblich markierte Zelle springen
Maja

Hallo,
ich möchte in einem Excelblatt innerhalb eines bestimmten Zellbereichs diejenigen Zellen farblich anders markieren, die den Wert 0 aufweisen, die Namen dieser Zellen in einer MsgBox ausweisen und bei Klicken auf "OK" der MsgBox zur ersten der ausgegebenen markierten Zeile springen.
13.11.2008 15:11:05
Thread-ID: 1024246
6 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Per Makro zu einer bestimmten Zelle springen
Joachim

HI,
dank Eurer Hilfe weiss ich nun, wie ich meine Spalte prüfen kann:
For Each c In .Range("BD10:BD100")
If Not IsDate(c) And Not IsEmpty(c) Then
UserForm1.TextBox1 = "Cell " & c.Address & " is not a date !"
Exit Sub
End If
Next
Wenn es die Möglichkeit gi...
25.11.2008 08:16:21
Thread-ID: 1027553
5 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
4
5
3
2
2
5
1
4
4
4
2
2
2
4
5
2
2
4
2
4
2
3
7
2