Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1496to1500
1496to1500
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anfangsbuchstabe schreiben Wort automatisch einfüg

Forumthread: Anfangsbuchstabe schreiben Wort automatisch einfüg

Anfangsbuchstabe schreiben Wort automatisch einfüg
11.06.2016 09:29:59
Wolfgang
Hallo zusammen!
Ich möchte gerne eine Liste erstellen und darin definieren, dass wenn ich den Anfangsbuchstabe schreibe - ein bestimmtes Wort automatisch eingefügt wird.
z.B. habe ich eine Liste mehrerer Länder und diese sollen in unterschiedlichen Reihenfolgen in verschiedene Spalten eingefügt werden.
Jetzt schreibe ich z.B. E und möchte, dass das Wort England automatisch eingefügt wird.
Wie geht das?
MFG Wolfgang

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
eine Variante ist die Autokorrektur ... owT
11.06.2016 09:33:14
Matthias

eine weitere Variante [Select Case]
11.06.2016 09:47:44
Matthias
Hallo
[Case Is] einfach um die entsprechenden Einträge erweitern.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target) = 1 Then
Select Case Target
Case Is = "E"
Target = "England"
Case Is = "F"
Target = "Frankreich"
Case Is = "D"
Target = "Deutschland"
End Select
End If
End Sub
Code gehört in die entprechende Tabelle
Gruß Matthias

Anzeige
Nachfrage: Liste für [Select Case]
11.06.2016 15:03:51
Gerhard
Hallo Matthias oder andere Helfer,
mit der Select Case Variante möchte ich die Werte aus einer Liste auslesen. Die Liste sollte nach unten unbegrenzt erweiterbar sein.
Ist dazu eine Lösung möglich mit angepasstem Code, so daß die Zeilen Select Case ... und Case is ... nicht für alle Abfragen im Code geschrieben werden müssen.
Eine Lösung könnte ich gut gebrauchen.
https://www.herber.de/bbs/user/106158.xlsm
Gruß
Gerhard E.

Anzeige
Nachfrage: offen
11.06.2016 15:10:30
Gerhard
Nachfrage nochmals offen

AW: Nachfrage: offen
11.06.2016 15:21:16
Daniel
Hi
probiers mal so:
die Daten müssen in Spalte I = Kennbuchstabe und Spalte J = Ländername stehen.
Du kannst bei Bedarf die Liste beliebig erweitern ohne den Code ändern zu müssen:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
If Len(Target(1).Value) = 1 And Target.Column = 1 Then
Set Zelle = Columns(9).Find(what:=Target(1).Value, lookat:=xlWhole, MatchCase:=False)
If Not Zelle Is Nothing Then
Application.EnableEvents = False
Target.Value = Zelle.Offset(0, 1).Value
Application.EnableEvents = True
End If
End If
End Sub
Gruß Daniel

Anzeige
AW: Nachfrage: offen
11.06.2016 15:31:40
Gerhard
Danke Daniel,
das ist eine sehr gute Lösung für meine Anwendung!
Gruß Gerhard E.

AW: Nachfrage: offen
11.06.2016 16:04:20
Daniel
Man könnte das auch noch so erweitern, dass die Liste bei Bedarf automatisch ergänzt wird:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
Dim Land As String
If Len(Target(1).Value) = 1 And Target.Column = 1 Then
Set Zelle = Columns(9).Find(what:=Target(1).Value, lookat:=xlWhole, MatchCase:=False)
If Not Zelle Is Nothing Then
Application.EnableEvents = False
Target.Value = Zelle.Offset(0, 1).Value
Application.EnableEvents = True
Else
Set Zelle = Cells(Rows.Count, 9).End(xlUp).Offset(1, 0)
Land = InputBox("Für """ & Target(1).Value & """ konnte kein Land gefunden werden." _
& vblf & _ "Wollen Sie eins eingeben?")
If Land  "" Then
Application.EnableEvents = False
Zelle.Value = UCase(Target(1).Value)
Zelle.Offset(0, 1).Value = Land
Target.Value = Land
Application.EnableEvents = True
End If
End If
End If
End Sub
Gruß Daniel
Anzeige

Forumthreads zu verwandten Themen

Zeilen mit bestimmten Wort ausschneiden
Stan

Hallo Excel Freunde,
Ich öffne mit Makro eine Textdatei. Am Ende bleiben mir ein Paar Zeilen mit dem Wort SURG in der Spalte A.
Die Zeilen will ich automatisch ausschneiden. In einer neuen Mappe funktioniert das _
ausschneiden. In dem makro wird die Datei gespeichert, aber die Zeil...
11.05.2010 13:15:53
Thread-ID: 1156611
3 Beiträge
Liste an Wörtern mit Google Translater übersetzen
Heiti

Moin,
ich habe eine Liste an Wörtern und möchte diese mit dem google Translater übersetzen und benötige dazu eure Hilfe.
Sub Uebersetzung_google() 'On Error Resume Next Dim IEApp As Object Dim IEDocument As Object Set IEApp = CreateObject("InternetExplorer.Application") For i = 2 To Tab...
24.04.2012 08:45:45
Thread-ID: 1260711
5 Beiträge
eine Spalte nur mit Passwort Ein oder Ausblenden
Josef_T

Guten Morgen allerseits,
habe bislang die Spalte H, konventionell über Format -Ausblenden ausgeblendet. Diese Spalte wird aber immer wieder von Mitarbeitern eingeblendet, die nicht dazu befugt sind. Die Spalte beinhaltet Lohndaten.
Frage: kann man eine einzelne Spalte per VBA dauerhaft...
17.09.2012 09:21:44
Thread-ID: 1278887
4 Beiträge
Zelle Passwortschützen und ausblenden
Koskesh

Hallo, ich möchte aus Datenschutz gründen einige Zellen einer Datei Passwort schützen und ausblenden. Wie schaff ich das?
Einzelne Zellen schützen kriege ich hin aber nicht das ausblenden.
LG
28.04.2014 13:49:31
Thread-ID: 1358874
5 Beiträge
Excel Datei mit Wörterbuch hängt beim Bearbeiten
Elke

Hallo,
ich habe ein Wörterbuch auf Excel selbst gefüllt.
28100 Zeilen, 6 Spalten, Größe 1315 KB
keine Formeln, nur Wörter bzw. Sätze.
Will ich von einer Zeile in die nächste springen, dauert es ewigkeiten bis ich in der nächsten Zeile wirklich bin oder in ein anderes Feld gehen...
11.02.2016 21:25:01
Thread-ID: 1474918
6 Beiträge
Evaluate Zelle mit Zahlen und Wörtern
Anton Buderus
Hallo,
ich suche eine Möglichkeit z.B. folgenden Inhalt einer Zelle berechnen zu lassen:
A1: (3*2)m²*2Stück+5m² Fläche_unten: +3
A2: 20
A1: enthält also den Text der gefiltert und berechnet werden soll
A2: das Ergebnis
Um ohne Wörter und Buchstaben zu berechnen, nutze ich di...
18.09.2016 20:03:42
Thread-ID: 1514998
10 Beiträge
Schlagwortsuche - Reihen ausblenden wo kein Schlag
Thomas

Hallo
Vielleicht könnt ihr mir helfen. Mit meinen bescheidenen VBA-Kenntnissen habe ich mir einen Code zusammengestöpselt der Schlagwörter (mit Textbox-Eingabe) sucht und markiert.
Eine Funktion klappt aber bis jetzt noch immer nicht. Ich möchte nämlich die Reihen in denen das Schlagwo...
20.07.2017 15:29:57
Thread-ID: 1570221
4 Beiträge
Anzeige
Range.Find mit mehreren Wörtern
Maxi

Hallo,
ich suche mit folgendem Code nach einem Wort und lösche dan die gesamte Spalte in der das Wort vorkommt:
Dim Such
Set Such = ActiveSheet.Range("A3:FJ3").Find("MeinWort")
If Not Such Is Nothing Then Such.EntireColumn.Delete
Ich will nun genau das gleiche für 40 weitere...
28.03.2018 13:25:43
Thread-ID: 1616899
6 Beiträge
Wörter mit Instr formatieren, Alternative?
Mr.T

Hallo,
nach langem Suchen muss ich nun doch mal wieder eine Frage stellen. Und zwar habe ich ein Tabellenblatt mit einem Bereich dessen Zellen mit bestimmten Texten gefüllt werden. In diesen stehen unterschiedliche lange Texte in denen aber bestimmte Schlagworte immer eingefärbt oder auch f...
01.04.2018 01:48:08
Thread-ID: 1617491
4 Beiträge
Wenn Anfangsbuchstabe in Spalte,dann Zeile kopiern
Clancy

Hallo zusammen!
Ich bin wechselnd am Ausrasten und Weinen, ich check' einfach nicht, was das Problem ist und hoffe auf eure Hilfe.
Anhand eines Codes, den ich hier gefunden habe, bin ich schon recht weit, hänge jetzt aber fest.
Ausgangslage:
Tabellenblatt "ProMon" enthält viele...
25.09.2018 19:24:03
Thread-ID: 1647723
15 Beiträge
Bestimmtes Wort aus bestimmter Wortliste finden
mic

Guten Abend geehrte Forumsteilnehmer,
im Archiv habe ich keine Hilfe gefunden.
Darf ich bitte hier einmal meine Frage formulieren:
In den Feldern der Spalte A1:A3 stehen die Wörter
Kaffeesahne
Blumentopferde
Hammerhai
In der Spalte AA1:AA4 die Wörter:
Affe
B...
11.11.2018 15:14:35
Thread-ID: 1656797
6 Beiträge
Anzeige
Schlagwortsuche und Ausgabe der gefunden Zeile
Marc

Hallo zusammen,
ich hätte folgende Fragestellung:
In Spalte A stehen die zu suchenden Begriffe (Suche soll auch nach Wortfetzen, Zahlenfolgen etc. möglich sein). In Spalte B der Bereich aus dem gesucht werden soll, Text der jeweils ein Teil aus Spalte A enthält. In Tabelle C wird dann...
18.11.2018 15:55:29
Thread-ID: 1658026
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Automatisches Einfügen von Wörtern basierend auf dem Anfangsbuchstaben in Excel

Schritt-für-Schritt-Anleitung

Um in Excel automatisch ein Wort basierend auf dem Anfangsbuchstaben einfügen zu können, kannst du VBA (Visual Basic for Applications) nutzen. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und gehe zu der Tabelle, in der du die Funktion nutzen möchtest.

  2. Öffne den VBA-Editor: Drücke ALT + F11.

  3. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeineDateiName)" und wähle Einfügen > Modul.

  4. Kopiere und füge den folgenden Code ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
   If Len(Target(1).Value) = 1 And Target.Column = 1 Then
       Select Case Target
           Case Is = "E"
               Target.Value = "England"
           Case Is = "F"
               Target.Value = "Frankreich"
           Case Is = "D"
               Target.Value = "Deutschland"
       End Select
   End If
End Sub

  5. Speichere deine Änderungen und schließe den VBA-Editor.

  6. Teste die Funktion, indem du in die erste Spalte einen Anfangsbuchstaben eingibst. Das entsprechende Wort wird automatisch eingefügt.

Häufige Fehler und Lösungen

  • Fehler: Das Wort wird nicht automatisch eingefügt.

    • Lösung: Stelle sicher, dass der Code im richtigen Arbeitsblatt-Modul eingefügt wurde. Der Code muss in das spezifische Arbeitsblatt eingefügt werden, in dem du arbeitest.

  • Fehler: Der Code funktioniert nicht bei mehr als einem Buchstaben.

    • Lösung: Der Code ist so programmiert, dass er nur auf einen einzelnen Buchstaben reagiert. Achte darauf, nur einen Buchstaben einzugeben.

Alternative Methoden

Eine andere Möglichkeit, um Wort aus Anfangsbuchstaben zu generieren, ist die Verwendung der Autokorrektur-Funktion in Excel. Hier kannst du spezifische Abkürzungen definieren, die automatisch durch die vollständigen Wörter ersetzt werden.

  1. Gehe zu Datei > Optionen > Dokumentprüfung > Autokorrektur-Optionen.
  2. Füge eine neue Regel hinzu, indem du die Abkürzung (z.B. "E") und das gewünschte Wort (z.B. "England") eingibst.

Praktische Beispiele

Hier sind einige Beispiele, wie du die Funktion nutzen kannst:

  • Wenn du in die Zelle A1 "E" eingibst, wird automatisch "England" eingefügt.
  • Bei "F" wird "Frankreich" eingetragen.
  • Du kannst den VBA-Code erweitern, um mehr Länder oder Wörter hinzuzufügen.

Tipps für Profis

  • Erweiterte Funktionen: Du kannst den VBA-Code so anpassen, dass er mit einer Liste von Wörtern arbeitet. Dies ermöglicht eine flexiblere Nutzung und einfachere Anpassungen, ohne den Code ändern zu müssen.

  • Verwendung von Datenbanken: Wenn du viele Wörter hast, kannst du eine separate Liste in einem anderen Arbeitsblatt oder einer Datenbank führen und den Code so anpassen, dass er diese Liste abfragt.

FAQ: Häufige Fragen

1. Wie kann ich mehr Wörter hinzufügen?
Du kannst einfach weitere Case Is-Anweisungen im Select Case-Block hinzufügen, um zusätzliche Anfangsbuchstaben und die entsprechenden Wörter zu definieren.

2. Funktioniert das auch in Excel Online?
Leider unterstützt Excel Online keine VBA-Makros. Du kannst jedoch die Autokorrektur-Funktion nutzen, um ähnliche Ergebnisse zu erzielen.

3. Was mache ich, wenn ich andere Anfangsbuchstaben verwenden möchte?
Du kannst die Buchstaben im Select Case-Block ändern und anpassen, um andere Anfangsbuchstaben zu verwenden.

Mit diesen Anleitungen und Tipps bist du gut gerüstet, um in Excel automatisch Wörter aus den Anfangsbuchstaben zu generieren!

Beliebteste Forumthreads (12 Monate)

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