Office: Else = do nothing?

Moin
Alter Schwede! ;-)) Da muss ich mich erstmal durchwuseln. Ist das gewollt dass, wenn du in den Gueltigkeitslisten was auswaehlst, dass dieses immer ergaenzt wird? Das meinte ich z.B. wo ich den Sinn nicht verstehen will.


Tabelle1

	C
31	Papier, Pergament, 0

Tools Tabelle Forum - Hajo's Excelseiten
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.02 einschl 64 Bit

gruss hary

 

Ja. Das ist die Mehrfachauswahl von der die Rede ist. In einigen Spalten kann die Antwort nur eine sein, in anderen hingegen nicht. Für diese Spalten muss die Möglichkeit bestehen mehrere Einträge auswählen zu können.
Aber seit ich das so eingerichtet habe, kommt es immer wieder vor, dass Excel rumzickt. Manchmal läuft alles gut und ein anderes Mal springt bei Auswahl einer Zelle die Markierung immer wieder zurück zur vorherigen Zelle. Dann darf man auch mal dreimal auf eine Zelle klicken, bevor sie wirklich ausgewählt ist. Irgendwie ist da der Wurm drin.
Ich hab jetzt einfach mal den code wieder eingefügt, den ich vor den Versuchen mit Spalte H drin hatte - und auch da sagt er mir heute, dass er ein Problem mit ´Application / Application undo hat.

 

Moin
edit: Code ein wenig verbessert(hoffe ich)
Probier es mal so.
Code:

gruss hary

 

Nach der eersten großen Freude habe ich die durchgeklickten zeilen markiert und wolltee die Inhalte löschen. da sagt er was von Typen unverträglich. :-/

-> If Target.Count > 1 Or Target.Value = "" Then Exit Sub

 

Moin
Kommt daher das du mehr Zellen markiert hast.
Dann schreib es so:
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Sonst passt alles?
gruss hary

 

Super! Jetzt läuft alles! :-D

Ganz dickes Danke!!!! dafür! :-)

 

Zu früh gefreut... *frown.gif*

Er meckert immer noch über die Applicationgescichte. Jedesmal, wenn ich in Spalte L eine falsche Auswahl treffe und diese dann zu korrigieren versuche.
Scheinbar will es noch kein Ende nehmen....

 

Moin
Was muss ich machen damit der Fehler auftritt?
Hab ein paar Sachen probiert, geht aber.
gruss hary

 

Moin
Probier mal so.
Code:

 

Moin!
Hab´s grad getestet (kam nicht eher dazu) und der Fehler scheint damit behoben zu sein. :-)
Nun brauche ich also nur noch zu hoffen, dass er jetzt nicht an anderer Stelle rumzickt. ^^ Aber bislang ist er ganz brav.
Nochmals danke!

 

Heyho! *Smilie

Läuft alles super! Nun habe ich jedoch ein paar Spalten gelöscht und passe den Code gerade an. Frage mich nun was das hier bedeutet:

If Left(Target.Value, 1) = 0 Then Target.Value = Mid(Target.Value, 3, 9 ^ 9)

Frage mich ob ich diese Zahlen auch ändern muss.

Lieben Gruß,

Studi

 

der Code Prüft ob das erste Zeichen der Eingabe eine "0" ist falls Ja wird die Eingabe ab Position 3 eingetragen.

 

Moin

Das hatte ich zusaetzlich eingebaut.
Wenn du in SpalteH eine Null eintraegst, erhalten die DropDownfelder ja eine Null.
Waehlst du jetzt im DropDown etwas aus steht dann(ohne diese Codezeile) in der Zelle Bsp.: 0, Wachs
mit der codezeile: Wachs
Nimmt also die Null und das Komma und das Leerzeichen raus.
gruss hary

 

Moin!
Da wäre ich wieder.
Nun lief das alles so lange so wunderbar und jetzt muss ich das ganze System doch nochmal kürzen. Dafür habe ich eine neue Datei angelegt und entsprechend reinkopiert und umgeschrieben. Seitdem tut´s die Geschichte mit der 0 wieder nicht richtig.
Ich weiß nicht an welcher Stelle nun der Wurm sitzt, aber das Problem ist wie folgt:
Ich trage eine 0 in Spalte 6 ein und gehe weiter - nichts passiert. Ich klicke die Spalte erneut an und dann setzt er nachträglich die 0 in die anderen Spalten-aber erst beim zweiten Auswählen. Verstehe ich mal garnicht.
Dann geht´s lustig weiter:
Wenn ich nun aus der 0 eine 1 mache, bleiben alle anderen Nullen erhalten. Ich rangiere mich immer mit der Tab-Taste durch die Tabelle. Wenn ich dann via Tab-Taste 2 Stellen weiter gehe, zu Spalte 8, springt die Auswahl plötzlich zurück auf Spalte 6 und trägt dort automatisch wieder eine 0 ein, anstatt, wie gewünscht, einfach alle anderen Nullen zu entfernen.

Wird da jemand draus schlau???
Ich weiß, dass ich nicht weiß in wie weit ich die im letzten Beitrag erwähnte Zeile abändern muss. Aber rumprobieren hat mich hier nicht weitergebracht und ich bin nicht sicher, ob das Problem NUR hier begründet liegt.
Ich habe es z.B. mal mit 3, 6 ^ 6 versucht, anstatt 3, 9 ^ 9. Aber das hat es auch nicht behoben.
Hier der Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngBereich As Range
Dim wert_old As Variant
Dim wert_new As Variant
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
On Error GoTo beenden
Set rngBereich = Application.Union(Columns("D"), Columns("F"), Columns("H:K"), Columns("V"), Columns("Z"), Columns("AI"), Columns("AK"))
If Not Application.Intersect(Target, rngBereich) Is Nothing Then
Application.EnableEvents = False
If Target.Column = 6 Then
Cells(Target.Row, 7).Resize(1, 5).Value = IIf(Target = 0, 0, "")
Cells(Target.Row, 32).Resize(1, 5).Value = IIf(Target = 0, 0, "")
Application.EnableEvents = True
Exit Sub
End If
If Not Application.Intersect(Target, Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing Then
wert_new = Target.Value
Application.Undo
wert_old = Target.Value
Target.Value = wert_new
If wert_old "" Then
Target.Value = wert_old & ", " & wert_new
'---entfernt die Null falls vorhanden
If Left(Target.Value, 1) = 0 Then Target.Value = Mid(Target.Value, 3, 6 ^ 6)
'------
End If
End If
End If
beenden:
Application.EnableEvents = True
End Sub

Ich werde versuchen auch mal die Datei online zu stellen.

Ich hoffe ihr rettet mich mal wieder! *Smilie

Lieben Gruß,

PapierStudi

 

Hier der Link zur Datei:

https://www.dropbox.com/s/asrc0jkmmv...C3%B6glich.xls