Microsoft Excel

Herbers Excel/VBA-Archiv

Zahl in freien Text | Herbers Excel-Forum


Betrifft: Zahl in freien Text von: Fischer, Olaf
Geschrieben am: 19.12.2009 20:09:45

Hallo gesagt,

ich möchte eine Endlostabelle anlegen, in der in Spalte 2 Firmennamen eingegeben werden sollen. Damit ich mir das ständige Ausschreiben der Firmennamen erspare, möchte ich hinter Zahlen Text verschlüsseln.
Bsp.
B7: 1 eingeben "FA Müller" erscheint
B8: 2 eingeben "FA Schneider" erscheint
B9: 3 eingeben "FA Sommer" erscheint
B10: 2 eingeben "FA Schneider" erscheint

Allerdings muß es auch nur auf 5 Firmen beschränkt sein, mehr kann ich mir eh nicht merken.

Danke im Voraus!

  

Betrifft: AW: Zahl in freien Text von: Josef Ehrensberger
Geschrieben am: 19.12.2009 20:25:22

Hallo Olaf,

hast du schon mal mit "Gültigkeit" gearbeitet?

https://www.herber.de/bbs/user/66710.xls


Gruß Sepp



  

Betrifft: AW: Zahl in freien Text von: Fischer, Olaf
Geschrieben am: 19.12.2009 20:39:41

hallo sepp,
nein habe ich noch nicht, bin eher anfänger und nutze excel eher selten


  

Betrifft: AW: Zahl in freien Text von: Josef Ehrensberger
Geschrieben am: 19.12.2009 20:48:29

Hallo Olaf,

und hast du mein Beispiel angesehen/ausprobiert?


Gruß Sepp



  

Betrifft: AW: Zahl in freien Text von: Fischer, Olaf
Geschrieben am: 19.12.2009 21:11:59

hallo sepp,

zuerst habe ich es nicht getan, asche auf mein haupt, jetzt wo du so konkret nach fragst habe ich es geöffnet und muß sagen, ich bin begeistert, nicht so wie es mir vorgestellt habe, sondern einfach noch um welten beser. ist die aufklappende liste erweiterbar ???
verrate mir bitte wie das funktioniert ich muuußßß das können ;-)


  

Betrifft: AW: Zahl in freien Text von: Fischer, Olaf
Geschrieben am: 19.12.2009 21:19:44

danke sepp,

ich habe es, so glaube ich, verstanden und möchte dir herzlich danken!


  

Betrifft: AW: Zahl in freien Text von: Josef Ehrensberger
Geschrieben am: 19.12.2009 21:25:11

Hallo Olaf,

hab ich doch reingeschrieben!

Markiere A1, gehe auf [Daten] > [Gültigkeit] > bei "Zulassen" ist "Liste" ausgewählt und
bei "Quelle" siehst du den Bereich in dem die Listenwerte stehen,
diesen Bereich kannst du nach belieben vergrössern.


Gruß Sepp



  

Betrifft: Eine Möglichkeit! von: Backowe
Geschrieben am: 19.12.2009 20:25:55

Hi Olaf,

Du kannst die Liste erweitern, bis der Arzt kommt! ;o)

Private Sub Worksheet_Change(ByVal Target As Range)
'Code kommt in die entsprechende Tabelle
If Not Intersect(Target, Columns("B")) Is Nothing And Target.Count = 1 Then
  If IsNumeric(Target) Then _
    Target = Range("L" & Application.Match(Target, Columns("K"), 0))
End If
End Sub
Tabelle1

 BKL
1FA Sommer1FA Schneider
2Fa Müller2FA Sommer
3 3Fa Müller


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Gruß Jürgen


  

Betrifft: AW: Eine Möglichkeit! von: Fischer, Olaf
Geschrieben am: 19.12.2009 20:34:58

???????


  

Betrifft: Hier mal ein Beispiel! von: Backowe
Geschrieben am: 19.12.2009 21:26:47

Hi Olaf,

hier eine Beispieldatei, trage einfach in die Spalte B eine der verfügbaren Zahlen der Spalte K ein.

https://www.herber.de/bbs/user/66711.xls


Beiträge aus den Excel-Beispielen zum Thema "Zahl in freien Text "