Zum Inhalt springen
View in the app

A better way to browse. Learn more.

Fachinformatiker.de

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

VBA: In leere Zelle springen

Empfohlene Antworten

Veröffentlicht

Hi zusammen,

ich habe ein kleines Problem.

Und zwar soll ich in einer Excel-Tabelle wenn ich das Wort "neu" in einer beliebigen Zelle von A eingebe, automatisch in die erste leere Zelle A der Tabelle 3 springen.

Ich weiß nur soviel, dass ich irgendetwas mit Makros machen muss, aber was genau leider nicht. Sorry bin ein ziemlicher Neuling ins Sachen Makro und VBA...

Danke schoneinmal im Voraus

Grüße

Hier wird dir keine fertige Lösung präsentiert.

Hast du dir vorab Gedanken dazu gemacht, wie der Algorithmus arbeiten soll?

Poste mal deine Ansätze hier im Thread.

  • Autor

Naja,

der Makrorecorder hat mich soweit gebracht, dass wenn ich mein Makro ausführe, es in die Tabelle 3 in die Zeile A springt. Brauche eigentlich nur noch das, damit das Makro bei der Eingabe "neu" auch ausgeführt wird.

  • Autor

Hi zusammen,

also ich habe jetzt mal einen Code geschrieben und bin jetzt soweit, dass die markierung bei der eingabe "neu" von tabelle 1 in tabelle 2 in die erste freie zelle der zeile a springt.

Jedoch gibt es da noch folgendes Problem. Sobald ich einmal neu in die tabelle 1 geschrieben habe, springt meine markierung egal bei was, in die tabelle 2. Auch wenn ich das "neu" wieder rausgelöscht habe ist das der fall.

Ich stelle jetzt mal meinen Code hier rein und vielleicht kann mir ja jemand weiterhelfen. Wäre echt nett!!


Private Sub Worksheet_Change(ByVal Target As Range)


On Error Resume Next


   If Range("A1:A3000") = "neu" Then

     Call makro3


   Else

    MsgBox "schon in der Liste vorhanden"


     End If


End Sub


Sub makro3()



    Sheets("Tabelle2").Select


    Range("B1").End(xlDown).Offset(1, 0).Select



End Sub

Grüße

  • Autor

Diese Idee hatte ich auch schon.... aber die Tabelle hat über 3000 Zeilen und es soll ja die Aktion passieren, wenn ich "neu" in irgendeine dieser 3000 Zellen eingebe.

Habe es aber mittlerweile geschafft ;-)

Grüße und Frohe Ostern ;-)

Archiv

Dieses Thema wurde archiviert und kann nicht mehr beantwortet werden.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.