Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1692to1696
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
1692to1696
1692to1696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Namen aus Multibox, aber Kürzel in Zelle übernehme

Namen aus Multibox, aber Kürzel in Zelle übernehme
23.05.2019 18:41:00
Mike
Hallo zusammen,
Ich habe eine Liste mit Namen. Ich wähle mehrere
Namen und möchte aber die Namen als Kürzel in die Zelle übernehmen.
Beispiel:Auswahl:M.Schmidt , F.Mueller
Zelleneintrag: MSC , FMU
Wie kann ich das realisieren?

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Was verstehst du unter Multibox? - o.w.T.
23.05.2019 18:54:22
Beverly

AW: Was verstehst du unter Multibox? - o.w.T.
23.05.2019 19:39:04
Mike
Multilistbox. Das ist eine Listbox wo man mehrere zB: Namen auswählen kann. Die Namensliste habe ich in einer Tabelle stehen.
Das übertragen mehrerer Namen in eine Zelle ist schon erstellt. Nur wie bekomme ich die als Kürzel automatisch geändert und übertragen.
Eine Multibox gibt es nicht...
23.05.2019 23:59:38
Beverly
...was du meinst ist eine ListBox mit Mehrfachauswahl.
Dann poste doch zumindest mal deinen Code - dann kann man ihn sicher auch anpassen.

mit Left("DeinName",3)
23.05.2019 19:35:52
Matthias
Hallo
und dabei musst Du vorher den Punkt entfernen.
Ich frag mich nur was Du anstellst wenn es identische Namenskürzel gibt.
Gruß Matthias
Anzeige
mit Formel so: ...
23.05.2019 19:40:25
Matthias
Hi
Tabelle1

 AB
1M.SchmidtMSC
2F.MuellerFMU

Formeln der Tabelle
ZelleFormel
B1=LINKS(GROSS(WECHSELN(A1;".";""));3)
B2=LINKS(GROSS(WECHSELN(A2;".";""));3)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Matthias
Anzeige
AW: mit Formel so: ...
23.05.2019 19:48:45
Mike
In Excel kenne ich das, aber wie bekomme ich das über Vba hin? Listbox öffnen mit den Namen. Auswählen dann aber gekürzt in Zelle schreiben.
Was hälst du denn davon...
23.05.2019 21:08:51
Werner
Hallo Mike,
...wenn du uns zumindest mal deinen Code zeigst, mit dem du die Daten aus der Listbox in die Tabelle überträgst.
Gruß Werner
AW: mit Button
24.05.2019 07:51:16
hary
Moin
Fuege im UserForm einen Button hinzu. Nach Auswahl in der Listbox den Button klicken.
Zwischen Punkt und Nachname bzw. auch Doppelnamen, muss ein Leerzeichen sein. Private Sub CommandButton1_Click() Dim i As Long Dim Ausgabe As String For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then Ausgabe = Ausgabe & Kuerzel(ListBox1.List(i)) & "," End If Next MsgBox Left(Ausgabe, Len(Ausgabe) - 1) '--statt Msgbox die Zelle nehmen End Sub Function Kuerzel(strName As String) As String Dim a As Variant, ii As Long a = Split(strName, " ") For ii = 0 To UBound(a) Kuerzel = Kuerzel & UCase(Left(a(ii), IIf(ii = 0, 1, 2))) Next End Function
gruss hary
Anzeige
AW: mit Button
24.05.2019 18:03:30
Mike
Hallo Hary,
danke für Deine Hilfe. Ist Deine Userform direkt auch für mehrere angewählte Namen gültig?
Das ist meine jetzige Userform.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column  3 Then Exit Sub
Cancel = True
UserForm1.Show
End Sub


Private Sub Namensliste_Click()
End Sub


Private Sub Übertragen_Click()
myVar = ""
For x = 0 To Me.Namensliste.ListCount - 1
If Me.Namensliste.Selected(x) Then
If myVar = "" Then
myVar = Me.Namensliste.List(x, 0)
Else
myVar = myVar & ", " & Me.Namensliste.List(x, 0)
End If
End If
Next x
ActiveCell = myVar
End Sub


Private Sub UserForm_Click()
Me.Hide
End Sub
Wo soll ich Deine Anweisung eintragen?
Anzeige
AW: mit Button
25.05.2019 19:15:21
Mike
Hallo zusammen,
das funktioniert super.
Danke an alle!!!!

308 Forumthreads zu ähnlichen Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Name der Checkbox in eine Zelle
Reinhardt

Hallo,
ich habe gleich zwei Fragen:
1) Nach anklicken einer Checkbox soll diese Ihren Namen in Zelle A1 schreiben.
z.B. CheckBox12 Wie geht das?
2) Nach dem anklicken der Box hat diese ein Häckchen.
Dieser soll nach dem Anklicken gleich wieder verschwinden.
Wer kan...
06.10.2008 14:22:26
Thread-ID: 1014444
2 Beiträge
Anzeige
Checkbox in Zelle per VBA
UweD

Hallo Leute
ich brauche mal Hilfe vom VBA-Profi
Per VBA möchte ich
1) eine Checkbox (aus Formularsteuerungsliste) in einer bestimmten Spalte in Zeile 1 einfügen checkbox.add(....)
2) Dann Bezug auch auf diese Zelle setzen.
3) Namen ändern...
2) und 3) krieg ich sicherl...
17.10.2008 13:57:00
Thread-ID: 1017152
3 Beiträge
Zellen farbig unterlegen bei Eingabe über Inputbox
Jochen

Hallo Forum
Ich habe eine Tabelle in der werden über eine Inputbox in die Zellen A9 bis K9 Werte eingetragen.
Diese Werte werden der Reihe nach über die Inputbox eingetragen.
Gibt es eine Möglichkeit das die geweils angesprochene Zelle für die Zeit der Eingabe die Farbe
wechselt...
09.11.2008 13:54:18
Thread-ID: 1023062
7 Beiträge
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
Wert aus aktiver Zelle in InputBox übertragen
Axel

Hi ihr fleißigen Helferlein :)
Ich habe hier eine Suchfunfunktion mit InputBox.
Ist es irgendwie möglich beim Start des Makros den Wert der aktiven Zelle in die Inputbox automatisch zu übertragen, so das ich ihn nicht selbst hineintippen/kopieren brauch?
Die Suche soll trotzdem über...
13.12.2008 07:44:52
Thread-ID: 1032569
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton ListBox

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
2
4
9
1
2
2
6
6
1
2
9
3
7
7
3
14
3
4
5
2
4
4
1
4
1