Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1276to1280
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
1276to1280
1276to1280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatischer Zeileneintrag + Listenauswahl

Automatischer Zeileneintrag + Listenauswahl
Simon
Hallo Excel-Forum,
ich habe mein Thema versucht in der Beispieldatei zu beschreiben.
Ich habe zwei Spalten mit einer Listenauswahl (z.B. in Spalte 1 Ja, Nein, Vielleicht und in Spalte 2 ok, nok). Wenn ich in Spalte 1 Nein oder Vielleicht gewählt habe, möchte ich automatisch in Spalte 2 nok stehen habe. Anschließend möchte ich aber manuell die Möglichkeit haben, dass ich dieses automatisch erzeugtes nok in ein ok ändere (über Listenauswahl).
Geht das?
https://www.herber.de/bbs/user/81688.xlsx
Schönen Gruß,
Simon

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Automatischer Zeileneintrag + Listenauswahl
03.09.2012 14:29:18
Rudi
Hallo,
in das Modul der Tabelle: 
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 2
Select Case Target
Case "Nein", "Vielleicht"
Target.Offset(, 1) = "nok"
Case "Ja"
Target.Offset(, 1) = "ok"
Case Else
Target.Offset(, 1) = ""
End Select
End Select
End Sub

Gruß
Rudi

AW: Automatischer Zeileneintrag + Listenauswahl
03.09.2012 16:45:20
Simon
Hallo Rudi,
vielen Dank für den Code.
Zwei Fragen und zwei Anwendungsfehler habe ich dazu allerdings noch.
Fragen:
1. Wie kann ich sicherstellen dass ich immer die richtige Spalte erwische (in deinem Beispiel Case 2)? Was passiert wenn ich eine Spalte dazwischen einfüge?
2. In meiner Tabelle ist die Spalte 1 schon ausgefüllt wenn ich den Code reinkopiere. In dem Fall führt er die gewollte Operation nicht aus. erst wenn ich Spalte 1 neu ausfülle funktioniert der Code super. Kann man bei ausgefüllter Spalte 1 den Code für Spalte 2 ausführen lassen?
Anwendungsfehler:
3. In der Beispieldatei (siehe Link) bekomme ich die Fehlermeldung "Laufzeitfehler "13" - Typen unverträglich" wenn ich einen Zellenwert aus Spalte 1 mindestens 2 Zeilen nach unten ziehe (also den Wert kopiere).
4. Wenn ich die Werte in Spalte 1 lösche (alle, nicht nur einen), bekomme ich den gleichen Fehler wie Punkt 3.
Punkt 4 würde mich nicht so stören, Punkt 3 allerdings schon. Gibt es hier eine Lösung?
Vielen Dank schonmal.
Gruß,
Simon

Anzeige
AW: Automatischer Zeileneintrag + Listenauswahl
07.09.2012 08:29:33
Simon
Hat jemand eine Lösung für meine Fragen?
Der Code funktioniert im Grunde, allerdings sind die Anwendungsfehler etwas störend.
Gruß,
Simon

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige