Nochmal Ich - Und nochmal `ne UserForm.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

noch eine kleine Sache die ich vergaß und erst beim testen bemerkte.
Es sollten keine Leerzellen in der UF aufgelistet werden. Jeder Eintrag aus dem Bereich
B12 bis B111 soll nur einmal in der UF-Liste auftauchen (Auch, wenn er mehrmals in der Ursprungsliste vorkommt - Also meinetwegen 5 mal Anja, 3 mal Fritz, 4 mal Monika usw.)
Allerdings soll er dann trotzdem in der Ursprungsliste sooft durchgestrichen werden, wie
er vorkommt - Also 5 mal Anja, 3 mal Fritz, 4 mal Monika usw.
Zuviel verlangt?!
Hmmm...
Ich mache mal einen Abriß des eigentlichen Tabellenblattes, damit klar wird, was ich meine.
Und dann wird auch klar, warum ich die ausgelesenen Werte aus der UF in die Zelle B11
übergeben wollte. Diese Zelle habe ich nämlich als Abgleichswert genommen, um die Streichungen realisieren zu können (Siehe Makro):
Einstieg:
If Range("B12").Value = "" Then GoTo Schluss Else GoTo Los:
Los:
Dim Abgleich2
Antwort4 = InputBox("Zu streichender Name", Title:="Erledigte Kassenvorfälle")
If Antwort4 " " Then Range("B11").Value = Antwort4
Abgleich2 = Range("B11").Value
Range("B12").Select
Eins:
If ActiveCell = "" Then GoTo Aus Else GoTo Zwei:
Zwei:
If ActiveCell.Value = Abgleich2 Then GoTo Streichen Else GoTo Drei:
Drei:
If ActiveCell.Value = "Zellenende" Then GoTo Aus Else GoTo Vier:
Vier:
Selection.Range("A2").Select
GoTo Eins:
Streichen:
Selection.Font.Strikethrough = True
ActiveCell.Next.Select
ActiveCell.Next.Select
Selection.Font.Strikethrough = True
ActiveCell.Next.Select
Selection.Font.Strikethrough = True
ActiveCell.Next.Select
Selection.Font.Strikethrough = True
Selection.End(xlToRight).Select
ActiveCell.Next.Select
Selection.Font.Strikethrough = True
Selection.End(xlToRight).Select
ActiveCell.Next.Select
Selection.Font.Strikethrough = True
ActiveCell.Next.Select
Selection.Font.Strikethrough = True
Selection.End(xlToRight).Select
ActiveCell.Next.Select
Selection.Font.Strikethrough = True
Selection.End(xlToRight).Select
Selection.Font.Strikethrough = True
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
ActiveCell.Next.Select
Selection.Range("A2").Select
GoTo Eins:
Aus:
Range("B11").Value = ""
Schluss:
Ich hoffe, ich überanstrenge euch nicht.
Dennoch vielen, vielen lieben Dank bis hierher.
Teddy
https://www.herber.de/bbs/user/15881.xls

Hello Teddy,
also mit meiner Beispieldatei, die ich dir zugeschickt habe, wird doch alles so wie du es beschrieben hast gemacht!! Bei mir gibt es auch keine Problem, die Textbox wird gefüllt, immer nur ein Eintrag bei der Mehrfachauswahl, bei entsprechendem Anklicken werden die Namen durchgestrichen, übrigens auch wenn in der Namensliste mal eine Zelle leer ist, was bei dir anders war, dass alle Zellen die daneben stehen durchgestrichen werden, das war bei deinem Beispiel nie der Fall, aber dass kannst du doch ganz einfach selber machen, in dem das Makro um eine Zeile erweitert wird, und zwar da wo der Name durchgestrichen ist, werden eben auch die Zellen daneben als durchgestrichen formatiert, ändere das doch einfach ab!!
nun zum wie:
1. in meine Datei gehen, wo das Makro funktionierte
2. Makrorecorder aufrufen (Alt+F11)
3. bei den Projekten (links) ins Formular (Userform1) gehen, die Schaltfläche OK doppelklicken, es erscheint der Code
und diese Zeile: Range(Cells(ActiveCell.Row, ActiveCell.Column + 2), Cells(ActiveCell.Row, ActiveCell.Column + 15)).Select wird nun hinter Address=c.select reinschreiben.
das wars schon
Da deine Datei nun hoffentlich so wie du sie geschickt hast fertig ist, nimm einfach dann mein Makro und exportiere es in deine Datei (sowohl die Userform als auch das eigentliche Makro). (wenn du es nicht packst schreibn nochmal, und ich schicke dir deine letzte Datei wieder zu) aber bitte jetzt die endgültige Form, denn Neuprogrammieren ist immer einfacher als etwas zu ändern!!!!!
Gruss WS

Beliebteste Forumthreads (12 Monate)

Nochmal Ich - Und nochmal `ne UserForm.

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nochmal Ich - Und nochmal `ne UserForm.

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread